#!./perl

# $Header: io.argv,v 3.0.1.1 89/11/11 04:59:05 lwall Locked $

print "1..5\n";

open(try, '>Tmp.Argv') || (die "Can't open temp file.");
print try "a line\n";
close try;
open(try, '>Tmp.Foo') || (die "Can't open temp file (foo).");
print try "foo\n";
close try;

$x = `^.perl -e "while (<>) {print \$.,\$_;}" Tmp.Argv Tmp.Argv`;

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

$x = `^.perl -e "while (<>) {print $_;}" Tmp.Argv - <Tmp.Foo`;

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

$x = `^.perl -e "while (<>) {print $_;}" <Tmp.Foo`;

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

@ARGV = ('Tmp.Argv', 'Tmp.Argv', 'null:', 'Tmp.Argv');
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";}

`remove Tmp.Argv`;
`remove Tmp.Foo`;

