import some (modified) MS tests

[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / array_param.t

diff --git a/t/foreign/Method-Signatures/array_param.t b/t/foreign/Method-Signatures/array_param.t
new file mode 100644 (file)
index 0000000..a7f980d
--- /dev/null
+++ b/t/foreign/Method-Signatures/array_param.t
@@ -0,0 +1,31 @@
+#!perl
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More tests => 3;
+
+{
+    package Bla;
+    use Test::More;
+    use Function::Parameters qw(:strict);
+
+    method new ($class:) {
+        bless {}, $class;
+    }
+
+    method array_param_at_end ($a, $b, @c) {
+        return "$a|$b|@c";
+    }
+
+    eval q{
+         method two_array_params ($a, @b, @c) {}
+    };
+    like($@, qr{\btwo_array_params\b.+\@b\b.+\@c\b}, "Two array params");
+
+    eval q{
+         method two_slurpy_params ($a, %b, $c, @d, $e) {}
+    };
+    like($@, qr{\btwo_slurpy_params\b.+%b\b.+\$c\b}, "Two slurpy params");
+}
+
+is(Bla->new->array_param_at_end(1, 2, 3, 4), "1|2|3 4", "Array parameter at end");