--- EV/t/00_load.t	2007/12/05 13:54:37	1.11
+++ EV/t/00_load.t	2010/10/21 15:13:42	1.13
@@ -1,6 +1,20 @@
-BEGIN { $| = 1; print "1..2\n"; }
+BEGIN { $| = 1; print "1..5\n"; }
 
-$^W = 0; # work around some bugs in perl
+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";
+   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::run;
+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";