diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-29 21:04:59 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-29 21:04:59 +0000 |
| commit | 684bef36d5078e84d816e42ce6a73ae4452da2d7 (patch) | |
| tree | 4a64ac7c597496d77fd3a06f8ed1687cc6f728d9 /t/io/argv.t | |
| parent | 06605284651a1ac6146b3e5bfbe2f3ff67c78591 (diff) | |
| download | perl-684bef36d5078e84d816e42ce6a73ae4452da2d7.tar.gz | |
slurp mode fix in change#2910 wasn't quite right (spotted by Hans
Mulder)
p4raw-link: @2910 on //depot/perl: fbad3eb55c1f8c84d1dfd0e484ecddeffc891e79
p4raw-id: //depot/perl@4736
Diffstat (limited to 't/io/argv.t')
| -rwxr-xr-x | t/io/argv.t | 69 |
1 files changed, 47 insertions, 22 deletions
diff --git a/t/io/argv.t b/t/io/argv.t index 3695e8abda..d6093f90ef 100755 --- a/t/io/argv.t +++ b/t/io/argv.t @@ -5,29 +5,29 @@ BEGIN { unshift @INC, '../lib'; } -print "1..14\n"; +print "1..20\n"; use File::Spec; my $devnull = File::Spec->devnull; -open(try, '>Io.argv.tmp') || (die "Can't open temp file: $!"); +open(try, '>Io_argv1.tmp') || (die "Can't open temp file: $!"); print try "a line\n"; close try; if ($^O eq 'MSWin32') { - $x = `.\\perl -e "while (<>) {print \$.,\$_;}" Io.argv.tmp Io.argv.tmp`; + $x = `.\\perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`; } else { - $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io.argv.tmp Io.argv.tmp`; + $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io_argv1.tmp Io_argv1.tmp`; } if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";} if ($^O eq 'MSWin32') { - $x = `.\\perl -le "print 'foo'" | .\\perl -e "while (<>) {print \$_;}" Io.argv.tmp -`; + $x = `.\\perl -le "print 'foo'" | .\\perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`; } else { - $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io.argv.tmp -`; + $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io_argv1.tmp -`; } if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";} @@ -39,7 +39,7 @@ else { } if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";} -@ARGV = ('Io.argv.tmp', 'Io.argv.tmp', $devnull, 'Io.argv.tmp'); +@ARGV = ('Io_argv1.tmp', 'Io_argv1.tmp', $devnull, 'Io_argv1.tmp'); while (<>) { $y .= $. . $_; if (eof()) { @@ -52,49 +52,74 @@ if ($y eq "1a line\n2a line\n3a line\n") else {print "not ok 5\n";} -open(try, '>Io.argv.tmp') or die "Can't open temp file: $!"; +open(try, '>Io_argv1.tmp') or die "Can't open temp file: $!"; close try; -@ARGV = 'Io.argv.tmp'; +open(try, '>Io_argv2.tmp') or die "Can't open temp file: $!"; +close try; +@ARGV = ('Io_argv1.tmp', 'Io_argv2.tmp'); $^I = '.bak'; $/ = undef; +my $i = 6; while (<>) { - s/^/ok 6\n/; + s/^/ok $i\n/; + ++$i; print; } -open(try, '<Io.argv.tmp') or die "Can't open temp file: $!"; +open(try, '<Io_argv1.tmp') or die "Can't open temp file: $!"; +print while <try>; +open(try, '<Io_argv2.tmp') or die "Can't open temp file: $!"; print while <try>; close try; undef $^I; eof try or print 'not '; -print "ok 7\n"; +print "ok 8\n"; eof NEVEROPENED or print 'not '; -print "ok 8\n"; +print "ok 9\n"; -open STDIN, 'Io.argv.tmp' or die $!; +open STDIN, 'Io_argv1.tmp' or die $!; @ARGV = (); !eof() or print 'not '; -print "ok 9\n"; +print "ok 10\n"; <> eq "ok 6\n" or print 'not '; -print "ok 10\n"; +print "ok 11\n"; open STDIN, $devnull or die $!; @ARGV = (); eof() or print 'not '; -print "ok 11\n"; +print "ok 12\n"; -@ARGV = ('Io.argv.tmp'); +@ARGV = ('Io_argv1.tmp'); !eof() or print 'not '; -print "ok 12\n"; +print "ok 13\n"; @ARGV = ($devnull, $devnull); !eof() or print 'not '; -print "ok 13\n"; +print "ok 14\n"; close ARGV or die $!; eof() or print 'not '; -print "ok 14\n"; +print "ok 15\n"; + +{ + local $/; + open F, 'Io_argv1.tmp' or die; + <F>; # set $. = 1 + open F, $devnull or die; + print "not " unless defined(<F>); + print "ok 16\n"; + print "not " if defined(<F>); + print "ok 17\n"; + print "not " if defined(<F>); + print "ok 18\n"; + open F, $devnull or die; # restart cycle again + print "not " unless defined(<F>); + print "ok 19\n"; + print "not " if defined(<F>); + print "ok 20\n"; + close F; +} -END { unlink 'Io.argv.tmp', 'Io.argv.tmp.bak' } +END { unlink 'Io_argv1.tmp', 'Io_argv1.tmp.bak', 'Io_argv2.tmp', 'Io_argv2.tmp.bak' } |