Merge branch 'unstable'

[redis.git] / tests / test_helper.tcl

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 9f76e0e9426f45eea15b62e4921b21e8e17c2481..e2a9e52524da91f7cb651c2c1dce4268a4802b8b 100644 (file)
--- a/tests/test_helper.tcl
+++ b/tests/test_helper.tcl
@@ -13,7 +13,7 @@ set ::host 127.0.0.1
 set ::port 16379
 set ::traceleaks 0
 set ::valgrind 0
-set ::verbose 1
+set ::verbose 0
 set ::denytags {}
 set ::allowtags {}
 set ::external 0; # If "1" this means, we are running against external instance
@@ -111,6 +111,13 @@ proc cleanup {} {
 
 proc execute_everything {} {
     if 0 {
+        # Use this when hacking on new tests.
+        set ::verbose 1
+        execute_tests "unit/first"
+        return
+    }
+
+    execute_tests "unit/printver"
     execute_tests "unit/auth"
     execute_tests "unit/protocol"
     execute_tests "unit/basic"
@@ -127,20 +134,21 @@ proc execute_everything {} {
     execute_tests "integration/aof"
 #    execute_tests "integration/redis-cli"
     execute_tests "unit/pubsub"
-    }
 
+    return; # No diskstore tests for now...
     # run tests with diskstore enabled
+    puts "\nRunning diskstore tests... this is slow, press Ctrl+C if not interested.."
     set ::diskstore 1
     lappend ::denytags nodiskstore
     set ::global_overrides {diskstore-enabled yes}
-#    execute_tests "unit/protocol"
-#    execute_tests "unit/basic"
-#    execute_tests "unit/type/list"
-#    execute_tests "unit/type/set"
-#    execute_tests "unit/type/zset"
-#    execute_tests "unit/type/hash"
-#    execute_tests "unit/sort"
-#    execute_tests "unit/expire"
+    execute_tests "unit/protocol"
+    execute_tests "unit/basic"
+    execute_tests "unit/type/list"
+    execute_tests "unit/type/set"
+    execute_tests "unit/type/zset"
+    execute_tests "unit/type/hash"
+    execute_tests "unit/sort"
+    execute_tests "unit/expire"
     execute_tests "unit/other"
     execute_tests "unit/cas"
 }