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

Comparing AnyEvent/t/07_io.t (file contents):
Revision 1.1 by root, Wed Jul 8 04:49:18 2009 UTC vs.
Revision 1.4 by root, Tue Aug 2 20:02:45 2011 UTC

1$|=1;
2BEGIN { print "1..18\n" }
3
4use AnyEvent; 1use AnyEvent;
5use AnyEvent::Util; 2use AnyEvent::Util;
6use AnyEvent::Impl::Perl; 3BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
4
5$| = 1; print "1..18\n";
7 6
8print "ok 1\n"; 7print "ok 1\n";
9 8
10my ($a, $b) = AnyEvent::Util::portable_socketpair; 9my ($a, $b) = AnyEvent::Util::portable_socketpair;
11 10
… …
24 }); 23 });
25}); 24});
26 25
27print "ok 3\n"; 26print "ok 3\n";
28 27
29{ my $cv = AnyEvent->condvar; $t = AnyEvent->timer (after => 0.05, cb => sub { $cv->send }); $cv->wait } 28{ my $cv = AnyEvent->condvar; $t = AnyEvent->timer (after => 0.05, cb => sub { $cv->send }); $cv->recv }
30 29
31print "ok 4\n"; 30print "ok 4\n";
32 31
33$wa = AnyEvent->io (fh => $a, poll => "w", cb => sub { 32$wa = AnyEvent->io (fh => $a, poll => "w", cb => sub {
34 syswrite $a, "0"; 33 syswrite $a, "0";
… …
40 sysread $a, my $buf, 1; 39 sysread $a, my $buf, 1;
41 print "ok 9\n"; 40 print "ok 9\n";
42 $cv->send; 41 $cv->send;
43}); 42});
44 43
45$cv = AnyEvent->condvar; $cv->wait; 44$cv = AnyEvent->condvar; $cv->recv;
46 45
47print "ok 10\n"; 46print "ok 10\n";
48 47
49$rb = AnyEvent->io (fh => fileno $b, poll => "r", cb => sub { 48$rb = AnyEvent->io (fh => fileno $b, poll => "r", cb => sub {
50 print "ok 14\n"; 49 print "ok 14\n";
… …
57 }); 56 });
58}); 57});
59 58
60print "ok 11\n"; 59print "ok 11\n";
61 60
62{ my $cv = AnyEvent->condvar; $t = AnyEvent->timer (after => 0.05, cb => sub { $cv->send }); $cv->wait } 61{ my $cv = AnyEvent->condvar; $t = AnyEvent->timer (after => 0.05, cb => sub { $cv->send }); $cv->recv }
63 62
64print "ok 12\n"; 63print "ok 12\n";
65 64
66$wa = AnyEvent->io (fh => fileno $a, poll => "w", cb => sub { 65$wa = AnyEvent->io (fh => fileno $a, poll => "w", cb => sub {
67 syswrite $a, "0"; 66 syswrite $a, "0";
… …
73 sysread $a, my $buf, 1; 72 sysread $a, my $buf, 1;
74 print "ok 17\n"; 73 print "ok 17\n";
75 $cv->send; 74 $cv->send;
76}); 75});
77 76
78$cv = AnyEvent->condvar; $cv->wait; 77$cv = AnyEvent->condvar; $cv->recv;
79 78
80print "ok 18\n"; 79print "ok 18\n";
81 80

Diff Legend

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