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.2 by root, Sat Jul 18 00:05:29 2009 UTC vs.
Revision 1.7 by root, Tue Jul 30 23:14:33 2013 UTC

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

Diff Legend

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