From: Peter Rabbitson <ribasushi@cpan.org>
Date: Tue, 27 Apr 2010 14:53:06 +0000 (+0000)
Subject: Better concurrency in test (parent blocks)
X-Git-Tag: v0.08122~100
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fa394969469fd18a6d99798ae0769e160c7e0e56;p=dbsrgits%2FDBIx-Class.git

Better concurrency in test (parent blocks)
---

diff --git a/t/storage/factory_fork.t b/t/storage/factory_fork.t
index 30e1c6f..ea6fd6e 100644
--- a/t/storage/factory_fork.t
+++ b/t/storage/factory_fork.t
@@ -34,9 +34,12 @@ for my $type (qw/PG MYSQL/) {
           skip "Fork failed: $!", 1 if (! defined $pid);
 
           if ($pid) {
-            sleep 1;
+            note "Parent $$ sleeping...";
+            wait();
+            note "Parent $$ woken up after child $pid exit";
           }
           else {
+            note "Child $$ terminating";
             exit 0;
           }