EV/t/05_priority.t

BEGIN { $| = 1; print "1..9\n"; }

no warnings;
use strict;

use EV;

my $t0 = EV::timer -1, 0, sub { print "ok 4\n" };
my $t_ = EV::timer -1, 0, sub { print "ok 5\n" }; $t_->priority (-1);
my $t1 = EV::timer -1, 0, sub { print "ok 3\n" }; $t1->priority ( 1);

my $i2 = EV::idle sub { print EV::iteration == 1 ? "" : "not ", "ok 2\n"; $_[0]->stop }; $i2->priority (10);
my $i0 = EV::idle sub { print EV::iteration == 3 ? "" : "not ", "ok 7\n"; $_[0]->stop };
my $i1 = EV::idle sub { print EV::iteration == 2 ? "" : "not ", "ok 6\n"; $_[0]->stop }; $i1->priority ( 1);
my $i_ = EV::idle sub { print EV::iteration == 4 ? "" : "not ", "ok 8\n"; $_[0]->stop }; $i_->priority (-1);

print "ok 1\n";
EV::loop;
print "ok 9\n";
Revision:	1.3
Committed:	Tue Mar 16 20:43:05 2010 UTC (14 years, 3 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.2:	+4 -4 lines
Log Message:	* empty log message *
#	Content
1	BEGIN { $\| = 1; print "1..9\n"; }
2
3	no warnings;
4	use strict;
5
6	use EV;
7
8	my $t0 = EV::timer -1, 0, sub { print "ok 4\n" };
9	my $t_ = EV::timer -1, 0, sub { print "ok 5\n" }; $t_->priority (-1);
10	my $t1 = EV::timer -1, 0, sub { print "ok 3\n" }; $t1->priority ( 1);
11
12	my $i2 = EV::idle sub { print EV::iteration == 1 ? "" : "not ", "ok 2\n"; $_[0]->stop }; $i2->priority (10);
13	my $i0 = EV::idle sub { print EV::iteration == 3 ? "" : "not ", "ok 7\n"; $_[0]->stop };
14	my $i1 = EV::idle sub { print EV::iteration == 2 ? "" : "not ", "ok 6\n"; $_[0]->stop }; $i1->priority ( 1);
15	my $i_ = EV::idle sub { print EV::iteration == 4 ? "" : "not ", "ok 8\n"; $_[0]->stop }; $i_->priority (-1);
16
17	print "ok 1\n";
18	EV::loop;
19	print "ok 9\n";