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, 1 month 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 *
#	Content
1	BEGIN { $\| = 1; print "1..5\n"; }
2
3	BEGIN {
4	$^W = 0; # work around some bugs in perl
5
6	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";