--- AnyEvent/t/04_condvar.t 2008/05/10 21:47:28 1.1 +++ AnyEvent/t/04_condvar.t 2009/07/18 00:05:29 1.3 @@ -1,11 +1,8 @@ -$|=1; -BEGIN { - print "1..18\n" -} - use AnyEvent; use AnyEvent::Impl::Perl; +$| = 1; print "1..21\n"; + print "ok 1\n"; { @@ -62,3 +59,14 @@ print $@ =~ /^kill / ? "" : "not ", "ok 18 # $@\n"; } +{ + my $cv = AnyEvent->condvar; + + print "ok 19\n"; + my $t = AnyEvent->timer (after => 0, cb => $cv); + + print "ok 20\n"; + $cv->recv; + print "ok 21\n"; +} +