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.6 by root, Fri Aug 12 18:41:28 2011 UTC

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

Diff Legend

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