Show output of leaks command on a leak

This commit is contained in:
Pieter Noordhuis 2010-10-15 15:56:16 +02:00
parent 00cf82c0bd
commit 5b12b47df9

View File

@ -90,8 +90,10 @@ proc test {name code {okpattern notspecified}} {
}
}
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 $output
exit 1
}
}