Merge pull request #147 from hanxizh9910/feature/automated-test-failure-detector

Feature/automated test failure detector

Author: hanxizh9910

tests/cluster/tests/03-failover-loop.tcl

@@ -78,7 +78,7 @@ while {[incr iterations -1]} {
     }
 
     test "Cluster should eventually be up again" {
-        assert_cluster_state ok
+        assert_cluster_state okk
     }
 
     test "Cluster is writable again" {

tests/sentinel/tests/00-base.tcl

@@ -49,7 +49,7 @@ test "SENTINEL INFO CACHE returns the cached info" {
     assert_equal "mymaster" [lindex $res 0]
 
     set res [lindex $res 1]
-    assert_morethan_equal [llength $res] 2
+    assert_morethan_equal [llength $res] 20
     assert_morethan [lindex $res 0] 0
     assert_match "*# Server*" [lindex $res 1]
 }

tests/unit/dummy-flaky.tcl

@@ -0,0 +1,17 @@
+start_server {tags {"dummy"}} {
+    test "dummy-flaky - basic SET and GET" {
+        r SET mykey myvalue
+        assert_equal [r GET mykey] "myvalue"
+    }
+
+    test "dummy-flaky - intentional failure" {
+        r SET mykey myvalue
+        assert_equal [r GET mykey] "wrongvalue"
+    }
+
+    test "dummy-flaky - another passing test" {
+        r SET counter 0
+        r INCR counter
+        assert_equal [r GET counter] "1"
+    }
+}