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.7 by root, Mon Jul 20 22:39:57 2009 UTC vs.
Revision 1.11 by root, Fri Aug 12 18:41: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::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk not loadable}), exit 0) } 24 BEGIN { eval q{use AnyEvent::Impl::Tk;1} or ((print qq{1..0 # SKIP AnyEvent::Impl::Tk 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\n";
… …
48 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n"; 52 print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
49 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n"; 53 print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
50 $cv->broadcast; 54 $cv->broadcast;
51 }); 55 });
52 56
53 $cv->wait; 57 $cv->recv;
54 58
55 my $pid2 = fork || POSIX::_exit 7; 59 my $pid2 = fork || POSIX::_exit 7;
56 60
57 my $cv2 = AnyEvent->condvar; 61 my $cv2 = AnyEvent->condvar;
58 62
63 # Glib is the only model that doesn't support pid == 0
64 my $pid0 = $AnyEvent::MODEL eq "AnyEvent::Impl::Glib" ? $pid2 : 0;
65
59 my $w2 = AnyEvent->child (pid => 0, cb => sub { 66 my $w2 = AnyEvent->child (pid => $pid0, cb => sub {
60 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n"; 67 print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
61 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n"; 68 print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
62 $cv2->broadcast; 69 $cv2->broadcast;
63 }); 70 });
64 71
… …
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"; 74Bail 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 75EOF
69 exit 0; 76 exit 0;
70 }); 77 });
71 78
72 $cv2->wait; 79 $cv2->recv;
73 80
74 print "ok ${it}7\n"; 81 print "ok ${it}7\n";
75 print "ok ${it}8\n"; 82 print "ok ${it}8\n";
76 print "ok ${it}9\n"; 83 print "ok ${it}9\n";
77 print "ok ", $it*10+10, "\n"; 84 print "ok ", $it*10+10, "\n";

Diff Legend

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