This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test error when constant overload handler returns undef
[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 Missing name in "my sub"
13 use feature 'lexical_subs'; my sub;
14 EXPECT
15 The lexical_subs feature is experimental at - line 1.
16 Missing name in "my sub" at - line 1.
17 ########
18 # NAME Missing name in "our sub"
19 use feature 'lexical_subs'; our sub;
20 EXPECT
21 The lexical_subs feature is experimental at - line 1.
22 Missing name in "our sub" at - line 1.
23 ########
24 # NAME Missing name in "state sub"
25 use 5.01; use feature 'lexical_subs';
26 state sub;
27 EXPECT
28 The lexical_subs feature is experimental at - line 2.
29 Missing name in "state sub" at - line 2.
30 ########
31 # NAME Integer constant overloading returning undef
32 use overload;
33 BEGIN { overload::constant integer => sub {} }
34 1
35 EXPECT
36 Constant(undef): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
37 Execution of - aborted due to compilation errors.
38 ########
39 # NAME Float constant overloading returning undef
40 use overload;
41 BEGIN { overload::constant float => sub {} }
42 1.1
43 EXPECT
44 Constant(undef): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
45 Execution of - aborted due to compilation errors.
46 ########
47 # NAME Binary constant overloading returning undef
48 use overload;
49 BEGIN { overload::constant binary => sub {} }
50 0x1
51 EXPECT
52 Constant(undef): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
53 Execution of - aborted due to compilation errors.
54 ########
55 # NAME String constant overloading returning undef
56 use overload;
57 BEGIN { overload::constant q => sub {} }
58 '1', "1$_", tr"a"", s""a"
59 EXPECT
60 Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
61 Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
62 Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
63 Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
64 Execution of - aborted due to compilation errors.
65 ########
66 # NAME Regexp constant overloading returning undef
67 use overload;
68 BEGIN { overload::constant qr => sub {} }
69 /a/, m'a'
70 EXPECT
71 Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
72 Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
73 Execution of - aborted due to compilation errors.
74 ########
75 # NAME Unterminated delimiter for here document
76 <<"foo
77 EXPECT
78 Unterminated delimiter for here document at - line 1.