From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 7 Dec 2008 01:08:39 +0000 (+0000)
Subject: Failing test for role metaobjects knowing their parameters
X-Git-Tag: 0.05~44
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=59a0f991568f0ead6d42355b0c03ca7ed046308a;p=gitmo%2FMooseX-Role-Parameterized.git

Failing test for role metaobjects knowing their parameters
---

diff --git a/t/002-role-block.t b/t/002-role-block.t
index ee67c15..fab2425 100644
--- a/t/002-role-block.t
+++ b/t/002-role-block.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 7;
+use Test::More tests => 8;
 use Test::Exception;
 
 my ($parameters, %args);
@@ -39,6 +39,8 @@ my $role = MyPerson->meta->generate_role(
 
 isa_ok($role, 'Moose::Meta::Role', 'generate_role created a role');
 
+is($role->parameters, $parameters, 'the generated role knows its parameters');
+
 is($parameters->default_age, 7);
 is($args{operating_on}, $role, "we pass in the role metaclass that we're operating on");