--- AnyEvent/t/03_child.t 2009/07/09 22:37:53 1.13 +++ AnyEvent/t/03_child.t 2009/07/17 22:05:12 1.14 @@ -24,6 +24,8 @@ use AnyEvent; use AnyEvent::Impl::Perl; +$AnyEvent::MAX_SIGNAL_LATENCY = 1; + print "ok 1\n"; AnyEvent::detect; # force-load event model @@ -60,19 +62,13 @@ $cv2->broadcast; }); -my $error = AnyEvent->timer (after => 15, cb => sub { +my $error = AnyEvent->timer (after => 5, 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";