This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
applied suggested patch, modulo already applied parts
[perl5.git] / t / pragma / warn / doio
1   doio.c        AOK
2
3   Can't do bidirectional pipe
4     open(F, "| true |");
5
6   Missing command in piped open
7     open(F, "| ");
8
9   Missing command in piped open
10     open(F, " |");
11
12   warn(warn_nl, "open");
13     open(F, "true\ncd")
14
15   Close on unopened file <%s>
16     $a = "fred";close($a)
17
18   tell() on unopened file
19     $a = "fred";$a = tell($a)
20
21   seek() on unopened file
22     $a = "fred";$a = seek($a,1,1)
23
24   sysseek() on unopened file
25     $a = "fred";$a = seek($a,1,1)
26
27   warn(warn_uninit);
28     print $a ;
29
30   Stat on unopened file <%s> 
31     close STDIN ; -x STDIN ;
32
33   warn(warn_nl, "stat");
34     stat "ab\ncd"
35
36   warn(warn_nl, "lstat");
37     lstat "ab\ncd"
38
39   Can't exec \"%s\": %s 
40
41   Can't exec \"%s\": %s 
42
43
44 __END__
45 # doio.c
46 use warning 'io' ;
47 open(F, '|'.($^O eq 'VMS' ? 'mcr ':'')."$^X -e 1|");
48 close(F);
49 EXPECT
50 Can't do bidirectional pipe at - line 3.
51 ########
52 # doio.c
53 use warning 'io' ;
54 open(F, "|      ")
55 EXPECT
56 Missing command in piped open at - line 3.
57 ########
58 # doio.c
59 use warning 'io' ;
60 open(F, "      |")
61 EXPECT
62 Missing command in piped open at - line 3.
63 ########
64 # doio.c
65 use warning 'io' ;
66 open(F, "<true\ncd")
67 EXPECT
68 Unsuccessful open on filename containing newline at - line 3.
69 ########
70 # doio.c
71 use warning 'io' ;
72 close STDIN ;
73 tell(STDIN);
74 $a = seek(STDIN,1,1);
75 $a = sysseek(STDIN,1,1);
76 -x STDIN ;
77 EXPECT
78 tell() on unopened file at - line 4.
79 seek() on unopened file at - line 5.
80 sysseek() on unopened file at - line 6.
81 Stat on unopened file <STDIN> at - line 7.
82 ########
83 # doio.c
84 use warning 'uninitialized' ;
85 print $a ;
86 EXPECT
87 Use of uninitialized value at - line 3.
88 ########
89 # doio.c
90 use warning 'io' ;
91
92 EXPECT
93
94 ########
95 # doio.c
96 use warning 'io' ;
97 stat "ab\ncd";
98 lstat "ab\ncd";
99 EXPECT
100 Unsuccessful stat on filename containing newline at - line 3.
101 Unsuccessful stat on filename containing newline at - line 4.
102 ########
103 # doio.c
104 use warning 'io' ;
105 exec "lskdjfalksdjfdjfkls","" ;
106 EXPECT
107 OPTION regex
108 Can't exec "lskdjfalksdjfdjfkls": .+
109 ########
110 # doio.c
111 use warning 'io' ;
112 exec "lskdjfalksdjfdjfkls", "abc" ;
113 EXPECT
114 OPTION regex
115 Can't exec "lskdjfalksdjfdjfkls(:? abc)?": .+