This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
c295534e8559dffc39ddd7765b9e8e66692cb718
[perl5.git] / t / lib / croak / toke
1 __END__
2 # NAME foo found where operator expected
3 myfunc 1,2,3
4 EXPECT
5 Number found where operator expected at - line 1, near "myfunc 1"
6         (Do you need to predeclare myfunc?)
7 syntax error at - line 1, near "myfunc 1"
8 Execution of - aborted due to compilation errors.
9 ########
10 # NAME foo found where operator expected (after strict error, w/fatal warnings)
11 use warnings FATAL => 'all';
12 use strict;
13 $foo;
14 myfunc 1,2,3
15 EXPECT
16 Global symbol "$foo" requires explicit package name (did you forget to declare "my $foo"?) at - line 3.
17 Number found where operator expected at - line 4, near "myfunc 1"
18         (Do you need to predeclare myfunc?)
19 syntax error at - line 4, near "myfunc 1"
20 Execution of - aborted due to compilation errors.
21 ########
22 # NAME (Missing operator before ${?) [perl #123737]
23 0${
24 EXPECT
25 Scalar found where operator expected at - line 1, near "0${"
26         (Missing operator before ${?)
27 syntax error at - line 1, near "0$"
28 Missing right curly or square bracket at - line 1, at end of line
29 Execution of - aborted due to compilation errors.
30 ########
31 # NAME (Missing operator before $#{?) [perl #123737]
32 0$#{
33 EXPECT
34 Array length found where operator expected at - line 1, near "0$#{"
35         (Missing operator before $#{?)
36 syntax error at - line 1, near "0$#"
37 Missing right curly or square bracket at - line 1, at end of line
38 Execution of - aborted due to compilation errors.
39 ########
40 # NAME (Missing operator before @foo) [perl #123737]
41 0@foo
42 EXPECT
43 Array found where operator expected at - line 1, near "0@foo"
44         (Missing operator before @foo?)
45 syntax error at - line 1, near "0@foo
46 "
47 Execution of - aborted due to compilation errors.
48 ########
49 # NAME (Missing operator before @{) [perl #123737]
50 0@{
51 EXPECT
52 Array found where operator expected at - line 1, near "0@{"
53         (Missing operator before @{?)
54 syntax error at - line 1, near "0@"
55 Missing right curly or square bracket at - line 1, at end of line
56 Execution of - aborted due to compilation errors.
57 ########
58 # NAME Unterminated here-doc in string eval
59 eval "<<foo"; die $@
60 EXPECT
61 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
62 ########
63 # NAME Unterminated here-doc in s/// string eval
64 eval "s//<<foo/e"; die $@
65 EXPECT
66 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
67 ########
68 # NAME Unterminated here-doc in string
69 "${<<foo"; # Used to give ‘Attempt to free blah blah blah’
70 EXPECT
71 Can't find string terminator "foo" anywhere before EOF at - line 1.
72 ########
73 # NAME Unterminated qw//
74 qw/
75 EXPECT
76 Can't find string terminator "/" anywhere before EOF at - line 1.
77 ########
78 # NAME Unterminated q//
79 qw/
80 EXPECT
81 Can't find string terminator "/" anywhere before EOF at - line 1.
82 ########
83 # NAME Unterminated ''
84 '
85 EXPECT
86 Can't find string terminator "'" anywhere before EOF at - line 1.
87 ########
88 # NAME /\N{/
89 /\N{/
90 EXPECT
91 Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
92 Execution of - aborted due to compilation errors.
93 ########
94 # NAME map{for our *a...
95 map{for our *a (1..10) {$_.=$x}}
96 EXPECT
97 Missing $ on loop variable at - line 1.
98 ########
99 # NAME Missing name in "my sub"
100 use feature 'lexical_subs'; my sub;
101 EXPECT
102 Missing name in "my sub" at - line 1.
103 ########
104 # NAME Missing name in "our sub"
105 use feature 'lexical_subs'; our sub;
106 EXPECT
107 Missing name in "our sub" at - line 1.
108 ########
109 # NAME Missing name in "state sub"
110 use 5.01;
111 state sub;
112 EXPECT
113 Missing name in "state sub" at - line 2.
114 ########
115 # NAME my sub pack::foo
116 use feature 'lexical_subs', 'state';
117 my sub foo::bar;
118 state sub foo::bear;
119 EXPECT
120 "my" subroutine &foo::bar can't be in a package at - line 2, near "my sub foo::bar"
121 "state" subroutine &foo::bear can't be in a package at - line 3, near "state sub foo::bear"
122 Execution of - aborted due to compilation errors.
123 ########
124 # NAME Integer constant overloading returning undef
125 use overload;
126 BEGIN { overload::constant integer => sub {}; undef *^H }
127 1
128 EXPECT
129 Constant(1) unknown at - line 3, at end of line
130 Execution of - aborted due to compilation errors.
131 ########
132 # NAME Float constant overloading returning undef
133 use overload;
134 BEGIN { overload::constant float => sub {}; undef *^H }
135 1.1
136 EXPECT
137 Constant(1.1) unknown at - line 3, at end of line
138 Execution of - aborted due to compilation errors.
139 ########
140 # NAME Binary constant overloading returning undef
141 use overload;
142 BEGIN { overload::constant binary => sub {}; undef *^H }
143 0x1
144 EXPECT
145 Constant(0x1) unknown at - line 3, at end of line
146 Execution of - aborted due to compilation errors.
147 ########
148 # NAME String constant overloading returning undef
149 use overload;
150 BEGIN { overload::constant q => sub {}; undef *^H }
151 '1', "1$_", tr"a"", s""a"
152 EXPECT
153 Constant(q) unknown at - line 3, near "'1'"
154 Constant(qq) unknown at - line 3, within string
155 Constant(tr) unknown at - line 3, within string
156 Constant(s) unknown at - line 3, within string
157 Execution of - aborted due to compilation errors.
158 ########
159 # NAME Regexp constant overloading when *^H is undefined
160 use overload;
161 BEGIN { overload::constant qr => sub {}; undef *^H }
162 /a/, m'a'
163 EXPECT
164 Constant(qq) unknown at - line 3, within pattern
165 Constant(q) unknown at - line 3, within pattern
166 Execution of - aborted due to compilation errors.
167 ########
168 # NAME \N{...} when charnames fails to load but without an error
169 # SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
170 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
171 "\N{a}"
172 EXPECT
173 Constant(\N{a}) unknown at - line 2, within string
174 Execution of - aborted due to compilation errors.
175 ########
176 # NAME Integer constant overloading returning undef
177 use overload;
178 BEGIN { overload::constant integer => sub {} }
179 1
180 EXPECT
181 Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
182 Execution of - aborted due to compilation errors.
183 ########
184 # NAME Float constant overloading returning undef
185 use overload;
186 BEGIN { overload::constant float => sub {} }
187 1.1
188 EXPECT
189 Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
190 Execution of - aborted due to compilation errors.
191 ########
192 # NAME Binary constant overloading returning undef
193 use overload;
194 BEGIN { overload::constant binary => sub {} }
195 0x1
196 EXPECT
197 Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
198 Execution of - aborted due to compilation errors.
199 ########
200 # NAME String constant overloading returning undef
201 use overload;
202 BEGIN { overload::constant q => sub {} }
203 '1', "1$_", tr"a"", s""a"
204 EXPECT
205 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
206 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
207 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
208 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
209 Execution of - aborted due to compilation errors.
210 ########
211 # NAME Regexp constant overloading returning undef
212 use overload;
213 BEGIN { overload::constant qr => sub {} }
214 /a/, m'a'
215 EXPECT
216 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
217 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
218 Execution of - aborted due to compilation errors.
219 ########
220 # NAME Failed constant overloading should not cause a double free
221 use overload;
222 BEGIN { overload::constant q => sub {}; undef *^H }
223 undef(1,2);
224 undef(1,2);
225 undef(1,2);
226 undef(1,2);
227 undef(1,2);
228 undef(1,2);
229 undef(1,2);
230 undef(1,2);
231 undef(1,2);
232 "a"
233 EXPECT
234 Too many arguments for undef operator at - line 3, near "2)"
235 Too many arguments for undef operator at - line 4, near "2)"
236 Too many arguments for undef operator at - line 5, near "2)"
237 Too many arguments for undef operator at - line 6, near "2)"
238 Too many arguments for undef operator at - line 7, near "2)"
239 Too many arguments for undef operator at - line 8, near "2)"
240 Too many arguments for undef operator at - line 9, near "2)"
241 Too many arguments for undef operator at - line 10, near "2)"
242 Too many arguments for undef operator at - line 11, near "2)"
243 Constant(q) unknown at - line 12, near ""a""
244 - has too many errors.
245 ########
246 # NAME Unterminated delimiter for here document
247 <<"foo
248 EXPECT
249 Unterminated delimiter for here document at - line 1.
250 ########
251 # NAME my (our $x) errors
252 my (our $x);
253 EXPECT
254 Can't redeclare "our" in "my" at - line 1, at end of line
255 Execution of - aborted due to compilation errors.
256 ########
257 # NAME our (my $x) errors
258 our (my $x);
259 EXPECT
260 Can't redeclare "my" in "our" at - line 1, at end of line
261 Execution of - aborted due to compilation errors.
262 ########
263 # NAME state (my $x) errors
264 use feature 'state';
265 state (my $x);
266 EXPECT
267 Can't redeclare "my" in "state" at - line 2, at end of line
268 Execution of - aborted due to compilation errors.
269 ########
270 # NAME our (state $x) errors
271 use feature 'state';
272 our (state $x);
273 EXPECT
274 Can't redeclare "state" in "our" at - line 2, at end of line
275 Execution of - aborted due to compilation errors.
276 ########
277 # NAME my (my $x) errors
278 my (my $x, $y, $z);
279 EXPECT
280 Can't redeclare "my" in "my" at - line 1, at end of line
281 Execution of - aborted due to compilation errors.
282 ########
283 # NAME our (our $x) errors
284 our ($x, our($y), $z);
285 EXPECT
286 Can't redeclare "our" in "our" at - line 1, near ", "
287 Execution of - aborted due to compilation errors.
288 ########
289 # NAME state (state $x) errors
290 use feature 'state';
291 state ($x, $y, state $z);
292 EXPECT
293 Can't redeclare "state" in "state" at - line 2, near ", "
294 Execution of - aborted due to compilation errors.
295 ########
296 # NAME BEGIN <> [perl #125341]
297 BEGIN <>
298 EXPECT
299 Illegal declaration of subroutine BEGIN at - line 1.