EV/t/01_timer.t

BEGIN { $| = 1; print "1..3002\n"; }

use EV;

my $id = 1;
my @timer;

my $base = EV::now;
my $prev = EV::now;

for (1..1000) {
   my $t = $_ * $_ * 1.735435336; $t -= int $t;
   push @timer, EV::timer $t, 0, sub {
      print EV::now >= $prev      ? "" : "not ", "ok ", ++$id, " # a ", EV::now, " >= ", $prev, "\n";
      print EV::now >= $base + $t ? "" : "not ", "ok ", ++$id, " # b ", EV::now, " >= ", $base + $t, "\n";

      $prev = EV::now;

      unless ($id % 3) {
         $_[0]->set ($t * 0.0625);
         $t *= 1.0625;
         $_[0]->start;
      }
   };
}

print "ok 1\n";
EV::loop;
print "ok 3002\n";

Revision:	1.2
Committed:	Sat Nov 17 01:41:33 2007 UTC (18 years, 11 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.1:	+4 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..3002\n"; }
2
3			use EV;
4
5			my $id = 1;
6			my @timer;
7
8			my $base = EV::now;
9			my $prev = EV::now;
10
11			for (1..1000) {
12			my $t = $_ * $_ * 1.735435336; $t -= int $t;
13			push @timer, EV::timer $t, 0, sub {
14	root	1.2	print EV::now >= $prev ? "" : "not ", "ok ", ++$id, " # a ", EV::now, " >= ", $prev, "\n";
15			print EV::now >= $base + $t ? "" : "not ", "ok ", ++$id, " # b ", EV::now, " >= ", $base + $t, "\n";
16
17			$prev = EV::now;
18	root	1.1
19			unless ($id % 3) {
20			$_[0]->set ($t * 0.0625);
21			$t *= 1.0625;
22			$_[0]->start;
23			}
24			};
25			}
26
27			print "ok 1\n";
28			EV::loop;
29			print "ok 3002\n";
30