more better tests

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

diff --git a/t/eating_strict_error.fail b/t/eating_strict_error.fail
new file mode 100644 (file)
index 0000000..8048652
--- /dev/null
+++ b/t/eating_strict_error.fail
@@ -0,0 +1,11 @@
+use strict;
+use Function::Parameters;
+
+fun get_record( $agent, $target_name ) {
+       for my $record ( @$records ) {
+       }
+}
+
+fun get_ip( $agent ) {
+}
+