--- AnyEvent/t/61_fltk_09_multi.t 2011/08/12 18:41:27 1.1 +++ AnyEvent/t/61_fltk_09_multi.t 2012/03/30 04:22:22 1.6 @@ -14,11 +14,13 @@ } } +$^W = 0; # 5.8.6 bugs + use AnyEvent; 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) } @@ -26,6 +28,8 @@ print "ok 1\n"; +$AnyEvent::MAX_SIGNAL_LATENCY = 0.05; + my ($a, $b) = AnyEvent::Util::portable_socketpair; # I/O write @@ -94,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; @@ -110,8 +114,6 @@ print $s == 0 ? "" : "not ", "ok 8 # $s\n"; } -$AnyEvent::MAX_SIGNAL_LATENCY = 0.2; - # child { my $cv = AE::cv; @@ -137,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;