Throw an error if there's no parameter name provided

[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..fabcecf 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 => 4;
 
 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';