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 1.0, 0, sub { print "not ok 2\n"; EV::unloop };
   my $b = EV::timer 0.5, 0, sub { print "ok 2\n"; EV::unloop };

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

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

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

{
   my $a = EV::timer 1.5, 0, sub { print "not ok 8\n"; EV::unloop };
   my $b = EV::timer 1.0, 0, sub { print "not ok 8\n"; EV::unloop };
   my $c = EV::timer 0.5, 0, sub { print "ok 8\n"; EV::unloop };

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

   my $a = EV::timer 1.0, 0, sub { print "not ok 11\n"; EV::unloop };
   my $b = EV::timer 0.5, 0, sub { print "ok 11\n"; EV::unloop };
   my $c = EV::timer 1.5, 0, sub { print "not ok 11\n"; EV::unloop };

   print "ok 10\n";
   EV::loop;
   print "ok 12\n";
}
Revision:	1.2
Committed:	Wed Nov 19 10:16:39 2008 UTC (15 years, 7 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-3_49
Changes since 1.1:	+10 -10 lines
Log Message:	bleh desu
#	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	root	1.2	my $a = EV::timer 1.0, 0, sub { print "not ok 2\n"; EV::unloop };
12			my $b = EV::timer 0.5, 0, sub { print "ok 2\n"; EV::unloop };
13	root	1.1
14			print "ok 1\n";
15			EV::loop;
16			print "ok 3\n";
17			}
18
19			{
20	root	1.2	my $b = EV::timer 0.5, 0, sub { print "ok 5\n"; EV::unloop };
21			my $a = EV::timer 1.0, 0, sub { print "not ok 5\n"; EV::unloop };
22	root	1.1
23			print "ok 4\n";
24			EV::loop;
25			print "ok 6\n";
26			}
27
28			{
29	root	1.2	my $a = EV::timer 1.5, 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.5, 0, sub { print "ok 8\n"; EV::unloop };
32	root	1.1
33			print "ok 7\n";
34			EV::loop;
35			print "ok 9\n";
36			}
37			{
38
39	root	1.2	my $a = EV::timer 1.0, 0, sub { print "not 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 1.5, 0, sub { print "not ok 11\n"; EV::unloop };
42	root	1.1
43			print "ok 10\n";
44			EV::loop;
45			print "ok 12\n";
46			}