Using "parameter" inside the role block is an error

[gitmo/MooseX-Role-Parameterized.git] / t / 100-erroneous-keywords.t

diff --git a/t/100-erroneous-keywords.t b/t/100-erroneous-keywords.t
index fabcecf..759780e 100644 (file)
--- a/t/100-erroneous-keywords.t
+++ b/t/100-erroneous-keywords.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 4;
+use Test::More tests => 5;
 
 use Test::Exception;
 
@@ -23,6 +23,9 @@ do {
         ::throws_ok {
             augment()
         } qr/^Roles cannot support 'augment'/;
+        ::throws_ok {
+            parameter()
+        } qr/^'parameter' may not be used inside of the role block/;
     };
 };