From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Fri, 15 Oct 2010 13:56:16 +0000 (+0200)
Subject: Show output of leaks command on a leak
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/5b12b47df9bfdb92bc6878ee9f9307a2bb413f15

Show output of leaks command on a leak
---

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 93f64928..e801e1f2 100644
--- 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
         }
     }