BEGIN { $| = 1; print "1..8\n"; }

use AnyEvent::Fork;

print "ok 1\n";

my $proc = new AnyEvent::Fork;

print $proc ? "" : "not ", "ok 2\n";
print $AnyEvent::Fork::TEMPLATE ? "" : "not ", "ok 3\n";
print !$AnyEvent::Fork::EARLY ? "" : "not ", "ok 4\n";

use AnyEvent::Util;
print +(my ($r, $w) = AnyEvent::Util::portable_pipe) ? "" : "not ", "ok 5\n";

$proc->send_fh ($w);
$proc->_cmd (e => 'syswrite $arg[0], "173\n"');
{ my $w = AE::io $r, 0, my $cv = AE::cv; $cv->recv }

print "ok 6\n";

close $w;
print <$r> eq "173\n" ? "" : "not ", "ok 7\n";

print "ok 8\n";