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

Comparing EV/t/09_brandon.t (file contents):
Revision 1.4 by root, Wed Apr 15 17:49:27 2009 UTC vs.
Revision 1.5 by root, Sat Aug 22 22:07:59 2009 UTC

… …
12use strict; 12use strict;
13 13
14use EV; 14use EV;
15 15
16{ 16{
17 my $a = EV::timer 0.6, 0, sub { print "not ok 2\n"; EV::unloop }; 17 my $a = EV::timer 1.6, 0, sub { print "not ok 2\n"; EV::unloop };
18 my $b = EV::timer 0.3, 0, sub { print "ok 2\n"; EV::unloop }; 18 my $b = EV::timer 0.3, 0, sub { print "ok 2\n"; EV::unloop };
19 19
20 print "ok 1\n"; 20 print "ok 1\n";
21 EV::loop; 21 EV::loop;
22 print "ok 3\n"; 22 print "ok 3\n";
23} 23}
24 24
25{ 25{
26 my $b = EV::timer 0.3, 0, sub { print "ok 5\n"; EV::unloop }; 26 my $b = EV::timer 0.3, 0, sub { print "ok 5\n"; EV::unloop };
27 my $a = EV::timer 0.6, 0, sub { print "not ok 5\n"; EV::unloop }; 27 my $a = EV::timer 1.6, 0, sub { print "not ok 5\n"; EV::unloop };
28 28
29 print "ok 4\n"; 29 print "ok 4\n";
30 EV::loop; 30 EV::loop;
31 print "ok 6\n"; 31 print "ok 6\n";
32} 32}
33 33
34{ 34{
35 my $a = EV::timer 0.9, 0, sub { print "not ok 8\n"; EV::unloop }; 35 my $a = EV::timer 1.9, 0, sub { print "not ok 8\n"; EV::unloop };
36 my $b = EV::timer 0.6, 0, sub { print "not ok 8\n"; EV::unloop }; 36 my $b = EV::timer 1.6, 0, sub { print "not ok 8\n"; EV::unloop };
37 my $c = EV::timer 0.3, 0, sub { print "ok 8\n"; EV::unloop }; 37 my $c = EV::timer 0.3, 0, sub { print "ok 8\n"; EV::unloop };
38 38
39 print "ok 7\n"; 39 print "ok 7\n";
40 EV::loop; 40 EV::loop;
41 print "ok 9\n"; 41 print "ok 9\n";
42} 42}
43{ 43{
44 44
45 my $a = EV::timer 0.6, 0, sub { print "not ok 11\n"; EV::unloop }; 45 my $a = EV::timer 1.6, 0, sub { print "not ok 11\n"; EV::unloop };
46 my $b = EV::timer 0.3, 0, sub { print "ok 11\n"; EV::unloop }; 46 my $b = EV::timer 0.3, 0, sub { print "ok 11\n"; EV::unloop };
47 my $c = EV::timer 0.9, 0, sub { print "not ok 11\n"; EV::unloop }; 47 my $c = EV::timer 1.9, 0, sub { print "not ok 11\n"; EV::unloop };
48 48
49 print "ok 10\n"; 49 print "ok 10\n";
50 EV::loop; 50 EV::loop;
51 print "ok 12\n"; 51 print "ok 12\n";
52} 52}

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines