--- AnyEvent/t/03_child.t 2009/05/13 15:19:43 1.11 +++ AnyEvent/t/03_child.t 2009/07/09 22:37:53 1.13 @@ -60,13 +60,19 @@ $cv2->broadcast; }); -my $error = AnyEvent->timer (after => 5, cb => sub { +my $error = AnyEvent->timer (after => 15, cb => sub { print <timer (after => 14, cb => sub { + print "not ok 5 # inter\n"; + print "not ok 6 # inter\n"; + $cv2->send; +}); + $cv2->wait; print "ok 7\n";