--- EV/t/00_load.t	2007/11/08 16:48:54	1.9
+++ EV/t/00_load.t	2009/04/25 14:12:49	1.12
@@ -1,12 +1,20 @@
-BEGIN { $| = 1; print "1..4\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";
-if ($^O eq "linux") {
-   print eval { require EV::DNS       } ? "" : "not ", "ok 2 # $@\n";
-} else {
-   print "ok 2 # skipped on non-gnu/linux\n";
+   print eval { require EV            } ? "" : "not ", "ok 1 # $@\n";
+   print eval { require EV::MakeMaker } ? "" : "not ", "ok 2 # $@\n";
 }
-print eval { require EV::AnyEvent  } ? "" : "not ", "ok 3 # $@\n";
-print eval { require EV::MakeMaker } ? "" : "not ", "ok 4 # $@\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";