[p5sagit/p5-mst-13.2.git] / t / io.argv

#!./perl

# $Header: io.argv,v 1.0 87/12/18 13:12:44 root Exp $

print "1..5\n";

open(try, '>Io.argv.tmp') || (die "Can't open temp file.");
print try "a line\n";
close try;

$x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;

if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}

$x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;

if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}

$x = `echo foo|./perl -e 'while (<>) {print $_;}'`;

if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3\n";}

@ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
while (<>) {
    $y .= $. . $_;
    if (eof) {
	if ($. == 3) {print "ok 4\n";} else {print "not ok 4\n";}
    }
}

if ($y eq "1a line\n2a line\n3a line\n")
    {print "ok 5\n";}
else
    {print "not ok 5\n";}

`/bin/rm -f Io.argv.tmp`;
Commit	Line	Data
8d063cd8	1	#!./perl
	2
	3	# $Header: io.argv,v 1.0 87/12/18 13:12:44 root Exp $
	4
	5	print "1..5\n";
	6
	7	open(try, '>Io.argv.tmp') \|\| (die "Can't open temp file.");
	8	print try "a line\n";
	9	close try;
	10
	11	$x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`;
	12
	13	if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
	14
	15	$x = `echo foo\|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`;
	16
	17	if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
	18
	19	$x = `echo foo\|./perl -e 'while (<>) {print $_;}'`;
	20
	21	if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3\n";}
	22
	23	@ARGV = ('Io.argv.tmp', 'Io.argv.tmp', '/dev/null', 'Io.argv.tmp');
	24	while (<>) {
	25	$y .= $. . $_;
	26	if (eof) {
	27	if ($. == 3) {print "ok 4\n";} else {print "not ok 4\n";}
	28	}
	29	}
	30
	31	if ($y eq "1a line\n2a line\n3a line\n")
	32	{print "ok 5\n";}
	33	else
	34	{print "not ok 5\n";}
	35
	36	`/bin/rm -f Io.argv.tmp`;