[Bast-commits] r9234 - DBIx-Class/0.08/trunk/t/storage

[ribasushi at dev.catalyst.perl.org]

Author: ribasushi
Date: 2010-04-27 15:53:06 +0100 (Tue, 27 Apr 2010)
New Revision: 9234

Modified:
   DBIx-Class/0.08/trunk/t/storage/factory_fork.t
Log:
Better concurrency in test (parent blocks)

Modified: DBIx-Class/0.08/trunk/t/storage/factory_fork.t
===================================================================
--- DBIx-Class/0.08/trunk/t/storage/factory_fork.t	2010-04-27 14:53:06 UTC (rev 9233)
+++ DBIx-Class/0.08/trunk/t/storage/factory_fork.t	2010-04-27 14:53:06 UTC (rev 9234)
@@ -34,9 +34,12 @@
           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;
           }