[Moose-commits] r7328 - MooseX-Role-Parameterized/trunk/t

[sartak at code2.0beta.co.uk]

Author: sartak
Date: 2009-01-17 18:19:23 -0800 (Sat, 17 Jan 2009)
New Revision: 7328

Modified:
   MooseX-Role-Parameterized/trunk/t/001-parameters.t
Log:
Make sure our new attribute metaclass is being used

Modified: MooseX-Role-Parameterized/trunk/t/001-parameters.t
===================================================================
--- MooseX-Role-Parameterized/trunk/t/001-parameters.t	2009-01-18 02:05:45 UTC (rev 7327)
+++ MooseX-Role-Parameterized/trunk/t/001-parameters.t	2009-01-18 02:19:23 UTC (rev 7328)
@@ -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 @@
 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");