X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F20.core.t;h=f3bda2c9b56080e139e79d838398b0e99297764e;hb=1474b8d3db6aeb45b37592dc823c468a5b3f3c73;hp=ce4daff0460436518e24f385686d08657a0b416e;hpb=b3e71e62419c3530e8ff1de212ab5e139f056f8f;p=gitmo%2FMooseX-Daemonize.git

diff --git a/t/20.core.t b/t/20.core.t
index ce4daff..f3bda2c 100644
--- a/t/20.core.t
+++ b/t/20.core.t
@@ -87,7 +87,14 @@ if (DEBUG) {
 }
 kill INT => $p->pid;
 diag "killed $pid" if DEBUG;
-sleep(2);
+
+# give the process time to be killed on slow/loaded systems
+for (1..10) {
+    last unless kill 0 => $pid;
+    # sleep a little before retrying
+    sleep(2);
+}
+
 if (DEBUG) {
     diag `ps $pid`;
     diag "-------";