X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F07-parameterized-role.t;h=656f8fcd27f0bebfa00252b9eda503408b5b4a2a;hb=1403ec92341bd56c388d646adc38ff07435dc12d;hp=393b8025be317657956ea56dadd3400dd21d4193;hpb=8017308bf29f3f4592d25ec79c6d036c90a82ea9;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/t/07-parameterized-role.t b/t/07-parameterized-role.t
index 393b802..656f8fc 100644
--- a/t/07-parameterized-role.t
+++ b/t/07-parameterized-role.t
@@ -8,18 +8,29 @@ BEGIN {
     }
 }
 
-eval <<'EOF';
+{
     package Role;
     use MooseX::Role::Parameterized;
     use MooseX::ClassAttribute;
-    role {};
+    
+    parameter foo => (is => 'rw');
+
+    role {
+        my $p = shift;
+
+        class_has $p => (is => 'rw');
+    };
 
     package Class;
     use Moose;
-    with 'Role';
-EOF
+    with 'Role' => { foo => 'foo' };
+}
+
+ok((my $instance = Class->new), 'instance');
 
-ok((not $@), 'used MooseX::ClassAttribute in MooseX::Role::Parameterized role');
-diag $@ if $@;
+lives_and {
+    $instance->foo('bar');
+    is $instance->foo, 'bar';
+} 'used class attribute from parameterized role';
 
 done_testing;