add Test::Exception

[gitmo/MooseX-ClassAttribute.git] / t / 07-parameterized-role.t

diff --git a/t/07-parameterized-role.t b/t/07-parameterized-role.t
index 393b802..f1d11db 100644 (file)
--- a/t/07-parameterized-role.t
+++ b/t/07-parameterized-role.t
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 use Test::More;
+use Test::Exception;
 
 BEGIN {
     unless (eval { require MooseX::Role::Parameterized }) {
@@ -8,18 +9,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;