[perl5.git] / t / comp / parser.t

#!./perl

# Checks if the parser behaves correctly in edge cases
# (including weird syntax errors)

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

print "1..1\n";

# This used to dump core (bug #17920)
eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } };
print $@ && $@ =~ /error/ ? "ok 1\n" : "not ok 1\n";
Commit	Line	Data
923be969 RGS	1	#!./perl
	2
	3	# Checks if the parser behaves correctly in edge cases
	4	# (including weird syntax errors)
	5
	6	BEGIN {
	7	chdir 't' if -d 't';
	8	@INC = '../lib';
	9	}
	10
	11	print "1..1\n";
	12
	13	# This used to dump core (bug #17920)
	14	eval q{ sub { sub { f1(f2();); my($a,$b,$c) } } };
	15	print $@ && $@ =~ /error/ ? "ok 1\n" : "not ok 1\n";