EV/t/00_load.t

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

BEGIN {
   $^W = 0; # work around some bugs in perl

   print eval { require EV            } ? "" : "not ", "ok 1 # $@\n";
   print eval { require EV::MakeMaker } ? "" : "not ", "ok 2 # $@\n";
}

my $w = EV::idle sub { print "not ok 3\n"; $_[0]->stop };
$w->feed_event (EV::CUSTOM);
$w->stop;
EV::loop;
print "ok 3\n";

my $w = EV::idle sub { print "ok 4\n"; $_[0]->stop };
$w->feed_event (EV::CUSTOM);
$w->clear_pending;
EV::loop;
print "ok 5\n";
Revision:	1.12
Committed:	Sat Apr 25 14:12:49 2009 UTC (15 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_7, rel-3_6, rel-3_9, rel-3_8
Changes since 1.11:	+18 -4 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.12	BEGIN { $\| = 1; print "1..5\n"; }
2	root	1.3
3	root	1.12	BEGIN {
4			$^W = 0; # work around some bugs in perl
5	root	1.8
6	root	1.12	print eval { require EV } ? "" : "not ", "ok 1 # $@\n";
7			print eval { require EV::MakeMaker } ? "" : "not ", "ok 2 # $@\n";
8			}
9
10			my $w = EV::idle sub { print "not ok 3\n"; $_[0]->stop };
11			$w->feed_event (EV::CUSTOM);
12			$w->stop;
13			EV::loop;
14			print "ok 3\n";
15
16			my $w = EV::idle sub { print "ok 4\n"; $_[0]->stop };
17			$w->feed_event (EV::CUSTOM);
18			$w->clear_pending;
19			EV::loop;
20			print "ok 5\n";