| … | |
… | |
| 9 | my $prev = EV::now; |
9 | my $prev = EV::now; |
| 10 | |
10 | |
| 11 | for (1..1000) { |
11 | for (1..1000) { |
| 12 | my $t = $_ * $_ * 1.735435336; $t -= int $t; |
12 | my $t = $_ * $_ * 1.735435336; $t -= int $t; |
| 13 | push @timer, EV::timer $t, 0, sub { |
13 | push @timer, EV::timer $t, 0, sub { |
| 14 | print EV::now >= $prev ? "" : "not ", "ok ", ++$id, "\n"; |
14 | print EV::now >= $prev ? "" : "not ", "ok ", ++$id, " # a ", EV::now, " >= ", $prev, "\n"; |
| 15 | print EV::now >= $base + $t ? "" : "not ", "ok ", ++$id, "\n"; |
15 | print EV::now >= $base + $t ? "" : "not ", "ok ", ++$id, " # b ", EV::now, " >= ", $base + $t, "\n"; |
|
|
16 | |
|
|
17 | $prev = EV::now; |
| 16 | |
18 | |
| 17 | unless ($id % 3) { |
19 | unless ($id % 3) { |
| 18 | $_[0]->set ($t * 0.0625); |
20 | $_[0]->set ($t * 0.0625); |
| 19 | $t *= 1.0625; |
21 | $t *= 1.0625; |
| 20 | $_[0]->start; |
22 | $_[0]->start; |
