[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / syntax_errors.t

#!perl
use strict;
use warnings FATAL => 'all';

use Test::More;

use Dir::Self;
use lib __DIR__ . '/lib';

ok !eval { require Bad };
#TODO: {
#    local $TODO = "The user should see the actual syntax error";
    like $@, qr{^Global symbol "\$info" requires explicit package name}m;

#    like($@, qr{^PPI failed to find statement for '\$bar'}m,
#         'Bad syntax generates stack trace');
#}

done_testing();
Commit	Line	Data
700071de	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4
	5	use Test::More;
	6
	7	use Dir::Self;
	8	use lib __DIR__ . '/lib';
	9
	10	ok !eval { require Bad };
	11	#TODO: {
	12	# local $TODO = "The user should see the actual syntax error";
	13	like $@, qr{^Global symbol "\$info" requires explicit package name}m;
	14
	15	# like($@, qr{^PPI failed to find statement for '\$bar'}m,
	16	# 'Bad syntax generates stack trace');
	17	#}
	18
	19	done_testing();