This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
9c8dd54379968f7dc7fe6e7e402de98469bb0d04
[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 Missing name in "my sub"
34 use feature 'lexical_subs'; my sub;
35 EXPECT
36 The lexical_subs feature is experimental at - line 1.
37 Missing name in "my sub" at - line 1.
38 ########
39 # NAME Missing name in "our sub"
40 use feature 'lexical_subs'; our sub;
41 EXPECT
42 The lexical_subs feature is experimental at - line 1.
43 Missing name in "our sub" at - line 1.
44 ########
45 # NAME Missing name in "state sub"
46 use 5.01; use feature 'lexical_subs';
47 state sub;
48 EXPECT
49 The lexical_subs feature is experimental at - line 2.
50 Missing name in "state sub" at - line 2.
51 ########
52 # NAME my sub pack::foo
53 use feature 'lexical_subs', 'state';
54 my sub foo::bar;
55 state sub foo::bear;
56 EXPECT
57 The lexical_subs feature is experimental at - line 2.
58 The lexical_subs feature is experimental at - line 3.
59 "my" subroutine &foo::bar can't be in a package at - line 2, near "my sub foo::bar"
60 "state" subroutine &foo::bear can't be in a package at - line 3, near "state sub foo::bear"
61 Execution of - aborted due to compilation errors.
62 ########
63 # NAME Integer constant overloading returning undef
64 use overload;
65 BEGIN { overload::constant integer => sub {}; undef *^H }
66 1
67 EXPECT
68 Constant(1) unknown at - line 3, at end of line
69 Execution of - aborted due to compilation errors.
70 ########
71 # NAME Float constant overloading returning undef
72 use overload;
73 BEGIN { overload::constant float => sub {}; undef *^H }
74 1.1
75 EXPECT
76 Constant(1.1) unknown at - line 3, at end of line
77 Execution of - aborted due to compilation errors.
78 ########
79 # NAME Binary constant overloading returning undef
80 use overload;
81 BEGIN { overload::constant binary => sub {}; undef *^H }
82 0x1
83 EXPECT
84 Constant(0x1) unknown at - line 3, at end of line
85 Execution of - aborted due to compilation errors.
86 ########
87 # NAME String constant overloading returning undef
88 use overload;
89 BEGIN { overload::constant q => sub {}; undef *^H }
90 '1', "1$_", tr"a"", s""a"
91 EXPECT
92 Constant(q) unknown at - line 3, near "'1'"
93 Constant(qq) unknown at - line 3, within string
94 Constant(tr) unknown at - line 3, within string
95 Constant(s) unknown at - line 3, within string
96 Execution of - aborted due to compilation errors.
97 ########
98 # NAME Regexp constant overloading when *^H is undefined
99 use overload;
100 BEGIN { overload::constant qr => sub {}; undef *^H }
101 /a/, m'a'
102 EXPECT
103 Constant(qq) unknown at - line 3, within pattern
104 Constant(q) unknown at - line 3, within pattern
105 Execution of - aborted due to compilation errors.
106 ########
107 # NAME \N{...} when charnames fails to load but without an error
108 # SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
109 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
110 "\N{a}"
111 EXPECT
112 Constant(\N{a}) unknown at - line 2, within string
113 Execution of - aborted due to compilation errors.
114 ########
115 # NAME Integer constant overloading returning undef
116 use overload;
117 BEGIN { overload::constant integer => sub {} }
118 1
119 EXPECT
120 Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
121 Execution of - aborted due to compilation errors.
122 ########
123 # NAME Float constant overloading returning undef
124 use overload;
125 BEGIN { overload::constant float => sub {} }
126 1.1
127 EXPECT
128 Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
129 Execution of - aborted due to compilation errors.
130 ########
131 # NAME Binary constant overloading returning undef
132 use overload;
133 BEGIN { overload::constant binary => sub {} }
134 0x1
135 EXPECT
136 Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
137 Execution of - aborted due to compilation errors.
138 ########
139 # NAME String constant overloading returning undef
140 use overload;
141 BEGIN { overload::constant q => sub {} }
142 '1', "1$_", tr"a"", s""a"
143 EXPECT
144 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
145 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
146 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
147 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
148 Execution of - aborted due to compilation errors.
149 ########
150 # NAME Regexp constant overloading returning undef
151 use overload;
152 BEGIN { overload::constant qr => sub {} }
153 /a/, m'a'
154 EXPECT
155 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
156 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
157 Execution of - aborted due to compilation errors.
158 ########
159 # NAME Unterminated delimiter for here document
160 <<"foo
161 EXPECT
162 Unterminated delimiter for here document at - line 1.