AnyEvent-Fork/t/02_template.t

BEGIN {
   if ($^O eq "MSWin32") {
      print "1..0 # SKIP broken perl detected, skipping\n";
      exit;
   }
}

BEGIN { $| = 1; print "1..3\n"; }

use AnyEvent::Fork::Template;

my $proc = $AnyEvent::Fork::Template;

print $proc ? "" : "not ", "ok 1\n";

$proc->eval ('print "ok 2\n"; exit 0');

my $w = AE::io $proc->[1], 0, my $cv = AE::cv;
$cv->recv;

print "ok 3\n";
Revision:	1.4
Committed:	Thu Apr 4 20:40:47 2013 UTC (13 years, 6 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
CVS Tags:	rel-1_1, rel-1_0, rel-1_3, rel-1_2, rel-0_2, rel-0_5, rel-0_6, rel-0_7, rel-1_32, rel-1_31, HEAD
Changes since 1.3:	+5 -3 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.3	BEGIN {
2			if ($^O eq "MSWin32") {
3			print "1..0 # SKIP broken perl detected, skipping\n";
4			exit;
5			}
6			}
7
8	root	1.1	BEGIN { $\| = 1; print "1..3\n"; }
9	root	1.2
10	root	1.1	use AnyEvent::Fork::Template;
11	root	1.2
12	root	1.4	my $proc = $AnyEvent::Fork::Template;
13	root	1.2
14	root	1.4	print $proc ? "" : "not ", "ok 1\n";
15	root	1.2
16	root	1.4	$proc->eval ('print "ok 2\n"; exit 0');
17
18			my $w = AE::io $proc->[1], 0, my $cv = AE::cv;
19	root	1.1	$cv->recv;
20	root	1.2
21	root	1.1	print "ok 3\n";