--- EV/t/01_timer.t	2007/11/17 01:52:50	1.5
+++ EV/t/01_timer.t	2008/05/22 02:44:57	1.7
@@ -5,6 +5,8 @@
 
 use EV;
 
+my $fudge = 0.02; # allow rt and monotonic clock to disagree by this much
+
 my $id = 1;
 my @timer;
 my @periodic;
@@ -17,8 +19,10 @@
    push @timer, EV::timer $t, 0, sub {
       my $now = EV::now;
 
-      print $now >= $prev      ? "" : "not ", "ok ", ++$id, " # t0 $i $now >= $prev\n";
-      print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $i $now >= $base + $t\n";
+      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";
 
       unless ($id % 3) {
          $t *= 0.0625;
@@ -34,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";