Commit 5b12b47d authored by Pieter Noordhuis's avatar Pieter Noordhuis
Browse files

Show output of leaks command on a leak

parent 00cf82c0
...@@ -90,8 +90,10 @@ proc test {name code {okpattern notspecified}} { ...@@ -90,8 +90,10 @@ proc test {name code {okpattern notspecified}} {
} }
} }
if {$::traceleaks} { if {$::traceleaks} {
if {![string match {*0 leaks*} [exec leaks redis-server]]} { set output [exec leaks redis-server]
if {![string match {*0 leaks*} $output]} {
puts "--------- Test $::testnum LEAKED! --------" puts "--------- Test $::testnum LEAKED! --------"
puts $output
exit 1 exit 1
} }
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment