Show output of leaks command on a leak

2010-10-15 15:56:16 +02:00 · 2010-10-15 15:56:16 +02:00 · 4865ad620b
commit 4865ad620b
parent a2459dd4e7
1 changed files with 3 additions and 1 deletions
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@ -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
        }
    }