AnyEvent/t/03_child.t

use POSIX ();

no warnings;

use AnyEvent;
use AnyEvent::Impl::Perl;

BEGIN {
   # check for broken perls
   if ($^O =~ /mswin32/i) {
      my $ok;
      local $SIG{CHLD} = sub { $ok = 1 };
      kill 'CHLD', 0;

      unless ($ok) {
         print <<EOF;
1..0 # 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.
EOF
         exit 0;
      }
   }
}

$| = 1; print "1..50\n";

$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;

for my $it ("", 1, 2, 3, 4) {
   print "ok ${it}1\n";

   AnyEvent::detect; # force-load event model

   my $pid = fork;

   defined $pid or die "unable to fork";

# work around Tk bug until it has been fixed.
#my $timer = AnyEvent->timer (after => 2, cb => sub { });

   my $cv = AnyEvent->condvar;

   unless ($pid) {
      print "ok ${it}2\n";
      POSIX::_exit 3;
   }

   my $w = AnyEvent->child (pid => $pid, cb => sub {
      print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
      print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
      $cv->broadcast;
   });

   $cv->wait;

   my $pid2 = fork || POSIX::_exit 7;

   my $cv2 = AnyEvent->condvar;

   my $w2 = AnyEvent->child (pid => 0, cb => sub {
      print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
      print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
      $cv2->broadcast;
   });

   my $error = AnyEvent->timer (after => 5, cb => sub {
      print <<EOF;
Bail 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";
EOF
      exit 0;
   });

   $cv2->wait;

   print "ok ${it}7\n";
   print "ok ${it}8\n";
   print "ok ${it}9\n";
   print "ok ", $it*10+10, "\n";
}


Revision:	1.17
Committed:	Sat Jul 18 15:51:52 2009 UTC (14 years, 10 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.16:	+2 -2 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.15	use POSIX ();
2
3	root	1.16	no warnings;
4
5	root	1.15	use AnyEvent;
6			use AnyEvent::Impl::Perl;
7
8	root	1.10	BEGIN {
9			# check for broken perls
10			if ($^O =~ /mswin32/i) {
11			my $ok;
12			local $SIG{CHLD} = sub { $ok = 1 };
13			kill 'CHLD', 0;
14
15			unless ($ok) {
16			print <<EOF;
17			1..0 # 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.
18			EOF
19			exit 0;
20			}
21			}
22			}
23
24	root	1.16	$\| = 1; print "1..50\n";
25	root	1.1
26	root	1.17	$AnyEvent::MAX_SIGNAL_LATENCY = 0.2;
27
28	root	1.16	for my $it ("", 1, 2, 3, 4) {
29			print "ok ${it}1\n";
30	root	1.1
31	root	1.16	AnyEvent::detect; # force-load event model
32	root	1.9
33	root	1.16	my $pid = fork;
34	root	1.1
35	root	1.16	defined $pid or die "unable to fork";
36	root	1.1
37			# work around Tk bug until it has been fixed.
38	root	1.6	#my $timer = AnyEvent->timer (after => 2, cb => sub { });
39	root	1.1
40	root	1.16	my $cv = AnyEvent->condvar;
41	root	1.1
42	root	1.16	unless ($pid) {
43			print "ok ${it}2\n";
44			POSIX::_exit 3;
45			}
46	root	1.1
47	root	1.16	my $w = AnyEvent->child (pid => $pid, cb => sub {
48			print $pid == $_[0] ? "" : "not ", "ok ${it}3\ # $pid == $_[0]\n";
49			print 3 == ($_[1] >> 8) ? "" : "not ", "ok ${it}4 # 3 == $_[1] >> 8 ($_[1])\n";
50			$cv->broadcast;
51			});
52
53			$cv->wait;
54
55			my $pid2 = fork \|\| POSIX::_exit 7;
56
57			my $cv2 = AnyEvent->condvar;
58
59			my $w2 = AnyEvent->child (pid => 0, cb => sub {
60			print $pid2 == $_[0] ? "" : "not ", "ok ${it}5 # $pid2 == $_[0]\n";
61			print 7 == ($_[1] >> 8) ? "" : "not ", "ok ${it}6 # 7 == $_[1] >> 8 ($_[1])\n";
62			$cv2->broadcast;
63			});
64	root	1.2
65	root	1.16	my $error = AnyEvent->timer (after => 5, cb => sub {
66			print <<EOF;
67	root	1.8	Bail 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";
68			EOF
69	root	1.16	exit 0;
70			});
71	root	1.8
72	root	1.16	$cv2->wait;
73	root	1.2
74	root	1.16	print "ok ${it}7\n";
75			print "ok ${it}8\n";
76			print "ok ${it}9\n";
77			print "ok ", $it*10+10, "\n";
78			}
79	root	1.1
80
81
82