--- AnyEvent/t/61_fltk_09_multi.t 2011/08/26 03:34:00 1.2 +++ AnyEvent/t/61_fltk_09_multi.t 2012/03/30 04:22:22 1.6 @@ -20,7 +20,7 @@ use AnyEvent::Util; BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) } - BEGIN { eval q{use AnyEvent::Impl::FLTK2;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::FLTK2 not loadable\n}), exit 0) } + BEGIN { eval q{use AnyEvent::Impl::FLTK;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::FLTK not loadable\n}), exit 0) } @@ -28,6 +28,8 @@ print "ok 1\n"; +$AnyEvent::MAX_SIGNAL_LATENCY = 0.05; + my ($a, $b) = AnyEvent::Util::portable_socketpair; # I/O write @@ -96,7 +98,7 @@ kill INT => $$; $cv = AE::cv; - $wt = AE::timer 0.01, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # maybe OS X needs more time here? or maybe some buggy arm kernel? $s = 0; $cv->recv; @@ -112,8 +114,6 @@ print $s == 0 ? "" : "not ", "ok 8 # $s\n"; } -$AnyEvent::MAX_SIGNAL_LATENCY = 0.2; - # child { my $cv = AE::cv; @@ -139,7 +139,7 @@ kill 9, $pid; $cv = AE::cv; - $wt = AE::timer 0.01, 0, $cv; + $wt = AE::timer 0.2, 0, $cv; # cygwin needs ages for this $s = 0; $cv->recv;