test detection of nonsensical parameter lists

[p5sagit/Function-Parameters.git] / t / strict_2.fail

diff --git a/t/strict_2.fail b/t/strict_2.fail
new file mode 100644 (file)
index 0000000..edbc47b
--- /dev/null
+++ b/t/strict_2.fail
@@ -0,0 +1,7 @@
+#!perl
+use warnings;
+use strict;
+
+use Function::Parameters;
+
+fun bad_2(@x, $y) {}