Make sure our new attribute metaclass is being used
Shawn M Moore [Sun, 18 Jan 2009 02:19:23 +0000 (02:19 +0000)]
t/001-parameters.t

index e94516f..53cd430 100644 (file)
@@ -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");