ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/EV/t/01_timer.t
(Generate patch)

Comparing EV/t/01_timer.t (file contents):
Revision 1.4 by root, Sat Nov 17 01:51:16 2007 UTC vs.
Revision 1.6 by root, Thu Nov 22 04:52:24 2007 UTC

1BEGIN { $| = 1; print "1..6002\n"; } 1BEGIN { $| = 1; print "1..6002\n"; }
2 2
3no warnings; 3no warnings;
4use strict;
4 5
5use EV; 6use EV;
7
8my $fudge = 0.02; # allow rt and monotonic clock to disagree by this much
6 9
7my $id = 1; 10my $id = 1;
8my @timer; 11my @timer;
9my @periodic; 12my @periodic;
10 13
14for my $i (1..1000) { 17for my $i (1..1000) {
15 my $t = $i * $i * 1.735435336; $t -= int $t; 18 my $t = $i * $i * 1.735435336; $t -= int $t;
16 push @timer, EV::timer $t, 0, sub { 19 push @timer, EV::timer $t, 0, sub {
17 my $now = EV::now; 20 my $now = EV::now;
18 21
19 print $now >= $prev ? "" : "not ", "ok ", ++$id, " # t0 $i $now >= $prev\n"; 22 print $now + $fudge >= $prev ? "" : "not ", "ok ", ++$id, " # t0 $i $now + $fudge >= $prev\n";
20 print $now >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $i $now >= $base + $t\n"; 23 print $now + $fudge >= $base + $t ? "" : "not ", "ok ", ++$id, " # t1 $i $now + $fudge >= $base + $t\n";
21 24
22 unless ($id % 3) { 25 unless ($id % 3) {
23 $t *= 0.0625; 26 $t *= 0.0625;
24 $_[0]->set ($t); 27 $_[0]->set ($t);
25 $_[0]->start; 28 $_[0]->start;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines