X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F001-parameters.t;h=a5ca29f2ef6c02e9d1d6aebdd613c20de3602cb7;hb=095cfb3def8ae3161ee70fd730fffd82078c0008;hp=4d2155194b23410b819d99f320918099027747be;hpb=4534bdce16577d6b282b7a711de58248caa42d2c;p=gitmo%2FMooseX-Role-Parameterized.git

diff --git a/t/001-parameters.t b/t/001-parameters.t
index 4d21551..a5ca29f 100644
--- a/t/001-parameters.t
+++ b/t/001-parameters.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 7;
+use Test::More tests => 10;
 use Test::Exception;
 
 use MooseX::Role::Parameterized::Parameters;
@@ -44,3 +44,21 @@ $p = MyRole::LengthParameter->meta->construct_parameters(
 );
 
 is($p->length, 5, "correct length");
+
+do {
+    package MyRole::LengthParameter;
+    use MooseX::Role::Parameterized;
+
+    parameter name => (
+        is  => 'rw',
+        isa => 'Str',
+    );
+};
+
+$parameter_metaclass = MyRole::LengthParameter->meta->parameter_metaclass;
+is($parameter_metaclass->get_all_attributes, 2, "two parameters");
+
+my $name_param = $parameter_metaclass->get_attribute('name');
+is($name_param->type_constraint, 'Str', 'parameter type constraint');
+ok(!$name_param->is_required, 'name is optional');
+