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

Comparing AnyEvent/t/62_cocoa_03_child.t (file contents):
Revision 1.1 by root, Fri Dec 31 04:47:42 2010 UTC vs.
Revision 1.6 by root, Sat Oct 1 22:39:29 2011 UTC

… …
17 } 17 }
18 } 18 }
19} 19}
20 20
21use AnyEvent; 21use AnyEvent;
22
23 BEGIN { $ENV{PERL_ANYEVENT_LOOP_TESTS} or ((print qq{1..0 # SKIP PERL_ANYEVENT_LOOP_TESTS not true\n}), exit 0) }
22BEGIN { eval q{use AnyEvent::Impl::Cocoa;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Cocoa not loadable}), exit 0) } 24 BEGIN { eval q{use AnyEvent::Impl::Cocoa;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Cocoa not loadable\n}), exit 0) }
25
26
23 27
24$| = 1; print "1..50\n"; 28$| = 1; print "1..50\n";
25 29
26$AnyEvent::MAX_SIGNAL_LATENCY = 0.2; 30$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;
27 31
… …
32 36
33 my $pid = fork; 37 my $pid = fork;
34 38
35 defined $pid or die "unable to fork"; 39 defined $pid or die "unable to fork";
36 40
37# work around Tk bug until it has been fixed. 41 # work around Tk bug until it has been fixed.
38#my $timer = AnyEvent->timer (after => 2, cb => sub { }); 42 #my $timer = AnyEvent->timer (after => 2, cb => sub { });
39 43
40 my $cv = AnyEvent->condvar; 44 my $cv = AnyEvent->condvar;
41 45
42 unless ($pid) { 46 unless ($pid) {
43 print "ok ${it}2\n"; 47 print "ok ${it}2 # child $$\n";
44 POSIX::_exit 3; 48 POSIX::_exit 3;
45 } 49 }
46
47 my $w = AnyEvent->child (pid => $pid, cb => sub { 50 my $w = AnyEvent->child (pid => $pid, cb => sub {
48 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n"; 51 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
49 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n"; 52 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
50 $cv->broadcast; 53 $cv->broadcast;
51 }); 54 });
52 55
53 $cv->wait; 56 $cv->recv;
54 57
55 my $pid2 = fork || POSIX::_exit 7; 58 my $pid2 = fork || POSIX::_exit 7;
56 59
57 my $cv2 = AnyEvent->condvar; 60 my $cv2 = AnyEvent->condvar;
58 61
62 # Glib is the only model that doesn't support pid == 0
63 my $pid0 = $AnyEvent::MODEL eq "AnyEvent::Impl::Glib" ? $pid2 : 0;
64
59 my $w2 = AnyEvent->child (pid => 0, cb => sub { 65 my $w2 = AnyEvent->child (pid => $pid0, cb => sub {
60 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n"; 66 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
61 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n"; 67 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
62 $cv2->broadcast; 68 $cv2->broadcast;
63 }); 69 });
64 70
… …
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"; 73Bail 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";
68EOF 74EOF
69 exit 0; 75 exit 0;
70 }); 76 });
71 77
72 $cv2->wait; 78 $cv2->recv;
73 79
74 print "ok ${it}7\n"; 80 print "ok ${it}7\n";
75 print "ok ${it}8\n"; 81 print "ok ${it}8\n";
76 print "ok ${it}9\n"; 82 print "ok ${it}9\n";
77 print "ok ", $it*10+10, "\n"; 83 print "ok ", $it*10+10, "\n";

Diff Legend

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