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";