[perl5.git] / t / lib / croak / toke

__END__
# NAME Unterminated here-doc in string eval
eval "<<foo"; die $@
EXPECT
Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
########
# NAME Unterminated here-doc in s/// string eval
eval "s//<<foo/e"; die $@
EXPECT
Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
########
# NAME Missing name in "my sub"
use feature 'lexical_subs'; my sub;
EXPECT
The lexical_subs feature is experimental at - line 1.
Missing name in "my sub" at - line 1.
########
# NAME Missing name in "our sub"
use feature 'lexical_subs'; our sub;
EXPECT
The lexical_subs feature is experimental at - line 1.
Missing name in "our sub" at - line 1.
########
# NAME Missing name in "state sub"
use 5.01; use feature 'lexical_subs';
state sub;
EXPECT
The lexical_subs feature is experimental at - line 2.
Missing name in "state sub" at - line 2.
########
# NAME Integer constant overloading returning undef
use overload;
BEGIN { overload::constant integer => sub {}; undef *^H }
1
EXPECT
Constant(undef) unknown at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME Float constant overloading returning undef
use overload;
BEGIN { overload::constant float => sub {}; undef *^H }
1.1
EXPECT
Constant(undef) unknown at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME Binary constant overloading returning undef
use overload;
BEGIN { overload::constant binary => sub {}; undef *^H }
0x1
EXPECT
Constant(undef) unknown at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME String constant overloading returning undef
use overload;
BEGIN { overload::constant q => sub {}; undef *^H }
'1', "1$_", tr"a"", s""a"
EXPECT
Constant(q) unknown at - line 3, near "'1'"
Constant(qq) unknown at - line 3, within string
Constant(tr) unknown at - line 3, within string
Constant(s) unknown at - line 3, within string
Execution of - aborted due to compilation errors.
########
# NAME Regexp constant overloading when *^H is undefined
use overload;
BEGIN { overload::constant qr => sub {}; undef *^H }
/a/, m'a'
EXPECT
Constant(qq) unknown at - line 3, within pattern
Constant(q) unknown at - line 3, within pattern
Execution of - aborted due to compilation errors.
########
# NAME \N{...} when charnames fails to load but without an error
BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
"\N{a}"
EXPECT
Constant(\N{a}) unknown at - line 2, within string
Execution of - aborted due to compilation errors.
########
# NAME Integer constant overloading returning undef
use overload;
BEGIN { overload::constant integer => sub {} }
1
EXPECT
Constant(undef): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME Float constant overloading returning undef
use overload;
BEGIN { overload::constant float => sub {} }
1.1
EXPECT
Constant(undef): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME Binary constant overloading returning undef
use overload;
BEGIN { overload::constant binary => sub {} }
0x1
EXPECT
Constant(undef): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
Execution of - aborted due to compilation errors.
########
# NAME String constant overloading returning undef
use overload;
BEGIN { overload::constant q => sub {} }
'1', "1$_", tr"a"", s""a"
EXPECT
Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
Execution of - aborted due to compilation errors.
########
# NAME Regexp constant overloading returning undef
use overload;
BEGIN { overload::constant qr => sub {} }
/a/, m'a'
EXPECT
Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
Execution of - aborted due to compilation errors.
########
# NAME Unterminated delimiter for here document
<<"foo
EXPECT
Unterminated delimiter for here document at - line 1.
Commit	Line	Data
ca8ffed2	1	__END__
5af08aed FC	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	########
ca8ffed2	12	# NAME Missing name in "my sub"
e7d0b801	13	use feature 'lexical_subs'; my sub;
ca8ffed2	14	EXPECT
e7d0b801	15	The lexical_subs feature is experimental at - line 1.
ca8ffed2	16	Missing name in "my sub" at - line 1.
6f2d7fc9	17	########
8767b1ab	18	# NAME Missing name in "our sub"
e7d0b801	19	use feature 'lexical_subs'; our sub;
8767b1ab	20	EXPECT
e7d0b801	21	The lexical_subs feature is experimental at - line 1.
8767b1ab FC	22	Missing name in "our sub" at - line 1.
	23	########
	24	# NAME Missing name in "state sub"
e7d0b801	25	use 5.01; use feature 'lexical_subs';
8767b1ab FC	26	state sub;
8767b1ab FC	27	EXPECT
64fbf0dd	28	The lexical_subs feature is experimental at - line 2.
8767b1ab FC	29	Missing name in "state sub" at - line 2.
8767b1ab FC	30	########
b2e3d01a FC	31	# NAME Integer constant overloading returning undef
b2e3d01a FC	32	use overload;
247a7f40 FC	33	BEGIN { overload::constant integer => sub {}; undef *^H }
	34	1
	35	EXPECT
	36	Constant(undef) unknown 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 {}; undef *^H }
	42	1.1
	43	EXPECT
	44	Constant(undef) unknown 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 {}; undef *^H }
	50	0x1
	51	EXPECT
	52	Constant(undef) unknown 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 {}; undef *^H }
	58	'1', "1$_", tr"a"", s""a"
	59	EXPECT
	60	Constant(q) unknown at - line 3, near "'1'"
	61	Constant(qq) unknown at - line 3, within string
	62	Constant(tr) unknown at - line 3, within string
	63	Constant(s) unknown at - line 3, within string
	64	Execution of - aborted due to compilation errors.
	65	########
	66	# NAME Regexp constant overloading when *^H is undefined
	67	use overload;
	68	BEGIN { overload::constant qr => sub {}; undef *^H }
	69	/a/, m'a'
	70	EXPECT
	71	Constant(qq) unknown at - line 3, within pattern
	72	Constant(q) unknown at - line 3, within pattern
	73	Execution of - aborted due to compilation errors.
	74	########
	75	# NAME \N{...} when charnames fails to load but without an error
	76	BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
	77	"\N{a}"
	78	EXPECT
	79	Constant(\N{a}) unknown at - line 2, within string
	80	Execution of - aborted due to compilation errors.
	81	########
	82	# NAME Integer constant overloading returning undef
	83	use overload;
b2e3d01a FC	84	BEGIN { overload::constant integer => sub {} }
	85	1
	86	EXPECT
	87	Constant(undef): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
	88	Execution of - aborted due to compilation errors.
	89	########
	90	# NAME Float constant overloading returning undef
	91	use overload;
	92	BEGIN { overload::constant float => sub {} }
	93	1.1
	94	EXPECT
	95	Constant(undef): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
	96	Execution of - aborted due to compilation errors.
	97	########
	98	# NAME Binary constant overloading returning undef
	99	use overload;
	100	BEGIN { overload::constant binary => sub {} }
	101	0x1
	102	EXPECT
	103	Constant(undef): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
	104	Execution of - aborted due to compilation errors.
	105	########
	106	# NAME String constant overloading returning undef
	107	use overload;
	108	BEGIN { overload::constant q => sub {} }
	109	'1', "1$_", tr"a"", s""a"
	110	EXPECT
	111	Constant(q): Call to &{$^H{q}} did not return a defined value at - line 3, near "'1'"
	112	Constant(qq): Call to &{$^H{q}} did not return a defined value at - line 3, within string
	113	Constant(tr): Call to &{$^H{q}} did not return a defined value at - line 3, within string
	114	Constant(s): Call to &{$^H{q}} did not return a defined value at - line 3, within string
	115	Execution of - aborted due to compilation errors.
	116	########
	117	# NAME Regexp constant overloading returning undef
	118	use overload;
	119	BEGIN { overload::constant qr => sub {} }
	120	/a/, m'a'
	121	EXPECT
	122	Constant(qq): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
	123	Constant(q): Call to &{$^H{qr}} did not return a defined value at - line 3, within pattern
	124	Execution of - aborted due to compilation errors.
	125	########
6f2d7fc9 FC	126	# NAME Unterminated delimiter for here document
	127	<<"foo
	128	EXPECT
	129	Unterminated delimiter for here document at - line 1.