--- AnyEvent/t/63_eventlib_03_child.t 2009/07/08 05:30:55 1.1 +++ AnyEvent/t/63_eventlib_03_child.t 2009/07/17 22:05:12 1.3 @@ -24,6 +24,8 @@ use AnyEvent; use AnyEvent::Impl::EventLib; +$AnyEvent::MAX_SIGNAL_LATENCY = 1; + print "ok 1\n"; AnyEvent::detect; # force-load event model @@ -60,13 +62,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";