Sentinel test: move init tests as includes.

Most units will start with these two basic tests to create an
environment where the real tests are ran.

tests/sentinel-tests/00-base.tcl

 # Check the basic monitoring and failover capabilities.
 
-test "Sentinels aren't monitoring any master" {
-    foreach_sentinel_id id {
-        assert {[S $id sentinel masters] eq {}}
-    }
-}
-
-set redis_slaves 4
-test "Create a master-slaves cluster of [expr $redis_slaves+1] instances" {
-    create_redis_master_slave_cluster [expr {$redis_slaves+1}]
-}
-set master_id 0
-
-test "Sentinels can start monitoring a master" {
-    set sentinels [llength $::sentinel_instances]
-    set quorum [expr {$sentinels/2+1}]
-    foreach_sentinel_id id {
-        catch {S $id SENTINEL REMOVE mymaster}
-        S $id SENTINEL MONITOR mymaster \
-              [get_instance_attrib redis $master_id host] \
-              [get_instance_attrib redis $master_id port] $quorum
-    }
-    foreach_sentinel_id id {
-        assert {[S $id sentinel master mymaster] ne {}}
-    }
-}
+source "../sentinel-tests/includes/init-tests.tcl"
 
 test "Sentinels are able to auto-discover other sentinels" {
     set sentinels [llength $::sentinel_instances]

tests/sentinel-tests/includes/init-tests.tcl

+# Initialization tests -- most units will start including this.
+
+set redis_slaves 4
+test "Create a master-slaves cluster of [expr $redis_slaves+1] instances" {
+    create_redis_master_slave_cluster [expr {$redis_slaves+1}]
+}
+set master_id 0
+
+test "Sentinels can start monitoring a master" {
+    set sentinels [llength $::sentinel_instances]
+    set quorum [expr {$sentinels/2+1}]
+    foreach_sentinel_id id {
+        catch {S $id SENTINEL REMOVE mymaster}
+        S $id SENTINEL MONITOR mymaster \
+              [get_instance_attrib redis $master_id host] \
+              [get_instance_attrib redis $master_id port] $quorum
+    }
+    foreach_sentinel_id id {
+        assert {[S $id sentinel master mymaster] ne {}}
+    }
+}
+
+

tests/sentinel.tcl

@@ -141,6 +141,7 @@ proc run_tests {} {
         if {$::run_matching ne {} && [string match $::run_matching $test] == 0} {
             continue
         }
+        if {[file isdirectory $test]} continue
         puts [colorstr yellow "Testing unit: [lindex [file split $test] end]"]
         source $test
     }