[p5sagit/Function-Parameters.git] / t / prototype.t

#!perl
use Test::More tests => 27;

use warnings FATAL => 'all';
use strict;

use Function::Parameters;

is eval 'fun :([) {}', undef;
like $@, qr/Illegal character in prototype/;

is eval 'fun :([) {}', undef;
like $@, qr/Illegal character in prototype/;

is eval 'fun :(][[[[[[) {}', undef;
like $@, qr/Illegal character in prototype/;

is eval 'fun :(\;) {}', undef;
like $@, qr/Illegal character after '\\' in prototype/;

is eval 'fun :(\[_;@]) {}', undef;
like $@, qr/Illegal character after '\\' in prototype/;

is eval 'fun :(\+) {}', undef;
like $@, qr/Illegal character after '\\' in prototype/;

is eval 'fun :(\\\\) {}', undef;
like $@, qr/Illegal character after '\\' in prototype/;

is eval 'fun :([$]) {}', undef;
like $@, qr/Illegal character in prototype/;

is eval 'fun :(\[_$]) {}', undef;
like $@, qr/Illegal character after '\\' in prototype/;

{
	no warnings qw(illegalproto);

	ok eval 'fun :([) {}';
	ok eval 'fun :([) {}';
	ok eval 'fun :(][[[[[[) {}';
	ok eval 'fun :(\;) {}';
	ok eval 'fun :(\[_;@]) {}';
	ok eval 'fun :(\+) {}';
	ok eval 'fun :(\\\\) {}';
	ok eval 'fun :([$]) {}';
	ok eval 'fun :(\[_$]) {}';
}
Commit	Line	Data
b4f770c1	1	#!perl
	2	use Test::More tests => 27;
	3
	4	use warnings FATAL => 'all';
	5	use strict;
	6
	7	use Function::Parameters;
	8
	9	is eval 'fun :([) {}', undef;
	10	like $@, qr/Illegal character in prototype/;
	11
	12	is eval 'fun :([) {}', undef;
	13	like $@, qr/Illegal character in prototype/;
	14
	15	is eval 'fun :(][[[[[[) {}', undef;
	16	like $@, qr/Illegal character in prototype/;
	17
	18	is eval 'fun :(\;) {}', undef;
	19	like $@, qr/Illegal character after '\\' in prototype/;
	20
	21	is eval 'fun :(\[_;@]) {}', undef;
	22	like $@, qr/Illegal character after '\\' in prototype/;
	23
	24	is eval 'fun :(\+) {}', undef;
	25	like $@, qr/Illegal character after '\\' in prototype/;
	26
	27	is eval 'fun :(\\\\) {}', undef;
	28	like $@, qr/Illegal character after '\\' in prototype/;
	29
	30	is eval 'fun :([$]) {}', undef;
	31	like $@, qr/Illegal character in prototype/;
	32
	33	is eval 'fun :(\[_$]) {}', undef;
	34	like $@, qr/Illegal character after '\\' in prototype/;
	35
	36	{
	37	no warnings qw(illegalproto);
	38
	39	ok eval 'fun :([) {}';
	40	ok eval 'fun :([) {}';
	41	ok eval 'fun :(][[[[[[) {}';
	42	ok eval 'fun :(\;) {}';
	43	ok eval 'fun :(\[_;@]) {}';
	44	ok eval 'fun :(\+) {}';
	45	ok eval 'fun :(\\\\) {}';
	46	ok eval 'fun :([$]) {}';
	47	ok eval 'fun :(\[_$]) {}';
	48	}