Give test a useful name

[gitmo/MooseX-ClassAttribute.git] / t / 08-role-composition.t

diff --git a/t/08-role-composition.t b/t/08-role-composition.t
index a3bb0e9..44e9af2 100644 (file)
--- a/t/08-role-composition.t
+++ b/t/08-role-composition.t
@@ -2,7 +2,6 @@ use strict;
 use warnings;
 
 use Test::More;
-use Test::Exception;
 
 {
     package Role;
@@ -29,9 +28,9 @@ use Test::Exception;
     with( 'Role2', 'Role' );
 }
 
-{
-    local $TODO = 'Class attributes are lost during role composition';
-    can_ok( 'Bar', 'CA', );
-}
+ok(
+    Bar->can('CA'),
+    'Class attributes are preserved during role composition'
+);
 
 done_testing();