EV/t/09_brandon.t

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

# a surprisingly effective test by brandon black

no warnings;
use strict;

use EV;

{
   my $a = EV::timer 0.2, 0, sub { print "not ok 2\n"; EV::unloop };
   my $b = EV::timer 0.1, 0, sub { print "ok 2\n"; EV::unloop };

   print "ok 1\n";
   EV::loop;
   print "ok 3\n";
}

{
   my $b = EV::timer 0.1, 0, sub { print "ok 5\n"; EV::unloop };
   my $a = EV::timer 0.2, 0, sub { print "not ok 5\n"; EV::unloop };

   print "ok 4\n";
   EV::loop;
   print "ok 6\n";
}

{
   my $a = EV::timer 0.3, 0, sub { print "not ok 8\n"; EV::unloop };
   my $b = EV::timer 0.2, 0, sub { print "not ok 8\n"; EV::unloop };
   my $c = EV::timer 0.1, 0, sub { print "ok 8\n"; EV::unloop };

   print "ok 7\n";
   EV::loop;
   print "ok 9\n";
}
{

   my $a = EV::timer 0.2, 0, sub { print "not ok 11\n"; EV::unloop };
   my $b = EV::timer 0.1, 0, sub { print "ok 11\n"; EV::unloop };
   my $c = EV::timer 0.3, 0, sub { print "not ok 11\n"; EV::unloop };

   print "ok 10\n";
   EV::loop;
   print "ok 12\n";
}
Revision:	1.1
Committed:	Thu May 8 21:21:41 2008 UTC (16 years, 1 month ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_33, rel-3_4, rel-3_44, rel-3_41, rel-3_42, rel-3_43, rel-3_48, rel-3_431
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..12\n"; }
2
3			# a surprisingly effective test by brandon black
4
5			no warnings;
6			use strict;
7
8			use EV;
9
10			{
11			my $a = EV::timer 0.2, 0, sub { print "not ok 2\n"; EV::unloop };
12			my $b = EV::timer 0.1, 0, sub { print "ok 2\n"; EV::unloop };
13
14			print "ok 1\n";
15			EV::loop;
16			print "ok 3\n";
17			}
18
19			{
20			my $b = EV::timer 0.1, 0, sub { print "ok 5\n"; EV::unloop };
21			my $a = EV::timer 0.2, 0, sub { print "not ok 5\n"; EV::unloop };
22
23			print "ok 4\n";
24			EV::loop;
25			print "ok 6\n";
26			}
27
28			{
29			my $a = EV::timer 0.3, 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 };
31			my $c = EV::timer 0.1, 0, sub { print "ok 8\n"; EV::unloop };
32
33			print "ok 7\n";
34			EV::loop;
35			print "ok 9\n";
36			}
37			{
38
39			my $a = EV::timer 0.2, 0, sub { print "not ok 11\n"; EV::unloop };
40			my $b = EV::timer 0.1, 0, sub { print "ok 11\n"; EV::unloop };
41			my $c = EV::timer 0.3, 0, sub { print "not ok 11\n"; EV::unloop };
42
43			print "ok 10\n";
44			EV::loop;
45			print "ok 12\n";
46			}