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 3405cc2..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 => 3;
+use Test::More tests => 5;
 
 use Test::Exception;
 
@@ -9,6 +9,10 @@ do {
     package MyRole::Storage;
     use MooseX::Role::Parameterized;
 
+    ::throws_ok {
+        parameter()
+    } qr/^You must provide a name for the parameter/;
+
     role {
         ::throws_ok {
             extends 'MyRole::Parameterized';
@@ -19,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/;
     };
 };