AnyEvent-Fork/t/01_early.t

BEGIN { $| = 1; print "1..3\n"; }
use AnyEvent::Fork::Early;
print $AnyEvent::Fork::TEMPLATE == $AnyEvent::Fork::EARLY ? "" : "not ", "ok 1\n";
$AnyEvent::Fork::EARLY->_cmd ("e" => 'print "ok 2\n"; exit 0');
my $w = AE::io $AnyEvent::Fork::EARLY->[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 *
#	Content
1	BEGIN { $\| = 1; print "1..3\n"; }
2	use AnyEvent::Fork::Early;
3	print $AnyEvent::Fork::TEMPLATE == $AnyEvent::Fork::EARLY ? "" : "not ", "ok 1\n";
4	$AnyEvent::Fork::EARLY->_cmd ("e" => 'print "ok 2\n"; exit 0');
5	my $w = AE::io $AnyEvent::Fork::EARLY->[1], 0, my $cv = AE::cv;
6	$cv->recv;
7	print "ok 3\n";