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

Comparing AnyEvent/t/09_multi.t (file contents):
Revision 1.1 by root, Tue Aug 2 22:06:08 2011 UTC vs.
Revision 1.4 by root, Fri Aug 12 00:53:29 2011 UTC

1BEGIN {
2 # check for broken perls
3 if ($^O =~ /mswin32/i) {
4 my $ok;
5 local $SIG{CHLD} = sub { $ok = 1 };
6 kill 'CHLD', 0;
7
8 unless ($ok) {
9 print <<EOF;
101..0 # SKIP Your perl interpreter is badly BROKEN. Child watchers will not work, ever. Try upgrading to a newer perl or a working perl (cygwin's perl is known to work). If that is not an option, you should be able to use the remaining functionality of AnyEvent, but child watchers WILL NOT WORK.
11EOF
12 exit 0;
13 }
14 }
15}
16
1use AnyEvent; 17use AnyEvent;
2use AnyEvent::Util; 18use AnyEvent::Util;
3BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} } 19BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
4 20
5$| = 1; print "1..14\n"; 21$| = 1; print "1..15\n";
6 22
7print "ok 1\n"; 23print "ok 1\n";
8 24
9my ($a, $b) = AnyEvent::Util::portable_socketpair; 25my ($a, $b) = AnyEvent::Util::portable_socketpair;
10 26
11# I/O write 27# I/O write
12{ 28{
13 my $cv = AE::cv; 29 my $cv = AE::cv;
14 my $wt = AE::timer 0.1, 0, $cv; 30 my $wt = AE::timer 1, 0, $cv;
15 my $s = 0; 31 my $s = 0;
16 32
17 $cv->begin; my $wa = AE::io $a, 1, sub { $cv->end; $s |= 1 }; 33 $cv->begin; my $wa = AE::io $a, 1, sub { $cv->end; $s |= 1 };
18 $cv->begin; my $wb = AE::io $a, 1, sub { $cv->end; $s |= 2 }; 34 $cv->begin; my $wb = AE::io $a, 1, sub { $cv->end; $s |= 2 };
19 35
… …
26{ 42{
27 my $cv = AE::cv; 43 my $cv = AE::cv;
28 my $wt = AE::timer 0.1, 0, $cv; 44 my $wt = AE::timer 0.1, 0, $cv;
29 my $s = 0; 45 my $s = 0;
30 46
31 $cv->begin; my $wa = AE::io $a, 0, sub { $cv->end; $s |= 1 }; 47 my $wa = AE::io $a, 0, sub { $cv->end; $s |= 1 };
32 $cv->begin; my $wb = AE::io $a, 0, sub { $cv->end; $s |= 2 }; 48 my $wb = AE::io $a, 0, sub { $cv->end; $s |= 2 };
33 49
34 $cv->recv; 50 $cv->recv;
35 51
36 print $s == 0 ? "" : "not ", "ok 3 # $s\n"; 52 print $s == 0 ? "" : "not ", "ok 3 # $s\n";
37 53
38 syswrite $b, "x"; 54 syswrite $b, "x";
39 55
40 $cv = AE::cv; 56 $cv = AE::cv;
41 $wt = AE::timer 0.1, 0, $cv; 57 $wt = AE::timer 1, 0, $cv;
42 58
43 $s = 0; 59 $s = 0;
60 $cv->begin;
61 $cv->begin;
44 $cv->recv; 62 $cv->recv;
45 63
46 print $s == 3 ? "" : "not ", "ok 4 # $s\n"; 64 print $s == 3 ? "" : "not ", "ok 4 # $s\n";
47 65
48 sysread $a, my $dummy, 1; 66 sysread $a, my $dummy, 1;
… …
131 $cv->recv; 149 $cv->recv;
132 150
133 print $s == 0 ? "" : "not ", "ok 13 # $s\n"; 151 print $s == 0 ? "" : "not ", "ok 13 # $s\n";
134} 152}
135 153
154# timers (don't laugh, some event loops are more broken...)
155{
156 my $cv = AE::cv;
157 my $wt = AE::timer 1, 0, $cv;
158 my $s = 0;
159
160 $cv->begin; my $wa = AE::timer 0 , 0, sub { $cv->end; $s |= 1 };
161 $cv->begin; my $wb = AE::timer 0 , 0, sub { $cv->end; $s |= 2 };
162 $cv->begin; my $wc = AE::timer 0.01, 0, sub { $cv->end; $s |= 4 };
163
164 $cv->recv;
165
166 print $s == 7 ? "" : "not ", "ok 14 # $s\n";
167}
168
136print "ok 14\n"; 169print "ok 15\n";
137 170
138exit 0; 171exit 0;
139 172

Diff Legend

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