--- Coro/t/09_timer.t 2001/11/27 02:51:04 1.2 +++ Coro/t/09_timer.t 2002/02/18 21:25:02 1.3 @@ -15,7 +15,7 @@ new Coro::Timer at => time + 1, cb => sub { print "ok 4\n"; }; -new Coro::Timer after => 2, cb => sub { +new Coro::Timer after => 3, cb => sub { $signal->send; }; new Coro::Timer after => 0, cb => sub { @@ -24,12 +24,12 @@ (new Coro::Timer after => 0, cb => sub { print "not ok 4\n"; })->cancel; -new Coro::Timer at => time + 3, cb => sub { +new Coro::Timer at => time + 5, cb => sub { print "ok 7\n"; $Coro::main->ready; }; -print $signal->timed_wait(1) ? "not ok" : "ok", " 5\n"; -print $signal->timed_wait(1) ? "ok" : "not ok", " 6\n"; +print $signal->timed_wait(2) ? "not ok" : "ok", " 5\n"; +print $signal->timed_wait(2) ? "ok" : "not ok", " 6\n"; schedule; print "ok 8\n";