Add tests for renaming the fun keyword.

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

diff --git a/t/rename.t b/t/rename.t
new file mode 100644 (file)
index 0000000..d655577
--- /dev/null
+++ b/t/rename.t
@@ -0,0 +1,11 @@
+use strict;
+use warnings;
+use Test::More;
+
+use Function::Parameters 'f';
+
+my $add = f ($x, $y) { $x + $y };
+
+is $add->(2, 4), 6;
+
+done_testing;