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 *
#	Content
1	BEGIN {
2	if ($^O eq "MSWin32") {
3	print "1..0 # SKIP broken perl detected, skipping\n";
4	exit;
5	}
6	}
7
8	BEGIN { $\| = 1; print "1..3\n"; }
9
10	use AnyEvent::Fork::Template;
11
12	my $proc = $AnyEvent::Fork::Template;
13
14	print $proc ? "" : "not ", "ok 1\n";
15
16	$proc->eval ('print "ok 2\n"; exit 0');
17
18	my $w = AE::io $proc->[1], 0, my $cv = AE::cv;
19	$cv->recv;
20
21	print "ok 3\n";