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

Comparing AnyEvent/t/03_child.t (file contents):
Revision 1.8 by root, Tue Apr 22 05:12:19 2008 UTC vs.
Revision 1.24 by root, Fri Mar 30 04:25:11 2012 UTC

1$|=1; 1use POSIX ();
2
3no warnings;
4
2BEGIN { 5BEGIN {
3 print "1..7\n" 6 # check for broken perls
7 if ($^O =~ /mswin32/i) {
8 my $ok;
9 local $SIG{CHLD} = sub { $ok = 1 };
10 kill 'CHLD', 0;
11
12 unless ($ok) {
13 print <<EOF;
141..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.
15EOF
16 exit 0;
17 }
18 }
4} 19}
5 20
6use AnyEvent; 21use AnyEvent;
7use AnyEvent::Impl::Perl; 22BEGIN { require AnyEvent::Impl::Perl unless $ENV{PERL_ANYEVENT_MODEL} }
8 23
9print STDERR <<EOF; 24$| = 1; print "1..50\n";
10 25
11If the following test hangs for a long time you either found a bug in 26$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;
12AnyEvent or, more likely, you have a defective perl (most windows perl
13distros are broken, cygwin perl works). If you do not rely on child
14handlers you can force the installation of this module and the rest will
15likely work. Otherwise upgrading to a working perl is recommended.
16EOF
17 27
28for my $it ("", 1, 2, 3, 4) {
18print "ok 1\n"; 29 print "ok ${it}1\n";
19 30
20my $pid = fork; 31 AnyEvent::detect; # force-load event model
21 32
22defined $pid or die "unable to fork"; 33 my $pid = fork;
23 34
24# work around Tk bug until it has been fixed. 35 defined $pid or die "unable to fork";
25#my $timer = AnyEvent->timer (after => 2, cb => sub { });
26 36
27my $cv = AnyEvent->condvar; 37 # work around Tk bug until it has been fixed.
38 #my $timer = AnyEvent->timer (after => 2, cb => sub { });
28 39
29unless ($pid) { 40 my $cv = AnyEvent->condvar;
30 print "ok 2\n";
31 exit 3;
32}
33 41
34my $w = AnyEvent->child (pid => $pid, cb => sub { 42 unless ($pid) {
35 print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n"; 43 print "ok ${it}2 # child $$\n";
36 print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n";
37 $cv->broadcast;
38});
39 44
40$cv->wait; 45 # POE hits a race condition when the child dies too quickly
46 # because it checks for child exit before installing the signal handler.
47 # seen in version 1.352 - earlier versions had the same bug, but
48 # polled for child exits regularly, so only caused a delay.
49 sleep 1 if $AnyEvent::MODEL eq "AnyEvent::Impl::POE";
41 50
42my $pid2 = fork || exit 7; 51 POSIX::_exit 3;
52 }
53 my $w = AnyEvent->child (pid => $pid, cb => sub {
54 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
55 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
56 $cv->broadcast;
57 });
43 58
44my $cv2 = AnyEvent->condvar; 59 $cv->recv;
45 60
46my $w2 = AnyEvent->child (pid => 0, cb => sub { 61 my $pid2 = fork || do {
47 print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n"; 62 sleep 1 if $AnyEvent::MODEL eq "AnyEvent::Impl::POE";
48 print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n"; 63 POSIX::_exit 7;
49 $cv2->broadcast; 64 };
50});
51 65
66 my $cv2 = AnyEvent->condvar;
67
68 # Glib is the only model that doesn't support pid == 0
69 my $pid0 = $AnyEvent::MODEL eq "AnyEvent::Impl::Glib" ? $pid2 : 0;
70
71 my $w2 = AnyEvent->child (pid => $pid0, cb => sub {
72 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
73 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
74 $cv2->broadcast;
75 });
76
52my $error = AnyEvent->timer (after => 5, cb => sub { 77 my $error = AnyEvent->timer (after => 5, cb => sub {
53 print <<EOF; 78 print <<EOF;
54Bail 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"; 79Bail 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";
55EOF 80EOF
56 exit 0; 81 exit 0;
57}); 82 });
58 83
59$cv2->wait; 84 $cv2->recv;
60 85
61print "ok 7\n"; 86 print "ok ${it}7\n";
87 print "ok ${it}8\n";
88 print "ok ${it}9\n";
89 print "ok ", $it*10+10, "\n";
90}
62 91
63 92
64 93
65 94

Diff Legend

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