BEGIN { $| = 1; print "1..4\n"; }
use AnyEvent::Util;
use AnyEvent::Fork::Remote;
use Proc::FastSpawn;
print "ok 1\n";
my $fork = new_exec AnyEvent::Fork::Remote $^X, "perl";
print "ok 2\n";
$fork->eval ('sub prr { syswrite STDOUT, "ok 3\n"; exit }');
$fork->run ("prr", my $cv = AE::cv);
$fh = $cv->recv;
AnyEvent::Util::fh_nonblocking $fh, 0;
print <$fh>;
print "ok 4\n";