From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Wed, 2 Jun 2010 22:16:10 +0000 (+0200)
Subject: tag more slow tests
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/6b6f101c2761c5a9762723ae99a75dd0d2e009df

tag more slow tests
---

diff --git a/tests/unit/expire.tcl b/tests/unit/expire.tcl
index 6b2fe747..d65df2f8 100644
--- a/tests/unit/expire.tcl
+++ b/tests/unit/expire.tcl
@@ -12,10 +12,12 @@ start_server {tags {"expire"}} {
         r get x
     } {foobar}
 
-    test {EXPIRE - After 6 seconds the key should no longer be here} {
-        after 6000
-        list [r get x] [r exists x]
-    } {{} 0}
+    tags {"slow"} {
+        test {EXPIRE - After 6 seconds the key should no longer be here} {
+            after 6000
+            list [r get x] [r exists x]
+        } {{} 0}
+    }
 
     test {EXPIRE - Delete on write policy} {
         r del x
diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
index 00d2dd46..a2e8ba9e 100644
--- a/tests/unit/other.tcl
+++ b/tests/unit/other.tcl
@@ -12,20 +12,22 @@ start_server {} {
         r save
     } {OK}
 
-    foreach fuzztype {binary alpha compr} {
-        test "FUZZ stresser with data model $fuzztype" {
-            set err 0
-            for {set i 0} {$i < 10000} {incr i} {
-                set fuzz [randstring 0 512 $fuzztype]
-                r set foo $fuzz
-                set got [r get foo]
-                if {$got ne $fuzz} {
-                    set err [list $fuzz $got]
-                    break
+    tags {"slow"} {
+        foreach fuzztype {binary alpha compr} {
+            test "FUZZ stresser with data model $fuzztype" {
+                set err 0
+                for {set i 0} {$i < 10000} {incr i} {
+                    set fuzz [randstring 0 512 $fuzztype]
+                    r set foo $fuzz
+                    set got [r get foo]
+                    if {$got ne $fuzz} {
+                        set err [list $fuzz $got]
+                        break
+                    }
                 }
-            }
-            set _ $err
-        } {0}
+                set _ $err
+            } {0}
+        }
     }
 
     test {BGSAVE} {