--- EV/t/06_loop_once.t 2007/12/21 05:30:25 1.1 +++ EV/t/06_loop_once.t 2008/11/19 10:16:39 1.2 @@ -9,7 +9,7 @@ my $l = new EV::Loop; for my $i (3..5) { - $l->once (undef, 0, $i * 0.2, sub { + $l->once (undef, 0, ($i - 3) * 0.5 + 1.0, sub { print $_[0] == EV::TIMEOUT ? "" : "not ", "ok $i\n"; }); }