--- AnyEvent/t/63_eventlib_03_child.t 2009/07/08 05:30:55 1.1 +++ AnyEvent/t/63_eventlib_03_child.t 2009/07/09 22:49:18 1.2 @@ -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";