1# -*-perl-*- ASAP 2 3use Test; plan tests => 13; 4use Event qw(loop unloop); 5 6# $Event::DebugLevel = 3; 7 8my $c=0; 9Event->idle(repeat => 1, cb => sub { 10 ++$c; 11 unloop if $c >= 2; 12 }) 13 ->now; 14my $tm = Event->timer(after => 10, cb => sub { ok 1 }); 15ok !$tm->pending; 16$tm->stop; 17$tm->now; 18 19ok $tm->pending; 20my @e = $tm->pending; 21ok @e, 1; 22ok ref $e[0], 'Event::Event'; 23ok $e[0]->hits; 24ok $e[0]->w, $tm; 25 26$tm->prio($tm->prio + 1); 27$tm->now; 28$tm->prio($tm->prio - 1); 29$tm->now; 30$tm->now; 31 32@e = $tm->pending; # in order of occurance (FIFO) 33ok join('', map { $_->prio } @e), join('', $tm->prio, $tm->prio+1, 34 $tm->prio, $tm->prio); 35 36loop; 37ok $c, 2; 38ok $tm->cbtime; 39