argv.t revision 7c478bd95313f5f23a4c958a745db2134aa03244
#!./perl
BEGIN {
chdir 't' if -d 't';
}
print "1..21\n";
print try "a line\n";
}
else {
}
}
else {
}
}
else {
}
while (<>) {
$y .= $. . $_;
if ($. == 3) {print "ok 4\n";} else {print "not ok 4\n";}
}
}
{print "ok 5\n";}
else
{print "not ok 5\n";}
$^I = '.bak';
$/ = undef;
my $i = 6;
while (<>) {
s/^/ok $i\n/;
++$i;
print;
}
print while <try>;
print while <try>;
undef $^I;
print "ok 8\n";
print "ok 9\n";
@ARGV = ();
print "ok 10\n";
print "ok 11\n";
@ARGV = ();
print "ok 12\n";
print "ok 13\n";
print "ok 14\n";
print "ok 15\n";
{
local $/;
<F>; # set $. = 1
print "ok 16\n";
print "ok 17\n";
print "ok 18\n";
print "ok 19\n";
print "ok 20\n";
print "ok 21\n";
close F;
}