fix a test timing issue when running the test over valgrind

diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl
index 8eebdc6348eb66547e944d20868915b1ea40f9b8..702c291f9a504e832b68ac50f3385e6afa9df021 100644 (file)
--- a/tests/unit/other.tcl
+++ b/tests/unit/other.tcl
@@ -247,6 +247,7 @@ start_server {tags {"other"}} {
     } {0 0}
 
     test {Perform a final SAVE to leave a clean DB on disk} {
+        waitForBgsave r
         r save
     } {OK}
 }

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 8f58cc5fe316d5ca11bfa8bef4cdedffa4c207b5..ff178db4176b2bf68e489f1dc8024ec90d05b2e5 100644 (file)
--- a/tests/unit/type/list.tcl
+++ b/tests/unit/type/list.tcl
@@ -148,8 +148,11 @@ start_server {
     test "BLPOP with variadic LPUSH" {
         set rd [redis_deferring_client]
         r del blist target
+        if {$::valgrind} {after 100}
         $rd blpop blist 0
+        if {$::valgrind} {after 100}
         assert_equal 2 [r lpush blist foo bar]
+        if {$::valgrind} {after 100}
         assert_equal {blist foo} [$rd read]
         assert_equal bar [lindex [r lrange blist 0 -1] 0]
     }