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

Comparing AnyEvent/t/65_event_07_io.t (file contents):
Revision 1.3 by root, Mon Jul 20 22:39:57 2009 UTC vs.
Revision 1.5 by root, Tue Aug 2 20:02:46 2011 UTC

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

Diff Legend

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