tag memory leak check on kill server as "leaks"

diff --git a/tests/support/server.tcl b/tests/support/server.tcl
index 07e5e8ad772b1e0dbcd534e1531b8ccb2f2f099b..0c9f48ce9cd30caec2db51b325133836f94cde9f 100644 (file)
--- 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*}
+                }
             }
         }
     }