a4518460b4955306ef4de0e7d889fbe4b9ac9fb5
[perl.git] / t / lib / warnings / doio
1   doio.c        
2
3   Can't open bidirectional pipe         [Perl_do_open9]
4     open(F, "| true |");
5
6   Missing command in piped open         [Perl_do_open9]
7     open(F, "| ");
8
9   Missing command in piped open         [Perl_do_open9]
10     open(F, " |");
11
12   warn(warn_nl, "open");                [Perl_do_open9]
13     open(F, "true\ncd")
14
15   close() on unopened filehandle %s     [Perl_do_close]
16     $a = "fred";close("$a")
17
18   tell() on closed filehandle           [Perl_do_tell]
19     $a = "fred";$a = tell($a)
20
21   seek() on closed filehandle           [Perl_do_seek]
22     $a = "fred";$a = seek($a,1,1)
23
24   sysseek() on closed filehandle        [Perl_do_sysseek]
25     $a = "fred";$a = seek($a,1,1)
26
27   warn(warn_uninit);                    [Perl_do_print]
28     print $a ;
29
30   -x on closed filehandle %s            [Perl_my_stat]
31     close STDIN ; -x STDIN ;
32
33   warn(warn_nl, "stat");                [Perl_my_stat]
34     stat "ab\ncd"
35
36   warn(warn_nl, "lstat");               [Perl_my_lstat]
37     lstat "ab\ncd"
38
39   Use of -l on filehandle %s            [Perl_my_lstat]
40
41   Can't exec \"%s\": %s                 [Perl_do_aexec5]
42
43   Can't exec \"%s\": %s                 [Perl_do_exec3]
44
45   Filehandle %s opened only for output  [Perl_do_eof]
46         my $a = eof STDOUT
47
48   Mandatory Warnings ALL TODO
49   ------------------
50   Can't do inplace edit: %s is not a regular file       [Perl_nextargv]
51      edit a directory
52
53   Can't do inplace edit: %s would not be unique         [Perl_nextargv]
54   Can't rename %s to %s: %s, skipping file              [Perl_nextargv]
55   Can't rename %s to %s: %s, skipping file              [Perl_nextargv]
56   Can't remove %s: %s, skipping file                    [Perl_nextargv]
57   Can't do inplace edit on %s: %s                       [Perl_nextargv]
58   
59
60 __END__
61 # doio.c [Perl_do_open9]
62 use warnings 'io' ;
63 open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
64 close(F);
65 no warnings 'io' ;
66 open(G, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
67 close(G);
68 EXPECT
69 Can't open bidirectional pipe at - line 3.
70 ########
71 # doio.c [Perl_do_open9]
72 use warnings 'io' ;
73 open(F, "|      ");
74 no warnings 'io' ;
75 open(G, "|      ");
76 EXPECT
77 Missing command in piped open at - line 3.
78 ########
79 # doio.c [Perl_do_open9]
80 use warnings 'io' ;
81 open(F, "      |");
82 no warnings 'io' ;
83 open(G, "      |");
84 EXPECT
85 Missing command in piped open at - line 3.
86 ########
87 # doio.c [Perl_do_open9]
88 use warnings 'io' ;
89 open(F, "<true\ncd");
90 no warnings 'io' ;
91 open(G, "<true\ncd");
92 EXPECT
93 Unsuccessful open on filename containing newline at - line 3.
94 ########
95 # doio.c [Perl_do_close] <<TODO
96 use warnings 'unopened' ;
97 close "fred" ;
98 no warnings 'unopened' ;
99 close "joe" ;
100 EXPECT
101 close() on unopened filehandle fred at - line 3.
102 ########
103 # doio.c [Perl_do_tell Perl_do_seek Perl_do_sysseek Perl_my_stat]
104 use warnings 'io' ;
105 close STDIN ;
106 tell(STDIN);
107 $a = seek(STDIN,1,1);
108 $a = sysseek(STDIN,1,1);
109 -x STDIN ;
110 stat(STDIN) ;
111 $a = "fred";
112 tell($a);
113 seek($a,1,1);
114 sysseek($a,1,1);
115 -x $a; # ok
116 stat($a); # ok
117 no warnings 'io' ;
118 close STDIN ;
119 tell(STDIN);
120 $a = seek(STDIN,1,1);
121 $a = sysseek(STDIN,1,1);
122 -x STDIN ;
123 stat(STDIN) ;
124 $a = "fred";
125 tell($a);
126 seek($a,1,1);
127 sysseek($a,1,1);
128 -x $a;
129 stat($a);
130 EXPECT
131 tell() on closed filehandle STDIN at - line 4.
132 seek() on closed filehandle STDIN at - line 5.
133 sysseek() on closed filehandle STDIN at - line 6.
134 -x on closed filehandle STDIN at - line 7.
135 stat() on closed filehandle STDIN at - line 8.
136 tell() on unopened filehandle at - line 10.
137 seek() on unopened filehandle at - line 11.
138 sysseek() on unopened filehandle at - line 12.
139 ########
140 # doio.c [Perl_do_print]
141 use warnings 'uninitialized' ;
142 print $a ;
143 no warnings 'uninitialized' ;
144 print $b ;
145 EXPECT
146 Use of uninitialized value $a in print at - line 3.
147 ########
148 # doio.c [Perl_my_stat Perl_my_lstat]
149 use warnings 'io' ;
150 stat "ab\ncd";
151 lstat "ab\ncd";
152 no warnings 'io' ;
153 stat "ab\ncd";
154 lstat "ab\ncd";
155 EXPECT
156 Unsuccessful stat on filename containing newline at - line 3.
157 Unsuccessful stat on filename containing newline at - line 4.
158 ########
159 # doio.c [Perl_my_stat]
160 use warnings 'io';
161 -l STDIN;
162 -l $fh;
163 open $fh, $0 or die "# $!";
164 -l $fh;
165 no warnings 'io';
166 -l STDIN;
167 -l $fh;
168 close $fh;
169 EXPECT
170 Use of -l on filehandle STDIN at - line 3.
171 Use of -l on filehandle $fh at - line 6.
172 ########
173 # doio.c [Perl_do_aexec5]
174 BEGIN {
175     if ($^O eq 'MacOS') {
176         print <<EOM;
177 SKIPPED
178 # no exec on Mac OS
179 EOM
180         exit;
181     }
182 }
183 use warnings 'io' ;
184 exec "lskdjfalksdjfdjfkls","" ;
185 no warnings 'io' ;
186 exec "lskdjfalksdjfdjfkls","" ;
187 EXPECT
188 OPTION regex
189 Can't exec "lskdjfalksdjfdjfkls": .+
190 ########
191 # doio.c [Perl_do_exec3]
192 BEGIN {
193     if ($^O eq 'MacOS') {
194         print <<EOM;
195 SKIPPED
196 # no exec on Mac OS
197 EOM
198         exit;
199     }
200 }
201 use warnings 'io' ;
202 exec "lskdjfalksdjfdjfkls", "abc" ;
203 no warnings 'io' ;
204 exec "lskdjfalksdjfdjfkls", "abc" ;
205 EXPECT
206 OPTION regex
207 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+
208 ########
209 # doio.c [win32_execvp]
210 BEGIN {
211     if ($^O eq 'MacOS') {
212         print <<EOM;
213 SKIPPED
214 # no exec on Mac OS
215 EOM
216         exit;
217     }
218 }
219 use warnings 'exec' ;
220 exec $^X, "-e0" ;
221 EXPECT
222 ########
223 # doio.c [Perl_nextargv]
224 $^W = 0 ;
225 my $filename = "./temp.dir" ;
226 mkdir $filename, 0777 
227   or die "Cannot create directory $filename: $!\n" ;
228 {
229     local (@ARGV) = ($filename) ;
230     local ($^I) = "" ;
231     my $x = <> ;
232 }
233 {
234     no warnings 'inplace' ;
235     local (@ARGV) = ($filename) ;
236     local ($^I) = "" ;
237     my $x = <> ;
238 }
239 {
240     use warnings 'inplace' ;
241     local (@ARGV) = ($filename) ;
242     local ($^I) = "" ;
243     my $x = <> ;
244 }
245 rmdir $filename ;
246 EXPECT
247 Can't do inplace edit: ./temp.dir is not a regular file at - line 9.
248 Can't do inplace edit: ./temp.dir is not a regular file at - line 21.
249
250 ########
251 # doio.c [Perl_do_eof]
252 use warnings 'io' ;
253 my $a = eof STDOUT ;
254 no warnings 'io' ;
255 $a = eof STDOUT ;
256 EXPECT
257 Filehandle STDOUT opened only for output at - line 3.
258 ########
259 # doio.c [Perl_do_openn]
260 use Config;
261 BEGIN {
262     if ($Config{useperlio}) {
263         print <<EOM;
264 SKIPPED
265 # warns only without perlio
266 EOM
267         exit;
268     }
269 }
270 use warnings 'io';
271 my $x = "foo";
272 open FOO, '>', \$x;
273 open BAR, '>&', \*STDOUT; # should not warn
274 no warnings 'io';
275 open FOO, '>', \$x;
276 EXPECT
277 Can't open a reference at - line 14.
278 ########
279 # doio.c [Perl_do_openn]
280 use Config;
281 BEGIN {
282     if (!$Config{useperlio}) {
283         print <<EOM;
284 SKIPPED
285 # warns only with perlio
286 EOM
287         exit;
288     }
289 }
290 use warnings 'io' ;
291 close STDOUT;
292 open FH1, "harness"; close FH1;
293 no warnings 'io' ;
294 open FH2, "harness"; close FH2;
295 EXPECT
296 Filehandle STDOUT reopened as FH1 only for input at - line 14.
297 ########
298 # doio.c [Perl_do_openn]
299 use Config;
300 BEGIN {
301     if (!$Config{useperlio}) {
302         print <<EOM;
303 SKIPPED
304 # warns only with perlio
305 EOM
306         exit;
307     }
308 }
309 use warnings 'io' ;
310 close STDIN;
311 open my $fh1, ">doiowarn.tmp"; close $fh1;
312 no warnings 'io' ;
313 open my $fh2, ">doiowarn.tmp"; close $fh2;
314 unlink "doiowarn.tmp";
315 EXPECT
316 Filehandle STDIN reopened as $fh1 only for output at - line 14.