--- EV/t/00_load.t	2007/10/26 09:19:48	1.1
+++ EV/t/00_load.t	2010/10/21 15:13:42	1.13
@@ -1,5 +1,20 @@
-BEGIN { $| = 1; print "1..1\n"; }
-END {print "not ok 1\n" unless $loaded;}
-use Libevent;
-$loaded = 1;
-print "ok 1\n";
+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::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";