Show output of leaks command on a leak

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 93f64928e11b234092ed6bbab33a1c85f9a7b6ef..e801e1f228ea91946dd8d68ae4bfd722bcdcf52a 100644 (file)
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -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
         }
     }