[ViewVC] Diff of: cvs/AnyEvent/t/03

Comparing AnyEvent/t/03_child.t (file contents):
Revision 1.13 by root, Thu Jul 9 22:37:53 2009 UTC vs.
Revision 1.14 by root, Fri Jul 17 22:05:12 2009 UTC

 use POSIX ();
 use AnyEvent;
 use AnyEvent::Impl::Perl;
+$AnyEvent::MAX_SIGNAL_LATENCY = 1;
 print "ok 1\n";
 AnyEvent::detect; # force-load event model
    print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n";
    print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n";
    $cv2->broadcast;
 });
-my $error = AnyEvent->timer (after => 15, cb => sub {
+my $error = AnyEvent->timer (after => 5, cb => sub {
    print <<EOF;
 Bail out! No child exit detected. This is either a bug in AnyEvent or a bug in your Perl (mostly some windows distributions suffer from that): child watchers might not work properly on this platform. You can force installation of this module if you do not rely on child watchers, or you could upgrade to a working version of Perl for your platform.\n";
 EOF
    exit 0;
-});
-my $inter = AnyEvent->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";

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines