… | |
… | |
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; |