[p5sagit/Devel-Declare.git] / t / fail.t

use Devel::Declare;

use Devel::Declare::MethodInstaller::Simple;
BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };

use Test::More 'no_plan';

TODO: {
    local $TODO='Method does not throw proper errors for bad parens yet';
    eval 'method main ( { return "foo" }';
    like($@,qr/Prototype\snot\sterminated/,'Missing end parens'); 

    eval 'method main ) { return "foo" }';
    like($@,qr/Illegal\sdeclaration\sof\ssubroutine/,'Missing start parens');
};

TODO: {
    local $TODO='method does not throw proper errors for bad parens yet';
    eval 'method 1main() { return "foo" }','Sub starting with a number';
    like($@,qr/Illegal\sdeclaration\sof\sanonymous\ssubroutine/); 

};
Commit	Line	Data
70570efc	1	use Devel::Declare;
	2
	3	use Devel::Declare::MethodInstaller::Simple;
	4	BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };
	5
	6	use Test::More 'no_plan';
	7
	8	TODO: {
	9	local $TODO='Method does not throw proper errors for bad parens yet';
	10	eval 'method main ( { return "foo" }';
390ce4e8	11	like($@,qr/Prototype\snot\sterminated/,'Missing end parens');
70570efc	12
70570efc	13	eval 'method main ) { return "foo" }';
390ce4e8	14	like($@,qr/Illegal\sdeclaration\sof\ssubroutine/,'Missing start parens');
	15	};
	16
	17	TODO: {
	18	local $TODO='method does not throw proper errors for bad parens yet';
	19	eval 'method 1main() { return "foo" }','Sub starting with a number';
	20	like($@,qr/Illegal\sdeclaration\sof\sanonymous\ssubroutine/);
	21
70570efc	22	};