X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/6e0e5bedd9c3a4bf0f53f43c427c88e2866bda0a..bb039e853df6c2754885c5cfb82dc3f7ea7d25b5:/tests/support/server.tcl

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 551e24d1..0c9f48ce 100644
--- a/tests/support/server.tcl
+++ b/tests/support/server.tcl
@@ -33,9 +33,11 @@ proc kill_server config {
     if {![dict exists $config "skipleaks"]} {
         catch {
             if {[string match {*Darwin*} [exec uname -a]]} {
-                test "Check for memory leaks (pid $pid)" {
-                    exec leaks $pid
-                } {*0 leaks*}
+                tags {"leaks"} {
+                    test "Check for memory leaks (pid $pid)" {
+                        exec leaks $pid
+                    } {*0 leaks*}
+                }
             }
         }
     }
@@ -236,11 +238,10 @@ proc start_server {options {code undefined}} {
             exit 1
         }
 
+        set ::tags [lrange $::tags 0 end-[llength $tags]]
         kill_server $srv
     } else {
+        set ::tags [lrange $::tags 0 end-[llength $tags]]
         set _ $srv
     }
-
-    # remove tags
-    set ::tags [lrange $::tags 0 end-[llength $tags]]
 }