From: Dave Rolsky <autarch@urth.org>
Date: Sun, 3 Apr 2011 16:08:33 +0000 (-0500)
Subject: More role tests
X-Git-Tag: v0.25~8
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5a7bfdcc18e2b8cade087b9c3b28c20ebfcc230a;p=gitmo%2FMooseX-ClassAttribute.git

More role tests
---

diff --git a/t/08-role-composition.t b/t/08-role-composition.t
index 44e9af2..279e542 100644
--- a/t/08-role-composition.t
+++ b/t/08-role-composition.t
@@ -25,7 +25,7 @@ use Test::More;
     package Bar;
     use Moose;
 
-    with( 'Role2', 'Role' );
+    with 'Role2', 'Role';
 }
 
 ok(
@@ -33,4 +33,22 @@ ok(
     'Class attributes are preserved during role composition'
 );
 
+{
+    package Role3;
+    use Moose::Role;
+    with 'Role';
+}
+
+{
+    package Baz;
+    use Moose;
+
+    with 'Role3';
+}
+
+ok(
+    Baz->can('CA'),
+    'Class attributes are preserved when role is applied to another role'
+);
+
 done_testing();