This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix expected failure text for new croak.t test
[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 /\N{/
13 /\N{/
14 EXPECT
15 Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
16 Execution of - aborted due to compilation errors.
17 ########
18 # NAME Missing name in "my sub"
19 use feature 'lexical_subs'; my sub;
20 EXPECT
21 The lexical_subs feature is experimental at - line 1.
22 Missing name in "my sub" at - line 1.
23 ########
24 # NAME Missing name in "our sub"
25 use feature 'lexical_subs'; our sub;
26 EXPECT
27 The lexical_subs feature is experimental at - line 1.
28 Missing name in "our sub" at - line 1.
29 ########
30 # NAME Missing name in "state sub"
31 use 5.01; use feature 'lexical_subs';
32 state sub;
33 EXPECT
34 The lexical_subs feature is experimental at - line 2.
35 Missing name in "state sub" at - line 2.
36 ########
37 # NAME Integer constant overloading returning undef
38 use overload;
39 BEGIN { overload::constant integer => sub {}; undef *^H }
40 1
41 EXPECT
42 Constant(1) unknown at - line 3, at end of line
43 Execution of - aborted due to compilation errors.
44 ########
45 # NAME Float constant overloading returning undef
46 use overload;
47 BEGIN { overload::constant float => sub {}; undef *^H }
48 1.1
49 EXPECT
50 Constant(1.1) unknown at - line 3, at end of line
51 Execution of - aborted due to compilation errors.
52 ########
53 # NAME Binary constant overloading returning undef
54 use overload;
55 BEGIN { overload::constant binary => sub {}; undef *^H }
56 0x1
57 EXPECT
58 Constant(0x1) unknown at - line 3, at end of line
59 Execution of - aborted due to compilation errors.
60 ########
61 # NAME String constant overloading returning undef
62 use overload;
63 BEGIN { overload::constant q => sub {}; undef *^H }
64 '1', "1$_", tr"a"", s""a"
65 EXPECT
66 Constant(q) unknown at - line 3, near "'1'"
67 Constant(qq) unknown at - line 3, within string
68 Constant(tr) unknown at - line 3, within string
69 Constant(s) unknown at - line 3, within string
70 Execution of - aborted due to compilation errors.
71 ########
72 # NAME Regexp constant overloading when *^H is undefined
73 use overload;
74 BEGIN { overload::constant qr => sub {}; undef *^H }
75 /a/, m'a'
76 EXPECT
77 Constant(qq) unknown at - line 3, within pattern
78 Constant(q) unknown at - line 3, within pattern
79 Execution of - aborted due to compilation errors.
80 ########
81 # NAME \N{...} when charnames fails to load but without an error
82 # SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
83 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
84 "\N{a}"
85 EXPECT
86 Constant(\N{a}) unknown at - line 2, within string
87 Execution of - aborted due to compilation errors.
88 ########
89 # NAME Integer constant overloading returning undef
90 use overload;
91 BEGIN { overload::constant integer => sub {} }
92 1
93 EXPECT
94 Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
95 Execution of - aborted due to compilation errors.
96 ########
97 # NAME Float constant overloading returning undef
98 use overload;
99 BEGIN { overload::constant float => sub {} }
100 1.1
101 EXPECT
102 Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
103 Execution of - aborted due to compilation errors.
104 ########
105 # NAME Binary constant overloading returning undef
106 use overload;
107 BEGIN { overload::constant binary => sub {} }
108 0x1
109 EXPECT
110 Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
111 Execution of - aborted due to compilation errors.
112 ########
113 # NAME String constant overloading returning undef
114 use overload;
115 BEGIN { overload::constant q => sub {} }
116 '1', "1$_", tr"a"", s""a"
117 EXPECT
118 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
119 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
120 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
121 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
122 Execution of - aborted due to compilation errors.
123 ########
124 # NAME Regexp constant overloading returning undef
125 use overload;
126 BEGIN { overload::constant qr => sub {} }
127 /a/, m'a'
128 EXPECT
129 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
130 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
131 Execution of - aborted due to compilation errors.
132 ########
133 # NAME Unterminated delimiter for here document
134 <<"foo
135 EXPECT
136 Unterminated delimiter for here document at - line 1.