--- AnyEvent/t/04_condvar.t 2008/05/10 21:47:28 1.1 +++ AnyEvent/t/04_condvar.t 2008/05/24 17:48:38 1.2 @@ -1,6 +1,6 @@ $|=1; BEGIN { - print "1..18\n" + print "1..21\n" } use AnyEvent; @@ -62,3 +62,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"; +} +