| Current Path : /usr/share/doc/perl-Event/t/ |
| Current File : //usr/share/doc/perl-Event/t/bored.t |
# -*- perl -*-
use Test; plan test => 5;
use Event;
# $Event::DebugLevel = 3;
my $really_bored;
my $w;
$w = Event->timer(after => .5, parked => 1);
ok !defined $w->cb;
eval { $w->now() };
ok $@ =~ /callback unset/;
$w->cb(sub {
if (!$really_bored) {
$w->again;
$really_bored='yes';
} else {
ok 1;
}
});
ok ref $w->cb, 'CODE';
$w->start;
ok !defined Event::loop();