diff --git a/tests/support/server.tcl b/tests/support/server.tcl index 2c2665b6449f41cbc5f5456f154eeab217e960bf..acbfe73cff46b3a63837df7cbd656ca8b5357194 100644 --- a/tests/support/server.tcl +++ b/tests/support/server.tcl @@ -38,7 +38,9 @@ proc kill_server config { if {[string match {*Darwin*} [exec uname -a]]} { tags {"leaks"} { test "Check for memory leaks (pid $pid)" { - exec leaks $pid + set output {0 leaks} + catch {exec leaks $pid} output + set output } {*0 leaks*} } }