X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/4d7e1255193702937daabf0dbaabbb6876bf5547..206d62710c2cf35ae036f55d59c8a523ad22abd8:/tests/support/util.tcl

diff --git a/tests/support/util.tcl b/tests/support/util.tcl
index 93cb750f..a39a2134 100644
--- a/tests/support/util.tcl
+++ b/tests/support/util.tcl
@@ -52,8 +52,10 @@ proc status {r property} {
 proc waitForBgsave r {
     while 1 {
         if {[status r bgsave_in_progress] eq 1} {
-            puts -nonewline "\nWaiting for background save to finish... "
-            flush stdout
+            if {$::verbose} {
+                puts -nonewline "\nWaiting for background save to finish... "
+                flush stdout
+            }
             after 1000
         } else {
             break
@@ -64,8 +66,10 @@ proc waitForBgsave r {
 proc waitForBgrewriteaof r {
     while 1 {
         if {[status r bgrewriteaof_in_progress] eq 1} {
-            puts -nonewline "\nWaiting for background AOF rewrite to finish... "
-            flush stdout
+            if {$::verbose} {
+                puts -nonewline "\nWaiting for background AOF rewrite to finish... "
+                flush stdout
+            }
             after 1000
         } else {
             break