autocurry tests

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

diff --git a/t/rename.t b/t/rename.t
index d655577..e35c5b0 100644 (file)
--- a/t/rename.t
+++ b/t/rename.t
@@ -8,4 +8,12 @@ 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;