1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
BEGIN {
# many testers have totally overloaded machines with virtual machines
# running backwards in time etc. etc.
if (exists $ENV{AUTOMATED_TESTING}) {
print "1..0 # Skipped: Too many broken cpan tester setups.\n";
exit;
}
}
BEGIN { $| = 1; print "1..6002\n"; }
no warnings;
use strict;
use EV;
my $fudge = 0.02; # allow rt and monotonic clock to disagree by this much
my $id = 1;
my @timer;
my @periodic;
my $base = EV::now;
my $prev = EV::now;
for my $i (1..1000) {
my $t = $i * $i * 1.735435336; $t -= int $t;
push @timer, EV::timer $t, 0, sub {
my $now = EV::now;
EV::default_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;
$_[0]->set ($t);
$_[0]->start;
$t = $now + $t - $base;
}
$prev = $now;
};
my $t = $i * $i * 1.375475771; $t -= int $t;
push @periodic, EV::periodic $base + $t, 0, 0, sub {
my $now = EV::now;
EV::default_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";
unless ($id % 3) {
$t *= 1.0625;
$_[0]->set ($base + $t);
$_[0]->start;
}
$prev = $now;
};
}
print "ok 1\n";
EV::run;
print "ok 6002\n";
|
