detect invalid keyword properties

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

diff --git a/t/strict.t b/t/strict.t
index a58183d..e06f04a 100644 (file)
--- a/t/strict.t
+++ b/t/strict.t
@@ -1,7 +1,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 8;
+use Test::More tests => 10;
 
 use Dir::Self;
 
@@ -11,6 +11,7 @@ for my $fail (
        ['2', qr/expect.*\).*after.*"\@x".*"\$y"/],
        ['3', qr/expect.*\).*after.*"%y".*"\$z"/],
        ['4', qr/expect.*\).*after.*"\@y".*"\@z"/],
+       ['5', qr/Invalid.*rarity/],
 ) {
        my ($file, $pat) = @$fail;
        $@ = undef;