actually use the new keywords

[catagits/Catalyst-Runtime.git] / t / dead_load_bad_args.t

diff --git a/t/dead_load_bad_args.t b/t/dead_load_bad_args.t
index 8542a13..98b566c 100644 (file)
--- a/t/dead_load_bad_args.t
+++ b/t/dead_load_bad_args.t
@@ -1,5 +1,3 @@
-#!perl
-
 use strict;
 use warnings;
 use lib 't/lib';
@@ -12,6 +10,7 @@ for my $fail (
     "(' ')",
     "('')",
     "('1.23')",
+    "(-1)",
 ) {
     for my $type (qw(Args CaptureArgs)) {
         eval <<"END";