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.1 by root, Thu May 8 21:21:41 2008 UTC vs.
Revision 1.2 by root, Wed Nov 19 10:16:39 2008 UTC

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

Diff Legend

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