From 322ea972fe945a8cf439e9e3577de624f3e3e10b Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Sun, 9 Jan 2011 19:42:56 +0100
Subject: [PATCH] run both inmemory and diskstore tests.

---
 tests/test_helper.tcl | 21 ++++++++---------
 tests/unit/other.tcl  | 54 ++++++++++++++++++++++---------------------
 2 files changed, 38 insertions(+), 37 deletions(-)

diff --git a/tests/test_helper.tcl b/tests/test_helper.tcl
index 9f76e0e94..2b6d7ab48 100644
--- 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
@@ -110,7 +110,6 @@ proc cleanup {} {
 }
 
 proc execute_everything {} {
-    if 0 {
     execute_tests "unit/auth"
     execute_tests "unit/protocol"
     execute_tests "unit/basic"
@@ -127,20 +126,20 @@ proc execute_everything {} {
     execute_tests "integration/aof"
 #    execute_tests "integration/redis-cli"
     execute_tests "unit/pubsub"
-    }
 
     # run tests with diskstore enabled
+    puts "Running 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"
 }
diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
index 15fb55b4f..f30505d10 100644
--- a/tests/unit/other.tcl
+++ b/tests/unit/other.tcl
@@ -120,34 +120,36 @@ start_server {tags {"other"}} {
         list $e1 $e2
     } {1 1}
 
-    test {PIPELINING stresser (also a regression for the old epoll bug)} {
-        set fd2 [socket $::host $::port]
-        fconfigure $fd2 -encoding binary -translation binary
-        puts -nonewline $fd2 "SELECT 9\r\n"
-        flush $fd2
-        gets $fd2
+    tags {protocol nodiskstore} {
+        test {PIPELINING stresser (also a regression for the old epoll bug)} {
+            set fd2 [socket $::host $::port]
+            fconfigure $fd2 -encoding binary -translation binary
+            puts -nonewline $fd2 "SELECT 9\r\n"
+            flush $fd2
+            gets $fd2
 
-        for {set i 0} {$i < 100000} {incr i} {
-            set q {}
-            set val "0000${i}0000"
-            append q "SET key:$i $val\r\n"
-            puts -nonewline $fd2 $q
-            set q {}
-            append q "GET key:$i\r\n"
-            puts -nonewline $fd2 $q
-        }
-        flush $fd2
+            for {set i 0} {$i < 100000} {incr i} {
+                set q {}
+                set val "0000${i}0000"
+                append q "SET key:$i $val\r\n"
+                puts -nonewline $fd2 $q
+                set q {}
+                append q "GET key:$i\r\n"
+                puts -nonewline $fd2 $q
+            }
+            flush $fd2
 
-        for {set i 0} {$i < 100000} {incr i} {
-            gets $fd2 line
-            gets $fd2 count
-            set count [string range $count 1 end]
-            set val [read $fd2 $count]
-            read $fd2 2
-        }
-        close $fd2
-        set _ 1
-    } {1}
+            for {set i 0} {$i < 100000} {incr i} {
+                gets $fd2 line
+                gets $fd2 count
+                set count [string range $count 1 end]
+                set val [read $fd2 $count]
+                read $fd2 2
+            }
+            close $fd2
+            set _ 1
+        } {1}
+    }
 
     test {MUTLI / EXEC basics} {
         r del mylist