From: Shawn M Moore <sartak@gmail.com>
Date: Sun, 9 Nov 2008 02:44:42 +0000 (+0000)
Subject: Test that we can get a parameter class out of a parameterized role
X-Git-Tag: 0.05~111
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=69d1f098ce18bd1fc9fce75b7a67518d10c53069;p=gitmo%2FMooseX-Role-Parameterized.git

Test that we can get a parameter class out of a parameterized role
---

diff --git a/t/001-parameters.t b/t/001-parameters.t
index ca86744..ba3ba57 100644
--- a/t/001-parameters.t
+++ b/t/001-parameters.t
@@ -1,9 +1,19 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 1;
+use Test::More tests => 2;
+use Test::Exception;
+
 use MooseX::Role::Parameterized::Parameters;
 
 my $p = MooseX::Role::Parameterized::Parameters->new;
 can_ok($p => 'meta');
 
+do {
+    package MyRole::NoParameters;
+    use MooseX::Role::Parameterized;
+};
+
+my $parameter_class = MyRole::NoParameters->meta->parameter_class;
+ok($parameter_class);
+