The coderef that kills the test redis-server returns true if it died

Signed-off-by: Pedro Melo <melo@simplicidade.org>
PerlRedis · Jan 22, 2013 · a4e18f4 · a4e18f4
1 parent 7839e81
commit a4e18f4
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/t/tlib/Test/SpawnRedisServer.pm b/t/tlib/Test/SpawnRedisServer.pm
@@ -99,6 +99,8 @@ sub spawn_server {
       unlink("redis-server-$addr.log");
       unlink('dump.rdb');
       $alive = 0;
+
+      return !$failed;
     };
 
     return $version => $c;