This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
26fc8c7b051fb21f59d3bf0fbb53f118cb1b3b45
[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 Unterminated here-doc in string eval
23 eval "<<foo"; die $@
24 EXPECT
25 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
26 ########
27 # NAME Unterminated here-doc in s/// string eval
28 eval "s//<<foo/e"; die $@
29 EXPECT
30 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
31 ########
32 # NAME Unterminated here-doc in string
33 "${<<foo"; # Used to give â€˜Attempt to free blah blah blah’
34 EXPECT
35 Can't find string terminator "foo" anywhere before EOF at - line 1.
36 ########
37 # NAME Unterminated qw//
38 qw/
39 EXPECT
40 Can't find string terminator "/" anywhere before EOF at - line 1.
41 ########
42 # NAME Unterminated q//
43 qw/
44 EXPECT
45 Can't find string terminator "/" anywhere before EOF at - line 1.
46 ########
47 # NAME Unterminated ''
48 '
49 EXPECT
50 Can't find string terminator "'" anywhere before EOF at - line 1.
51 ########
52 # NAME /\N{/
53 /\N{/
54 EXPECT
55 Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
56 Execution of - aborted due to compilation errors.
57 ########
58 # NAME map{for our *a...
59 map{for our *a (1..10) {$_.=$x}}
60 EXPECT
61 Missing $ on loop variable at - line 1.
62 ########
63 # NAME Missing name in "my sub"
64 use feature 'lexical_subs'; my sub;
65 EXPECT
66 The lexical_subs feature is experimental at - line 1.
67 Missing name in "my sub" at - line 1.
68 ########
69 # NAME Missing name in "our sub"
70 use feature 'lexical_subs'; our sub;
71 EXPECT
72 The lexical_subs feature is experimental at - line 1.
73 Missing name in "our sub" at - line 1.
74 ########
75 # NAME Missing name in "state sub"
76 use 5.01; use feature 'lexical_subs';
77 state sub;
78 EXPECT
79 The lexical_subs feature is experimental at - line 2.
80 Missing name in "state sub" at - line 2.
81 ########
82 # NAME my sub pack::foo
83 use feature 'lexical_subs', 'state';
84 my sub foo::bar;
85 state sub foo::bear;
86 EXPECT
87 The lexical_subs feature is experimental at - line 2.
88 The lexical_subs feature is experimental at - line 3.
89 "my" subroutine &foo::bar can't be in a package at - line 2, near "my sub foo::bar"
90 "state" subroutine &foo::bear can't be in a package at - line 3, near "state sub foo::bear"
91 Execution of - aborted due to compilation errors.
92 ########
93 # NAME Integer constant overloading returning undef
94 use overload;
95 BEGIN { overload::constant integer => sub {}; undef *^H }
96 1
97 EXPECT
98 Constant(1) unknown at - line 3, at end of line
99 Execution of - aborted due to compilation errors.
100 ########
101 # NAME Float constant overloading returning undef
102 use overload;
103 BEGIN { overload::constant float => sub {}; undef *^H }
104 1.1
105 EXPECT
106 Constant(1.1) unknown at - line 3, at end of line
107 Execution of - aborted due to compilation errors.
108 ########
109 # NAME Binary constant overloading returning undef
110 use overload;
111 BEGIN { overload::constant binary => sub {}; undef *^H }
112 0x1
113 EXPECT
114 Constant(0x1) unknown at - line 3, at end of line
115 Execution of - aborted due to compilation errors.
116 ########
117 # NAME String constant overloading returning undef
118 use overload;
119 BEGIN { overload::constant q => sub {}; undef *^H }
120 '1', "1$_", tr"a"", s""a"
121 EXPECT
122 Constant(q) unknown at - line 3, near "'1'"
123 Constant(qq) unknown at - line 3, within string
124 Constant(tr) unknown at - line 3, within string
125 Constant(s) unknown at - line 3, within string
126 Execution of - aborted due to compilation errors.
127 ########
128 # NAME Regexp constant overloading when *^H is undefined
129 use overload;
130 BEGIN { overload::constant qr => sub {}; undef *^H }
131 /a/, m'a'
132 EXPECT
133 Constant(qq) unknown at - line 3, within pattern
134 Constant(q) unknown at - line 3, within pattern
135 Execution of - aborted due to compilation errors.
136 ########
137 # NAME \N{...} when charnames fails to load but without an error
138 # SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
139 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
140 "\N{a}"
141 EXPECT
142 Constant(\N{a}) unknown at - line 2, within string
143 Execution of - aborted due to compilation errors.
144 ########
145 # NAME Integer constant overloading returning undef
146 use overload;
147 BEGIN { overload::constant integer => sub {} }
148 1
149 EXPECT
150 Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
151 Execution of - aborted due to compilation errors.
152 ########
153 # NAME Float constant overloading returning undef
154 use overload;
155 BEGIN { overload::constant float => sub {} }
156 1.1
157 EXPECT
158 Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
159 Execution of - aborted due to compilation errors.
160 ########
161 # NAME Binary constant overloading returning undef
162 use overload;
163 BEGIN { overload::constant binary => sub {} }
164 0x1
165 EXPECT
166 Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
167 Execution of - aborted due to compilation errors.
168 ########
169 # NAME String constant overloading returning undef
170 use overload;
171 BEGIN { overload::constant q => sub {} }
172 '1', "1$_", tr"a"", s""a"
173 EXPECT
174 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
175 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
176 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
177 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
178 Execution of - aborted due to compilation errors.
179 ########
180 # NAME Regexp constant overloading returning undef
181 use overload;
182 BEGIN { overload::constant qr => sub {} }
183 /a/, m'a'
184 EXPECT
185 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
186 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
187 Execution of - aborted due to compilation errors.
188 ########
189 # NAME Unterminated delimiter for here document
190 <<"foo
191 EXPECT
192 Unterminated delimiter for here document at - line 1.