1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
#!./perl
BEGIN {
chdir 't' if -d 't';
@INC = '../lib';
}
print "1..21\n";
use File::Spec;
my $devnull = File::Spec->devnull;
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_argv1.tmp Io_argv1.tmp`;
}
elsif ($^O eq 'NetWare') {
$x = `perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`;
}
else {
$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_argv1.tmp -`;
}
elsif ($^O eq 'NetWare') {
$x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`;
}
else {
$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";}
if ($^O eq 'MSWin32') {
$x = `.\\perl -le "print 'foo'" |.\\perl -e "while (<>) {print \$_;}"`;
}
elsif ($^O eq 'NetWare') {
$x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}"`;
}
else {
$x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
}
if ($x eq "foo\n") {print "ok 3\n";} else {print "not ok 3 :$x:\n";}
@ARGV = ('Io_argv1.tmp', 'Io_argv1.tmp', $devnull, 'Io_argv1.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";}
open(try, '>Io_argv1.tmp') or die "Can't open temp file: $!";
close try;
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 $i\n/;
++$i;
print;
}
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 8\n";
eof NEVEROPENED or print 'not ';
print "ok 9\n";
open STDIN, 'Io_argv1.tmp' or die $!;
@ARGV = ();
!eof() or print 'not ';
print "ok 10\n";
<> eq "ok 6\n" or print 'not ';
print "ok 11\n";
open STDIN, $devnull or die $!;
@ARGV = ();
eof() or print 'not ';
print "ok 12\n";
@ARGV = ('Io_argv1.tmp');
!eof() or print 'not ';
print "ok 13\n";
@ARGV = ($devnull, $devnull);
!eof() or print 'not ';
print "ok 14\n";
close ARGV or die $!;
eof() or print 'not ';
print "ok 15\n";
{
local $/;
open F, 'Io_argv1.tmp' or die;
<F>; # set $. = 1
print "not " if defined(<F>); # should hit eof
print "ok 16\n";
open F, $devnull or die;
print "not " unless defined(<F>);
print "ok 17\n";
print "not " if defined(<F>);
print "ok 18\n";
print "not " if defined(<F>);
print "ok 19\n";
open F, $devnull or die; # restart cycle again
print "not " unless defined(<F>);
print "ok 20\n";
print "not " if defined(<F>);
print "ok 21\n";
close F;
}
END { unlink 'Io_argv1.tmp', 'Io_argv1.tmp.bak', 'Io_argv2.tmp', 'Io_argv2.tmp.bak' }
|
