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

use strict;
use warnings;
use Test::More;

use Function::Parameters 'f';

my $add = f ($x, $y) { $x + $y };

is $add->(2, 4), 6;

ok !eval { Function::Parameters->import('g', 'h'); 1 };
like $@, qr/ is not exported /;

for my $kw ('', '42', 'A::B', 'a b') {
	ok !eval{ Function::Parameters->import($kw); 1 };
	like $@, qr/valid identifier /;
}

done_testing;
Commit	Line	Data
60682a8e	1	use strict;
	2	use warnings;
	3	use Test::More;
	4
	5	use Function::Parameters 'f';
	6
	7	my $add = f ($x, $y) { $x + $y };
	8
	9	is $add->(2, 4), 6;
	10
2a5e8ebe	11	ok !eval { Function::Parameters->import('g', 'h'); 1 };
	12	like $@, qr/ is not exported /;
	13
	14	for my $kw ('', '42', 'A::B', 'a b') {
	15	ok !eval{ Function::Parameters->import($kw); 1 };
	16	like $@, qr/valid identifier /;
	17	}
	18
60682a8e	19	done_testing;