Give test a useful name
Dave Rolsky [Sun, 13 Feb 2011 23:55:51 +0000 (17:55 -0600)]
t/08-role-composition.t

index 93ecdd1..44e9af2 100644 (file)
@@ -28,8 +28,9 @@ use Test::More;
     with( 'Role2', 'Role' );
 }
 
-{
-    can_ok( 'Bar', 'CA', );
-}
+ok(
+    Bar->can('CA'),
+    'Class attributes are preserved during role composition'
+);
 
 done_testing();