From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Fri, 14 May 2010 15:49:39 +0000 (+0200)
Subject: check for memory leaks before killing a server
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/239515bccea55b34ba5d706741894b605cb6b3d1?hp=--cc

check for memory leaks before killing a server
---

239515bccea55b34ba5d706741894b605cb6b3d1
diff --git a/test/support/server.tcl b/test/support/server.tcl
index 62d9ec9e..53ca4683 100644
--- a/test/support/server.tcl
+++ b/test/support/server.tcl
@@ -10,6 +10,15 @@ proc error_and_quit {config_file error} {
 proc kill_server config {
     set pid [dict get $config pid]
 
+    # check for leaks
+    catch {
+        if {[string match {*Darwin*} [exec uname -a]]} {
+            test {Check for memory leaks} {
+                exec leaks $pid
+            } {*0 leaks*}
+        }
+    }
+
     # kill server and wait for the process to be totally exited
     exec kill $pid
     while 1 {