Commit | Line | Data |
599cee73 |
1 | pp_sys.c AOK |
2 | |
3 | untie attempted while %d inner references still exist |
4 | sub TIESCALAR { bless [] } ; tie $a, 'main'; untie $a ; |
5 | |
6 | Filehandle only opened for input |
7 | format STDIN = |
8 | . |
9 | write STDIN; |
10 | |
11 | Write on closed filehandle |
12 | format STDIN = |
13 | . |
14 | close STDIN; |
15 | write STDIN ; |
16 | |
17 | page overflow |
18 | |
19 | Filehandle %s never opened |
20 | $a = "abc"; printf $a "fred" |
21 | |
22 | Filehandle %s opened only for input |
23 | $a = "abc"; |
24 | printf $a "fred" |
25 | |
26 | printf on closed filehandle %s |
27 | close STDIN ; |
28 | printf STDIN "fred" |
29 | |
30 | Syswrite on closed filehandle |
31 | close STDIN; |
32 | syswrite STDIN, "fred", 1; |
33 | |
34 | Send on closed socket |
35 | close STDIN; |
36 | send STDIN, "fred", 1 |
37 | |
38 | bind() on closed fd |
39 | close STDIN; |
40 | bind STDIN, "fred" ; |
41 | |
42 | |
43 | connect() on closed fd |
44 | close STDIN; |
45 | connect STDIN, "fred" ; |
46 | |
47 | listen() on closed fd |
48 | close STDIN; |
49 | listen STDIN, 2; |
50 | |
51 | accept() on closed fd |
52 | close STDIN; |
53 | accept STDIN, "fred" ; |
54 | |
55 | shutdown() on closed fd |
56 | close STDIN; |
57 | shutdown STDIN, 0; |
58 | |
59 | [gs]etsockopt() on closed fd |
60 | close STDIN; |
61 | setsockopt STDIN, 1,2,3; |
62 | getsockopt STDIN, 1,2; |
63 | |
64 | get{sock, peer}name() on closed fd |
65 | close STDIN; |
66 | getsockname STDIN; |
67 | getpeername STDIN; |
68 | |
69 | warn(warn_nl, "stat"); |
70 | |
71 | Test on unopened file <%s> |
72 | close STDIN ; -T STDIN ; |
73 | |
74 | warn(warn_nl, "open"); |
75 | -T "abc\ndef" ; |
76 | |
77 | |
78 | |
79 | __END__ |
80 | # pp_sys.c |
81 | use warning 'untie' ; |
82 | sub TIESCALAR { bless [] } ; |
83 | $b = tie $a, 'main'; |
84 | untie $a ; |
85 | EXPECT |
86 | untie attempted while 1 inner references still exist at - line 5. |
87 | ######## |
88 | # pp_sys.c |
89 | use warning 'io' ; |
90 | format STDIN = |
91 | . |
92 | write STDIN; |
93 | EXPECT |
94 | Filehandle only opened for input at - line 5. |
95 | ######## |
96 | # pp_sys.c |
97 | use warning 'closed' ; |
98 | format STDIN = |
99 | . |
100 | close STDIN; |
101 | write STDIN; |
102 | EXPECT |
103 | Write on closed filehandle at - line 6. |
104 | ######## |
105 | # pp_sys.c |
106 | use warning 'io' ; |
107 | format STDOUT_TOP = |
108 | abc |
109 | . |
110 | format STDOUT = |
111 | def |
112 | ghi |
113 | . |
114 | $= = 1 ; |
115 | $- =1 ; |
3eeba6fb |
116 | open STDOUT, ">".($^O eq 'VMS'? 'NL:' : '/dev/null') ; |
599cee73 |
117 | write ; |
118 | EXPECT |
119 | page overflow at - line 13. |
120 | ######## |
121 | # pp_sys.c |
122 | use warning 'unopened' ; |
123 | $a = "abc"; |
124 | printf $a "fred" |
125 | EXPECT |
126 | Filehandle main::abc never opened at - line 4. |
127 | ######## |
128 | # pp_sys.c |
129 | use warning 'closed' ; |
130 | close STDIN ; |
131 | printf STDIN "fred" |
132 | EXPECT |
133 | printf on closed filehandle main::STDIN at - line 4. |
134 | ######## |
135 | # pp_sys.c |
136 | use warning 'io' ; |
137 | printf STDIN "fred" |
138 | EXPECT |
139 | Filehandle main::STDIN opened only for input at - line 3. |
140 | ######## |
141 | # pp_sys.c |
142 | use warning 'closed' ; |
143 | close STDIN; |
144 | syswrite STDIN, "fred", 1; |
145 | EXPECT |
146 | Syswrite on closed filehandle at - line 4. |
147 | ######## |
148 | # pp_sys.c |
149 | use warning 'io' ; |
150 | use Config; |
151 | BEGIN { |
152 | if ( $^O ne 'VMS' and ! $Config{d_socket}) { |
153 | print <<EOM ; |
154 | SKIPPED |
155 | # send not present |
156 | # bind not present |
157 | # connect not present |
158 | # accept not present |
159 | # shutdown not present |
160 | # setsockopt not present |
161 | # getsockopt not present |
162 | # getsockname not present |
163 | # getpeername not present |
164 | EOM |
165 | exit ; |
166 | } |
167 | } |
168 | close STDIN; |
169 | send STDIN, "fred", 1; |
170 | bind STDIN, "fred" ; |
171 | connect STDIN, "fred" ; |
172 | listen STDIN, 2; |
173 | accept STDIN, "fred" ; |
174 | shutdown STDIN, 0; |
175 | setsockopt STDIN, 1,2,3; |
176 | getsockopt STDIN, 1,2; |
177 | getsockname STDIN; |
178 | getpeername STDIN; |
179 | EXPECT |
180 | Send on closed socket at - line 22. |
181 | bind() on closed fd at - line 23. |
182 | connect() on closed fd at - line 24. |
183 | listen() on closed fd at - line 25. |
184 | accept() on closed fd at - line 26. |
185 | shutdown() on closed fd at - line 27. |
186 | [gs]etsockopt() on closed fd at - line 28. |
187 | [gs]etsockopt() on closed fd at - line 29. |
188 | get{sock, peer}name() on closed fd at - line 30. |
189 | get{sock, peer}name() on closed fd at - line 31. |
190 | ######## |
191 | # pp_sys.c |
192 | use warning 'newline' ; |
193 | stat "abc\ndef"; |
194 | EXPECT |
195 | Unsuccessful stat on filename containing newline at - line 3. |
196 | ######## |
197 | # pp_sys.c |
198 | use warning 'unopened' ; |
199 | close STDIN ; |
200 | -T STDIN ; |
201 | EXPECT |
202 | Test on unopened file <STDIN> at - line 4. |
203 | ######## |
204 | # pp_sys.c |
205 | use warning 'newline' ; |
206 | -T "abc\ndef" ; |
207 | EXPECT |
208 | Unsuccessful open on filename containing newline at - line 3. |