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