the test runs less iterations of slow tests if no --accurate is given.

diff --git a/tests/integration/replication-3.tcl b/tests/integration/replication-3.tcl
index 80140f20d18d878b8fb0d20f4c14d6dd12d67945..e660bf4e526c2f87fcaed8418e09e4118110b359 100644 (file)
--- a/tests/integration/replication-3.tcl
+++ b/tests/integration/replication-3.tcl
@@ -6,8 +6,10 @@ start_server {tags {"repl"}} {
             s -1 role
         } {slave}
 
+        if {$::accurate} {set numops 50000} else {set numops 5000}
+
         test {MASTER and SLAVE consistency with expire} {
-            createComplexDataset r 50000 useexpire
+            createComplexDataset r $numops useexpire
             after 4000 ;# Make sure everything expired before taking the digest
             r keys *   ;# Force DEL syntesizing to slave
             after 1000 ;# Wait another second. Now everything should be fine.

diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
index d2663572f6dab3df0605cdd6a532eac46eaa35d4..20cefc6a0131492ecc62eca47f6e5f66c30fb521 100644 (file)
--- a/tests/unit/other.tcl
+++ b/tests/unit/other.tcl
@@ -13,10 +13,11 @@ start_server {tags {"other"}} {
     } {OK}
 
     tags {slow} {
+        if {$::accurate} {set iterations 10000} else {set iterations 1000}
         foreach fuzztype {binary alpha compr} {
             test "FUZZ stresser with data model $fuzztype" {
                 set err 0
-                for {set i 0} {$i < 10000} {incr i} {
+                for {set i 0} {$i < $iterations} {incr i} {
                     set fuzz [randstring 0 512 $fuzztype]
                     r set foo $fuzz
                     set got [r get foo]
@@ -48,9 +49,10 @@ start_server {tags {"other"}} {
 
     tags {consistency} {
         if {![catch {package require sha1}]} {
+            if {$::accurate} {set numops 10000} else {set numops 1000}
             test {Check consistency of different data types after a reload} {
                 r flushdb
-                createComplexDataset r 10000
+                createComplexDataset r $numops
                 set dump [csvdump r]
                 set sha1 [r debug digest]
                 r debug reload

diff --git a/tests/unit/type/list-3.tcl b/tests/unit/type/list-3.tcl
index 8fdb226ec54013c2f82518c8f442d5a3b6eae3bd..9410022fdc8495d2cfe25d975ff14576dba3be11 100644 (file)
--- a/tests/unit/type/list-3.tcl
+++ b/tests/unit/type/list-3.tcl
@@ -16,7 +16,8 @@ start_server {
 
     tags {slow} {
         test {ziplist implementation: value encoding and backlink} {
-            for {set j 0} {$j < 100} {incr j} {
+            if {$::accurate} {set iterations 100} else {set iterations 10}
+            for {set j 0} {$j < $iterations} {incr j} {
                 r del l
                 set l {}
                 for {set i 0} {$i < 200} {incr i} {
@@ -58,7 +59,7 @@ start_server {
                     }
                 }
                 assert_equal [llength $l] [r llen l]
-                for {set i 0} {$i < 200} {incr i} {
+                for {set i 0} {$i < $len} {incr i} {
                     if {[lindex $l $i] ne [r lindex l $i]} {
                         assert_equal [lindex $l $i] [r lindex l $i]
                     }

diff --git a/tests/unit/type/zset.tcl b/tests/unit/type/zset.tcl
index 46d40f6fb10ffeeec7931e6bec8f646f985e47de..41f5f588f557f8a9aa9ee4468cf911afcaa2285b 100644 (file)
--- a/tests/unit/type/zset.tcl
+++ b/tests/unit/type/zset.tcl
@@ -527,7 +527,7 @@ start_server {tags {"zset"}} {
         } elseif {$encoding == "skiplist"} {
             r config set zset-max-ziplist-entries 0
             r config set zset-max-ziplist-value 0
-            set elements 1000
+            if {$::accurate} {set elements 1000} else {set elements 100}
         } else {
             puts "Unknown sorted set encoding"
             exit