--- EV/t/01_timer.t	2007/11/22 04:52:24	1.6
+++ EV/t/01_timer.t	2008/05/22 02:44:57	1.7
@@ -19,6 +19,8 @@
    push @timer, EV::timer $t, 0, sub {
       my $now = EV::now;
 
+      EV::default_loop->loop_verify;
+
       print $now + $fudge >= $prev      ? "" : "not ", "ok ", ++$id, " # t0 $i $now + $fudge >= $prev\n";
       print $now + $fudge >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $i $now + $fudge >= $base + $t\n";
 
@@ -36,6 +38,8 @@
    push @periodic, EV::periodic $base + $t, 0, 0, sub {
       my $now = EV::now;
 
+      EV::default_loop->loop_verify;
+
       print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # p0 $i $now >= $prev\n";
       print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # p1 $i $now >= $base + $t\n";