AnyEvent-Fork/t/02_template.t

BEGIN { $| = 1; print "1..3\n"; }
use AnyEvent::Fork::Template;
print $TEMPLATE ? "" : "not ", "ok 1\n";
$TEMPLATE->_cmd ("e" => '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.1
Committed:	Thu Apr 4 00:27:06 2013 UTC (11 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..3\n"; }
2			use AnyEvent::Fork::Template;
3			print $TEMPLATE ? "" : "not ", "ok 1\n";
4			$TEMPLATE->_cmd ("e" => 'print "ok 2\n"; exit 0');
5			my $w = AE::io $TEMPLATE->[1], 0, my $cv = AE::cv;
6			$cv->recv;
7			print "ok 3\n";