diff options
| author | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-10-15 15:56:16 +0200 |
|---|---|---|
| committer | Pieter Noordhuis <pcnoordhuis@gmail.com> | 2010-10-15 15:56:16 +0200 |
| commit | 5b12b47df9bfdb92bc6878ee9f9307a2bb413f15 (patch) | |
| tree | a7a3d3fc424965eb51c61570dacf39dcc95a133e /tests/support/test.tcl | |
| parent | 00cf82c0bd9e0272a06f086b00a70d5d5d0f5e31 (diff) | |
| download | redis-5b12b47df9bfdb92bc6878ee9f9307a2bb413f15.tar.gz | |
Show output of leaks command on a leak
Diffstat (limited to 'tests/support/test.tcl')
| -rw-r--r-- | tests/support/test.tcl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index 93f64928e..e801e1f22 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 } } |