--- AnyEvent/t/03_child.t 2006/12/11 01:16:09 1.1 +++ AnyEvent/t/03_child.t 2007/11/02 19:20:36 1.2 @@ -1,5 +1,5 @@ $|=1; -BEGIN { print "1..4\n" } +BEGIN { print "1..5\n" } use AnyEvent; @@ -26,7 +26,18 @@ $cv->wait; -print "ok 4\n"; +fork || exit 7; + +my $cv2 = AnyEvent->condvar; + +my $w2 = AnyEvent->child (pid => 0, cb => sub { + print 7 == ($? >> 8) ? "" : "not ", "ok 4\n"; + $cv2->broadcast; +}); + +$cv2->wait; + +print "ok 5\n";