From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 18 Jan 2009 02:19:23 +0000 (+0000)
Subject: Make sure our new attribute metaclass is being used
X-Git-Tag: 0.05~20
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Role-Parameterized.git;a=commitdiff_plain;h=d4408bfdd6148832d65855b39b337a56eb37eb6c

Make sure our new attribute metaclass is being used
---

diff --git a/t/001-parameters.t b/t/001-parameters.t
index e94516f..53cd430 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 => 13;
+use Test::More tests => 14;
 use Test::Exception;
 
 use MooseX::Role::Parameterized::Parameters;
@@ -32,6 +32,7 @@ $parameter_metaclass = MyRole::LengthParameter->meta->parameter_metaclass;
 is($parameter_metaclass->get_all_attributes, 1, "exactly one parameter");
 
 my $parameter = ($parameter_metaclass->get_all_attributes)[0];
+isa_ok($parameter, 'MooseX::Role::Parameterized::Meta::Parameter');
 is($parameter->name, 'length', "parameter name");
 ok($parameter->is_required, "parameter is required");