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