AnyEvent-Fork/t/02_template.t

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

use AnyEvent::Fork::Template;

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

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

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

print "ok 3\n";
Revision:	1.2
Committed:	Thu Apr 4 03:45:12 2013 UTC (11 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.1:	+6 -1 lines
Log Message:	* empty log message *
#	Content
1	BEGIN { $\| = 1; print "1..3\n"; }
2
3	use AnyEvent::Fork::Template;
4
5	print $TEMPLATE ? "" : "not ", "ok 1\n";
6
7	$TEMPLATE->eval ('print "ok 2\n"; exit 0');
8
9	my $w = AE::io $TEMPLATE->[1], 0, my $cv = AE::cv;
10	$cv->recv;
11
12	print "ok 3\n";