ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent/t/01_basic.t
(Generate patch)

Comparing AnyEvent/t/01_basic.t (file contents):
Revision 1.1 by root, Fri Nov 24 14:40:13 2006 UTC vs.
Revision 1.3 by root, Wed Apr 23 11:25:42 2008 UTC

1$|=1; 1$|=1;
2BEGIN { print "1..6\n" } 2BEGIN { print "1..6\n" }
3 3
4use AnyEvent; 4use AnyEvent;
5use AnyEvent::Impl::Perl;
5 6
6print "ok 1\n"; 7print "ok 1\n";
7 8
8my $cv = AnyEvent->condvar; 9my $cv = AnyEvent->condvar;
9 10
… …
11 12
12my $timer1 = AnyEvent->timer (after => 0.1, cb => sub { print "ok 5\n"; $cv->broadcast }); 13my $timer1 = AnyEvent->timer (after => 0.1, cb => sub { print "ok 5\n"; $cv->broadcast });
13 14
14print "ok 3\n"; 15print "ok 3\n";
15 16
16AnyEvent->timer (after => 0.05, cb => sub { print "not ok 5\n" }); 17AnyEvent->timer (after => 1, cb => sub { print "not ok 5\n" });
17 18
18print "ok 4\n"; 19print "ok 4\n";
19 20
20$cv->wait; 21$cv->wait;
21 22

Diff Legend

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