AnyEvent-Fork/t/03_new.t

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";
Revision:	1.2
Committed:	Thu Apr 4 01:54:41 2013 UTC (11 years, 2 months ago) by root
Content type:	application/x-troff
Branch:	MAIN
Changes since 1.1:	+1 -0 lines
Log Message:	* empty log message *
#	User	Rev	Content
1	root	1.1	BEGIN { $\| = 1; print "1..8\n"; }
2
3			use AnyEvent::Fork;
4
5			print "ok 1\n";
6
7			my $proc = new AnyEvent::Fork;
8
9			print $proc ? "" : "not ", "ok 2\n";
10			print $AnyEvent::Fork::TEMPLATE ? "" : "not ", "ok 3\n";
11			print !$AnyEvent::Fork::EARLY ? "" : "not ", "ok 4\n";
12
13			use AnyEvent::Util;
14			print +(my ($r, $w) = AnyEvent::Util::portable_pipe) ? "" : "not ", "ok 5\n";
15
16			$proc->send_fh ($w);
17			$proc->_cmd (e => 'syswrite $arg[0], "173\n"');
18			{ my $w = AE::io $r, 0, my $cv = AE::cv; $cv->recv }
19
20			print "ok 6\n";
21
22	root	1.2	close $w;
23	root	1.1	print <$r> eq "173\n" ? "" : "not ", "ok 7\n";
24
25			print "ok 8\n";