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.1 by root, Thu Oct 2 08:43:58 2008 UTC vs.
Revision 1.2 by root, Thu Jul 9 22:49:18 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}
21
22use POSIX ();
22 23
23use AnyEvent; 24use AnyEvent;
24use AnyEvent::Impl::Tk; 25use AnyEvent::Impl::Tk;
25 26
26print "ok 1\n"; 27print "ok 1\n";
… …
36 37
37my $cv = AnyEvent->condvar; 38my $cv = AnyEvent->condvar;
38 39
39unless ($pid) { 40unless ($pid) {
40 print "ok 2\n"; 41 print "ok 2\n";
41 exit 3; 42 POSIX::_exit 3;
42} 43}
43 44
44my $w = AnyEvent->child (pid => $pid, cb => sub { 45my $w = AnyEvent->child (pid => $pid, cb => sub {
45 print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n"; 46 print $pid == $_[0] ? "" : "not ", "ok 3\ # $pid == $_[0]\n";
46 print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n"; 47 print 3 == ($_[1] >> 8) ? "" : "not ", "ok 4 # 3 == $_[1] >> 8 ($_[1])\n";
47 $cv->broadcast; 48 $cv->broadcast;
48}); 49});
49 50
50$cv->wait; 51$cv->wait;
51 52
52my $pid2 = fork || exit 7; 53my $pid2 = fork || POSIX::_exit 7;
53 54
54my $cv2 = AnyEvent->condvar; 55my $cv2 = AnyEvent->condvar;
55 56
56my $w2 = AnyEvent->child (pid => 0, cb => sub { 57my $w2 = AnyEvent->child (pid => 0, cb => sub {
57 print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n"; 58 print $pid2 == $_[0] ? "" : "not ", "ok 5 # $pid2 == $_[0]\n";
58 print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n"; 59 print 7 == ($_[1] >> 8) ? "" : "not ", "ok 6 # 7 == $_[1] >> 8 ($_[1])\n";
59 $cv2->broadcast; 60 $cv2->broadcast;
60}); 61});
61 62
62my $error = AnyEvent->timer (after => 5, cb => sub { 63my $error = AnyEvent->timer (after => 15, cb => sub {
63 print <<EOF; 64 print <<EOF;
64Bail 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"; 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";
65EOF 66EOF
66 exit 0; 67 exit 0;
68});
69
70my $inter = AnyEvent->timer (after => 14, cb => sub {
71 print "not ok 5 # inter\n";
72 print "not ok 6 # inter\n";
73 $cv2->send;
67}); 74});
68 75
69$cv2->wait; 76$cv2->wait;
70 77
71print "ok 7\n"; 78print "ok 7\n";

Diff Legend

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