--- AnyEvent/t/09_multi.t 2011/08/12 00:53:29 1.4 +++ AnyEvent/t/09_multi.t 2011/08/27 15:59:12 1.7 @@ -14,6 +14,8 @@ } } +$^W = 0; # 5.8.6 bugs + use AnyEvent; use AnyEvent::Util; BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } @@ -41,7 +43,7 @@ # I/O read { my $cv = AE::cv; - my $wt = AE::timer 0.1, 0, $cv; + my $wt = AE::timer 0.01, 0, $cv; my $s = 0; my $wa = AE::io $a, 0, sub { $cv->end; $s |= 1 }; @@ -66,7 +68,7 @@ sysread $a, my $dummy, 1; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.01, 0, $cv; $s = 0; $cv->recv; @@ -77,7 +79,7 @@ # signal { my $cv = AE::cv; - my $wt = AE::timer 0.1, 0, $cv; + my $wt = AE::timer 0.01, 0, $cv; my $s = 0; $cv->begin; my $wa = AE::signal INT => sub { $cv->end; $s |= 1 }; @@ -90,7 +92,7 @@ kill INT => $$; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here? $s = 0; $cv->recv; @@ -98,7 +100,7 @@ print $s == 3 ? "" : "not ", "ok 7 # $s\n"; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.01, 0, $cv; $s = 0; $cv->recv; @@ -111,7 +113,7 @@ # child { my $cv = AE::cv; - my $wt = AE::timer 0.1, 0, $cv; + my $wt = AE::timer 0.01, 0, $cv; my $s = 0; my $pid = fork; @@ -133,7 +135,7 @@ kill 9, $pid; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # cygwin needs ages for this $s = 0; $cv->recv; @@ -143,7 +145,7 @@ print $astatus == 9 && $bstatus == 9 ? "" : "not ", "ok 12 # $astatus == $bstatus == 9\n"; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.01, 0, $cv; $s = 0; $cv->recv;