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

Comparing AnyEvent/t/04_condvar.t (file contents):
Revision 1.3 by root, Sat Jul 18 00:05:29 2009 UTC vs.
Revision 1.6 by root, Thu Aug 18 17:58:53 2011 UTC

1use AnyEvent; 1use AnyEvent;
2use AnyEvent::Impl::Perl; 2BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
3 3
4$| = 1; print "1..21\n"; 4$| = 1; print "1..28\n";
5 5
6print "ok 1\n"; 6print "ok 1\n";
7 7
8{ 8{
9 my $cv = AnyEvent->condvar; 9 my $cv = AnyEvent->condvar;
… …
25 print "ok 3\n"; 25 print "ok 3\n";
26 $cv->send (7, 5); 26 $cv->send (7, 5);
27 }); 27 });
28 28
29 print "ok 2\n"; 29 print "ok 2\n";
30 $cv->wait; 30 $cv->recv;
31 print "ok 8\n"; 31 print "ok 8\n";
32 32
33 my @x = $cv->recv; 33 my @x = $cv->recv;
34 print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n"; 34 print $x[1] == 5 ? "" : "not ", "ok 9 # $x[1] == 5\n";
35} 35}
… …
68 print "ok 20\n"; 68 print "ok 20\n";
69 $cv->recv; 69 $cv->recv;
70 print "ok 21\n"; 70 print "ok 21\n";
71} 71}
72 72
73{
74 my $cv = AE::cv {
75 print +($_[0]->recv)[0] == 6 ? "" : "not ", "ok 27\n";
76 };
77
78 print "ok 22\n";
79
80 $cv->begin (sub {
81 print "ok 26\n";
82 $_[0](6);
83 });
84
85 print "ok 23\n";
86 $cv->begin;
87 print "ok 24\n";
88 $cv->end;
89 print "ok 25\n";
90 $cv->end;
91
92 print "ok 28\n";
93}
94

Diff Legend

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