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

Comparing AnyEvent/t/66_ioasync_03_child.t (file contents):
Revision 1.1 by root, Thu Jun 25 11:16:08 2009 UTC vs.
Revision 1.3 by root, Fri Jul 17 22:05:12 2009 UTC

1$|=1;
2
3BEGIN { 1BEGIN {
4 # check for broken perls 2 # check for broken perls
5 if ($^O =~ /mswin32/i) { 3 if ($^O =~ /mswin32/i) {
6 my $ok; 4 my $ok;
7 local $SIG{CHLD} = sub { $ok = 1 }; 5 local $SIG{CHLD} = sub { $ok = 1 };
… …
15 } 13 }
16 } 14 }
17} 15}
18 16
19BEGIN { 17BEGIN {
18 $|=1;
20 print "1..7\n" 19 print "1..7\n"
21} 20}
22 21
22use POSIX ();
23
23use AnyEvent; 24use AnyEvent;
24use AnyEvent::Impl::IOAsync;
25use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop; 25use AnyEvent::Impl::IOAsync; use IO::Async::Loop; AnyEvent::Impl::IOAsync::set_loop new IO::Async::Loop;
26
27$AnyEvent::MAX_SIGNAL_LATENCY = 1;
26 28
27print "ok 1\n"; 29print "ok 1\n";
28 30
29AnyEvent::detect; # force-load event model 31AnyEvent::detect; # force-load event model
30 32
… …
37 39
38my $cv = AnyEvent->condvar; 40my $cv = AnyEvent->condvar;
39 41
40unless ($pid) { 42unless ($pid) {
41 print "ok 2\n"; 43 print "ok 2\n";
42 exit 3; 44 POSIX::_exit 3;
43} 45}
44 46
45my $w = AnyEvent->child (pid => $pid, cb => sub { 47my $w = AnyEvent->child (pid => $pid, cb => sub {
46 print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n"; 48 print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n";
47 print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n"; 49 print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n";
48 $cv->broadcast; 50 $cv->broadcast;
49}); 51});
50 52
51$cv->wait; 53$cv->wait;
52 54
53my $pid2 = fork || exit 7; 55my $pid2 = fork || POSIX::_exit 7;
54 56
55my $cv2 = AnyEvent->condvar; 57my $cv2 = AnyEvent->condvar;
56 58
57my $w2 = AnyEvent->child (pid => 0, cb => sub { 59my $w2 = AnyEvent->child (pid => 0, cb => sub {
58 print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n"; 60 print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n";
59 print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n"; 61 print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n";
60 $cv2->broadcast; 62 $cv2->broadcast;
61}); 63});
62 64
63my $error = AnyEvent->timer (after => 5, cb => sub { 65my $error = AnyEvent->timer (after => 15, cb => sub {
64 print <<EOF; 66 print <<EOF;
65Bail out! No child exit detected. This is either a bug in AnyEvent or a bug in your Perl (mostly some windows distributions suffer from that): child watchers might not work properly on this platform. You can force installation of this module if you do not rely on child watchers, or you could upgrade to a working version of Perl for your platform.\n"; 67Bail out! No child exit detected. This is either a bug in AnyEvent or a bug in your Perl (mostly some windows distributions suffer from that): child watchers might not work properly on this platform. You can force installation of this module if you do not rely on child watchers, or you could upgrade to a working version of Perl for your platform.\n";
66EOF 68EOF
67 exit 0; 69 exit 0;
70});
71
72my $inter = AnyEvent->timer (after => 14, cb => sub {
73 print "not ok 5 # inter\n";
74 print "not ok 6 # inter\n";
75 $cv2->send;
68}); 76});
69 77
70$cv2->wait; 78$cv2->wait;
71 79
72print "ok 7\n"; 80print "ok 7\n";

Diff Legend

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