--- AnyEvent/t/69_ev_01_basic.t 2008/10/02 08:43:58 1.1 +++ AnyEvent/t/69_ev_01_basic.t 2013/07/30 23:14:34 1.7 @@ -1,9 +1,12 @@ -$|=1; -BEGIN { unless (eval "require EV") { print "1..0 # skip because EV isn't installed"; exit } } -BEGIN { print "1..6\n" } - use AnyEvent; -use AnyEvent::Impl::EV; + + BEGIN { $^W = 0 } + 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::EV;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::EV not loadable\n}), exit 0) } + + + +$| = 1; print "1..6\n"; print "ok 1\n";