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

Comparing AnyEvent/t/67_tk_03_child.t (file contents):
Revision 1.8 by root, Mon Jul 4 21:14:29 2011 UTC vs.
Revision 1.10 by root, Tue Aug 2 22:07:17 2011 UTC

33 33
34 my $pid = fork; 34 my $pid = fork;
35 35
36 defined $pid or die "unable to fork"; 36 defined $pid or die "unable to fork";
37 37
38# work around Tk bug until it has been fixed. 38 # work around Tk bug until it has been fixed.
39#my $timer = AnyEvent->timer (after => 2, cb => sub { }); 39 #my $timer = AnyEvent->timer (after => 2, cb => sub { });
40 40
41 my $cv = AnyEvent->condvar; 41 my $cv = AnyEvent->condvar;
42 42
43 unless ($pid) { 43 unless ($pid) {
44 print "ok ${it}2\n"; 44 print "ok ${it}2\n";
49 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n"; 49 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
50 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n"; 50 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
51 $cv->broadcast; 51 $cv->broadcast;
52 }); 52 });
53 53
54 $cv->wait; 54 $cv->recv;
55 55
56 my $pid2 = fork || POSIX::_exit 7; 56 my $pid2 = fork || POSIX::_exit 7;
57 57
58 my $cv2 = AnyEvent->condvar; 58 my $cv2 = AnyEvent->condvar;
59 59
60 # Glib is the only model that doesn't support pid == 0
61 my $pid0 = $AnyEvent::MODEL eq "AnyEvent::Impl::Glib" ? $pid2 : 0;
62
60 my $w2 = AnyEvent->child (pid => 0, cb => sub { 63 my $w2 = AnyEvent->child (pid => $pid0, cb => sub {
61 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n"; 64 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
62 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n"; 65 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
63 $cv2->broadcast; 66 $cv2->broadcast;
64 }); 67 });
65 68
68Bail 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"; 71Bail 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";
69EOF 72EOF
70 exit 0; 73 exit 0;
71 }); 74 });
72 75
73 $cv2->wait; 76 $cv2->recv;
74 77
75 print "ok ${it}7\n"; 78 print "ok ${it}7\n";
76 print "ok ${it}8\n"; 79 print "ok ${it}8\n";
77 print "ok ${it}9\n"; 80 print "ok ${it}9\n";
78 print "ok ", $it*10+10, "\n"; 81 print "ok ", $it*10+10, "\n";

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines