--- AnyEvent/t/01_basic.t 2006/11/24 14:40:13 1.1 +++ AnyEvent/t/01_basic.t 2010/12/29 04:16:33 1.6 @@ -1,7 +1,7 @@ -$|=1; -BEGIN { print "1..6\n" } - use AnyEvent; +BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } + +$| = 1; print "1..6\n"; print "ok 1\n"; @@ -13,7 +13,7 @@ print "ok 3\n"; -AnyEvent->timer (after => 0.05, cb => sub { print "not ok 5\n" }); +AnyEvent->timer (after => 0.01, cb => sub { print "not ok 5\n" }); print "ok 4\n";