b2783062b8844f9f3c63772a1c27b9b3e4a96587
[perl.git] / t / lib / warnings / pp_sys
1   pp_sys.c      AOK
2
3   untie attempted while %d inner references still exist [pp_untie]
4     sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ;
5
6   fileno() on unopened filehandle abc           [pp_fileno]
7     $a = "abc"; fileno($a)
8
9   binmode() on unopened filehandle abc          [pp_binmode]
10     $a = "abc"; fileno($a)
11
12   printf() on unopened filehandle abc           [pp_prtf]
13     $a = "abc"; printf $a "fred"
14
15   Filehandle %s opened only for input           [pp_leavewrite]
16     format STDIN =
17     .
18     write STDIN;
19
20   write() on closed filehandle %s               [pp_leavewrite]
21     format STDIN =
22     .
23     close STDIN;
24     write STDIN ;
25
26   page overflow                                 [pp_leavewrite]
27
28   printf() on unopened filehandle abc           [pp_prtf]
29     $a = "abc"; printf $a "fred"
30
31   Filehandle %s opened only for input           [pp_prtf]
32     $a = "abc"; 
33     printf $a "fred"
34
35   printf() on closed filehandle %s              [pp_prtf]
36     close STDIN ;
37     printf STDIN "fred"
38
39   syswrite() on closed filehandle %s            [pp_send]
40     close STDIN; 
41     syswrite STDIN, "fred", 1;
42
43   send() on closed socket %s                    [pp_send]
44     close STDIN; 
45     send STDIN, "fred", 1
46
47   bind() on closed socket %s                    [pp_bind]
48     close STDIN; 
49     bind STDIN, "fred" ;
50
51
52   connect() on closed socket %s                 [pp_connect]
53     close STDIN; 
54     connect STDIN, "fred" ;
55
56   listen() on closed socket %s                  [pp_listen]
57     close STDIN; 
58     listen STDIN, 2;
59
60   accept() on closed socket %s                  [pp_accept]
61     close STDIN; 
62     accept "fred", STDIN ;
63
64   shutdown() on closed socket %s                [pp_shutdown]
65     close STDIN; 
66     shutdown STDIN, 0;
67
68   setsockopt() on closed socket %s              [pp_ssockopt]
69   getsockopt() on closed socket %s              [pp_ssockopt]
70     close STDIN; 
71     setsockopt STDIN, 1,2,3;
72     getsockopt STDIN, 1,2;
73
74   getsockname() on closed socket %s             [pp_getpeername]
75   getpeername() on closed socket %s             [pp_getpeername]
76     close STDIN; 
77     getsockname STDIN;
78     getpeername STDIN;
79
80   flock() on closed socket %s                   [pp_flock]
81   flock() on closed socket                      [pp_flock]
82     close STDIN;
83     flock STDIN, 8;
84     flock $a, 8;
85
86   warn(warn_nl, "stat");                        [pp_stat]
87
88   -T on closed filehandle %s
89   stat() on closed filehandle %s
90         close STDIN ; -T STDIN ; stat(STDIN) ;
91
92   warn(warn_nl, "open");                        [pp_fttext]
93     -T "abc\ndef" ;
94
95   Filehandle %s opened only for output          [pp_sysread]
96         my $file = "./xcv" ;
97         open(F, ">$file") ; 
98         my $a = sysread(F, $a,10) ;
99
100   lstat on filehandle %s                        [pp_lstat]
101
102   getc() on unopened filehandle                 [pp_getc]
103
104   getc() on closed filehandle                   [pp_getc]
105
106   Non-string passed as bitmask                  [pp_sselect]
107
108 __END__
109 # pp_sys.c [pp_untie]
110 use warnings 'untie' ;
111 sub TIESCALAR { bless [] } ; 
112 $b = tie $a, 'main'; 
113 untie $a ;
114 no warnings 'untie' ;
115 $c = tie $d, 'main'; 
116 untie $d ;
117 EXPECT
118 untie attempted while 1 inner references still exist at - line 5.
119 ########
120 # pp_sys.c [pp_leavewrite]
121 use warnings 'io' ;
122 format STDIN =
123 .
124 write STDIN;
125 no warnings 'io' ;
126 write STDIN;
127 EXPECT
128 Filehandle STDIN opened only for input at - line 5.
129 ########
130 # pp_sys.c [pp_leavewrite]
131 use warnings 'closed' ;
132 format STDIN =
133 .
134 format FOO =
135 .
136 close STDIN;
137 write STDIN;
138 write FOO;
139 opendir STDIN, ".";
140 write STDIN;
141 closedir STDIN;
142 opendir FOO, ".";
143 write FOO;
144 closedir FOO;
145 no warnings 'closed' ;
146 write STDIN;
147 write FOO;
148 opendir STDIN, ".";
149 opendir FOO, ".";
150 write STDIN;
151 write FOO;
152 EXPECT
153 write() on closed filehandle STDIN at - line 8.
154 write() on closed filehandle STDIN at - line 11.
155         (Are you trying to call write() on dirhandle STDIN?)
156 ########
157 ########
158 # pp_sys.c [pp_leavewrite]
159 use warnings 'unopened';
160 format STDIN =
161 .
162 format FOO =
163 .
164 close STDIN;
165 write STDIN;
166 write FOO;
167 opendir STDIN, ".";
168 write STDIN;
169 closedir STDIN;
170 opendir FOO, ".";
171 write FOO;
172 closedir FOO;
173 no warnings 'unopened';
174 write STDIN;
175 write FOO;
176 opendir STDIN, ".";
177 opendir FOO, ".";
178 write STDIN;
179 write FOO;
180 EXPECT
181 write() on unopened filehandle FOO at - line 10.
182 write() on unopened filehandle FOO at - line 15.
183         (Are you trying to call write() on dirhandle FOO?)
184 ########
185 # pp_sys.c [pp_leavewrite]
186 use warnings 'io' ;
187 format STDOUT_TOP =
188 abc
189 .
190 format STDOUT =
191 def
192 ghi
193 .
194 $= = 1 ;
195 $- =1 ;
196 open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ;
197 write ;
198 no warnings 'io' ;
199 write ;
200 EXPECT
201 page overflow at - line 13.
202 ########
203 # pp_sys.c [pp_prtf]
204 use warnings 'unopened' ;
205 $a = "abc"; 
206 printf $a "fred";
207 no warnings 'unopened' ;
208 printf $a "fred";
209 EXPECT
210 printf() on unopened filehandle abc at - line 4.
211 ########
212 # pp_sys.c [pp_prtf]
213 use warnings 'closed' ;
214 close STDIN ;
215 printf STDIN "fred";
216 opendir STDIN, ".";
217 printf STDIN "fred";
218 closedir STDIN;
219 no warnings 'closed' ;
220 printf STDIN "fred";
221 opendir STDIN, ".";
222 printf STDIN "fred";
223 EXPECT
224 printf() on closed filehandle STDIN at - line 4.
225 printf() on closed filehandle STDIN at - line 6.
226         (Are you trying to call printf() on dirhandle STDIN?)
227 ########
228 # pp_sys.c [pp_prtf]
229 use warnings 'io' ;
230 printf STDIN "fred";
231 no warnings 'io' ;
232 printf STDIN "fred";
233 EXPECT
234 Filehandle STDIN opened only for input at - line 3.
235 ########
236 # pp_sys.c [pp_send]
237 use warnings 'io' ;
238 syswrite STDIN, "fred";
239 no warnings 'io' ;
240 syswrite STDIN, "fred";
241 EXPECT
242 Filehandle STDIN opened only for input at - line 3.
243 ########
244 # pp_sys.c [pp_send]
245 use warnings 'closed' ;
246 close STDIN; 
247 syswrite STDIN, "fred", 1;
248 opendir STDIN, ".";
249 syswrite STDIN, "fred", 1;
250 closedir STDIN;
251 no warnings 'closed' ;
252 syswrite STDIN, "fred", 1;
253 opendir STDIN, ".";
254 syswrite STDIN, "fred", 1;
255 EXPECT
256 syswrite() on closed filehandle STDIN at - line 4.
257 syswrite() on closed filehandle STDIN at - line 6.
258         (Are you trying to call syswrite() on dirhandle STDIN?)
259 ########
260 # pp_sys.c [pp_flock]
261 use Config; 
262 BEGIN { 
263   if ( !$Config{d_flock} &&
264        !$Config{d_fcntl_can_lock} &&
265        !$Config{d_lockf} ) {
266     print <<EOM ;
267 SKIPPED
268 # flock not present
269 EOM
270     exit ;
271   } 
272 }
273 use warnings qw(unopened closed);
274 close STDIN;
275 flock STDIN, 8;
276 opendir STDIN, ".";
277 flock STDIN, 8;
278 flock FOO, 8;
279 flock $a, 8;
280 no warnings qw(unopened closed);
281 flock STDIN, 8;
282 opendir STDIN, ".";
283 flock STDIN, 8;
284 flock FOO, 8;
285 flock $a, 8;
286 EXPECT
287 flock() on closed filehandle STDIN at - line 16.
288 flock() on closed filehandle STDIN at - line 18.
289         (Are you trying to call flock() on dirhandle STDIN?)
290 flock() on unopened filehandle FOO at - line 19.
291 flock() on unopened filehandle at - line 20.
292 ########
293 # pp_sys.c [pp_prtf pp_send pp_bind pp_connect pp_listen pp_accept pp_shutdown pp_ssockopt ppp_getpeername]
294 use warnings 'closed';
295 use Config; 
296 BEGIN { 
297   if ( $^O ne 'VMS' and ! $Config{d_socket}) {
298     print <<EOM ;
299 SKIPPED
300 # send not present
301 # bind not present
302 # connect not present
303 # accept not present
304 # shutdown not present
305 # setsockopt not present
306 # getsockopt not present
307 # getsockname not present
308 # getpeername not present
309 EOM
310     exit ;
311   } 
312 }
313 close STDIN; 
314 send STDIN, "fred", 1;
315 bind STDIN, "fred" ;
316 connect STDIN, "fred" ;
317 listen STDIN, 2;
318 accept "fred", STDIN;
319 shutdown STDIN, 0;
320 setsockopt STDIN, 1,2,3;
321 getsockopt STDIN, 1,2;
322 getsockname STDIN;
323 getpeername STDIN;
324 opendir STDIN, ".";
325 send STDIN, "fred", 1;
326 bind STDIN, "fred" ;
327 connect STDIN, "fred" ;
328 listen STDIN, 2;
329 accept "fred", STDIN;
330 shutdown STDIN, 0;
331 setsockopt STDIN, 1,2,3;
332 getsockopt STDIN, 1,2;
333 getsockname STDIN;
334 getpeername STDIN;
335 closedir STDIN;
336 no warnings 'closed';
337 send STDIN, "fred", 1;
338 bind STDIN, "fred" ;
339 connect STDIN, "fred" ;
340 listen STDIN, 2;
341 accept STDIN, "fred" ;
342 shutdown STDIN, 0;
343 setsockopt STDIN, 1,2,3;
344 getsockopt STDIN, 1,2;
345 getsockname STDIN;
346 getpeername STDIN;
347 opendir STDIN, ".";
348 send STDIN, "fred", 1;
349 bind STDIN, "fred" ;
350 connect STDIN, "fred" ;
351 listen STDIN, 2;
352 accept "fred", STDIN;
353 shutdown STDIN, 0;
354 setsockopt STDIN, 1,2,3;
355 getsockopt STDIN, 1,2;
356 getsockname STDIN;
357 getpeername STDIN;
358 EXPECT
359 send() on closed socket STDIN at - line 22.
360 bind() on closed socket STDIN at - line 23.
361 connect() on closed socket STDIN at - line 24.
362 listen() on closed socket STDIN at - line 25.
363 accept() on closed socket STDIN at - line 26.
364 shutdown() on closed socket STDIN at - line 27.
365 setsockopt() on closed socket STDIN at - line 28.
366 getsockopt() on closed socket STDIN at - line 29.
367 getsockname() on closed socket STDIN at - line 30.
368 getpeername() on closed socket STDIN at - line 31.
369 send() on closed socket STDIN at - line 33.
370         (Are you trying to call send() on dirhandle STDIN?)
371 bind() on closed socket STDIN at - line 34.
372         (Are you trying to call bind() on dirhandle STDIN?)
373 connect() on closed socket STDIN at - line 35.
374         (Are you trying to call connect() on dirhandle STDIN?)
375 listen() on closed socket STDIN at - line 36.
376         (Are you trying to call listen() on dirhandle STDIN?)
377 accept() on closed socket STDIN at - line 37.
378         (Are you trying to call accept() on dirhandle STDIN?)
379 shutdown() on closed socket STDIN at - line 38.
380         (Are you trying to call shutdown() on dirhandle STDIN?)
381 setsockopt() on closed socket STDIN at - line 39.
382         (Are you trying to call setsockopt() on dirhandle STDIN?)
383 getsockopt() on closed socket STDIN at - line 40.
384         (Are you trying to call getsockopt() on dirhandle STDIN?)
385 getsockname() on closed socket STDIN at - line 41.
386         (Are you trying to call getsockname() on dirhandle STDIN?)
387 getpeername() on closed socket STDIN at - line 42.
388         (Are you trying to call getpeername() on dirhandle STDIN?)
389 ########
390 # pp_sys.c [pp_stat]
391 use warnings 'newline' ;
392 stat "abc\ndef";
393 no warnings 'newline' ;
394 stat "abc\ndef";
395 EXPECT
396 Unsuccessful stat on filename containing newline at - line 3.
397 ########
398 # pp_sys.c [pp_fttext]
399 use warnings qw(unopened closed) ;
400 close STDIN ; 
401 -T STDIN ;
402 stat(STDIN) ;
403 -T HOCUS;
404 stat(POCUS);
405 no warnings qw(unopened closed) ;
406 -T STDIN ;
407 stat(STDIN);
408 -T HOCUS;
409 stat(POCUS);
410 EXPECT
411 -T on closed filehandle STDIN at - line 4.
412 stat() on closed filehandle STDIN at - line 5.
413 -T on unopened filehandle HOCUS at - line 6.
414 stat() on unopened filehandle POCUS at - line 7.
415 ########
416 # pp_sys.c [pp_fttext]
417 use warnings 'newline' ;
418 -T "abc\ndef" ;
419 no warnings 'newline' ;
420 -T "abc\ndef" ;
421 EXPECT
422 Unsuccessful open on filename containing newline at - line 3.
423 ########
424 # pp_sys.c [pp_sysread]
425 use warnings 'io' ;
426 if ($^O eq 'dos') {
427     print <<EOM ;
428 SKIPPED
429 # skipped on dos
430 EOM
431     exit ;
432 }
433 my $file = "./xcv" ;
434 open(F, ">$file") ; 
435 my $a = sysread(F, $a,10) ;
436 no warnings 'io' ;
437 my $a = sysread(F, $a,10) ;
438 close F ;
439 use warnings 'io' ;
440 sysread(F, $a, 10);
441 read(F, $a, 10);
442 sysread(NONEXISTENT, $a, 10);
443 read(NONEXISTENT, $a, 10);
444 unlink $file ;
445 EXPECT
446 Filehandle F opened only for output at - line 12.
447 sysread() on closed filehandle F at - line 17.
448 read() on closed filehandle F at - line 18.
449 sysread() on unopened filehandle NONEXISTENT at - line 19.
450 read() on unopened filehandle NONEXISTENT at - line 20.
451 ########
452 # pp_sys.c [pp_binmode]
453 use warnings 'unopened' ;
454 binmode(BLARG);
455 $a = "BLERG";binmode($a);
456 EXPECT
457 binmode() on unopened filehandle BLARG at - line 3.
458 binmode() on unopened filehandle at - line 4.
459 ########
460 # pp_sys.c [pp_lstat]
461 use warnings 'io';
462 open FH, "../harness" or die "# $!";
463 lstat FH;
464 open my $fh, $0 or die "# $!";
465 lstat $fh;
466 no warnings 'io';
467 lstat FH;
468 lstat $fh;
469 close FH;
470 close $fh;
471 EXPECT
472 lstat() on filehandle FH at - line 4.
473 lstat() on filehandle $fh at - line 6.
474 ########
475 # pp_sys.c [pp_getc]
476 use warnings qw(unopened closed) ;
477 getc FOO;
478 close STDIN;
479 getc STDIN;
480 # Create an empty file
481 $file = 'getcwarn.tmp';
482 open FH1, ">$file" or die "# $!"; close FH1;
483 open FH2, $file    or die "# $!";
484 getc FH2; # Should not warn at EOF
485 close FH2;
486 getc FH2; # Warns, now
487 unlink $file;
488 no warnings qw(unopened closed) ;
489 getc FOO;
490 getc STDIN;
491 getc FH2;
492 EXPECT
493 getc() on unopened filehandle FOO at - line 3.
494 getc() on closed filehandle STDIN at - line 5.
495 getc() on closed filehandle FH2 at - line 12.
496 ########
497 # pp_sys.c [pp_sselect]
498 use warnings 'misc';
499 $x = 1;
500 select $x, undef, undef, 1;
501 no warnings 'misc';
502 select $x, undef, undef, 1;
503 EXPECT
504 Non-string passed as bitmask at - line 4.
505 ########
506 use Config;
507 BEGIN {
508     if (!$Config{d_fchdir}) {
509         print <<EOM;
510 SKIPPED
511 # fchdir not present
512 EOM
513         exit;
514     }
515 }
516 opendir FOO, '.'; closedir FOO;
517 open BAR, '.'; close BAR;
518 opendir $dh, '.'; closedir $dh;
519 open $fh, '.'; close $fh;
520 chdir FOO;
521 chdir BAR;
522 chdir $dh;
523 chdir $fh;
524 use warnings qw(unopened closed) ;
525 chdir FOO;
526 chdir BAR;
527 chdir $dh;
528 chdir $fh;
529 EXPECT
530 chdir() on unopened filehandle FOO at - line 20.
531 chdir() on closed filehandle BAR at - line 21.
532 chdir() on unopened filehandle $dh at - line 22.
533 chdir() on closed filehandle $fh at - line 23.
534 ########
535 # pp_sys.c [pp_open]
536 use warnings;
537 opendir FOO, ".";
538 opendir my $foo, ".";
539 open FOO, "../harness";
540 open $foo, "../harness";
541 no warnings qw(io deprecated);
542 open FOO, "../harness";
543 open $foo, "../harness";
544 EXPECT
545 Opening dirhandle FOO also as a file at - line 5.
546 Opening dirhandle $foo also as a file at - line 6.
547 ########
548 # pp_sys.c [pp_open_dir]
549 use warnings;
550 open FOO, "../harness";
551 open my $foo, "../harness";
552 opendir FOO, ".";
553 opendir $foo, ".";
554 no warnings qw(io deprecated);
555 opendir FOO, ".";
556 opendir $foo, ".";
557 EXPECT
558 Opening filehandle FOO also as a directory at - line 5.
559 Opening filehandle $foo also as a directory at - line 6.