--- AnyEvent/t/09_multi.t 2011/08/12 00:53:29 1.4 +++ AnyEvent/t/09_multi.t 2011/08/12 18:41:26 1.5 @@ -41,7 +41,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 +66,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 +77,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 +90,7 @@ kill INT => $$; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.01, 0, $cv; $s = 0; $cv->recv; @@ -98,7 +98,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 +111,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 +133,7 @@ kill 9, $pid; $cv = AE::cv; - $wt = AE::timer 0.1, 0, $cv; + $wt = AE::timer 0.01, 0, $cv; $s = 0; $cv->recv; @@ -143,7 +143,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;