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