X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F08-role-composition.t;h=44e9af2ad1235fb2ff8c5fdc1987332600f51842;hb=8dcc7909e48ac49aa7aa1eabd1397c914bebb837;hp=08a33569bddbd5f8dff1a6f258dd5920f0527797;hpb=f2aa2fe56cd9ddc1f49e9d47d81b85133ab6893a;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/t/08-role-composition.t b/t/08-role-composition.t
index 08a3356..44e9af2 100644
--- a/t/08-role-composition.t
+++ b/t/08-role-composition.t
@@ -1,31 +1,36 @@
 use strict;
 use warnings;
-use Test::More;
 
-lives_ok {
-    Bar->new->_connections;
-} 'finds a class attribute under role composition';
+use Test::More;
 
-done_testing;
+{
+    package Role;
 
-BEGIN {
+    use Moose::Role;
+    use MooseX::ClassAttribute;
 
-package Role;
-use Moose::Role;
-use MooseX::ClassAttribute;
+    class_has 'CA' => (
+        is      => 'ro',
+        isa     => 'HashRef',
+        default => sub { {} },
+    );
+}
 
-class_has '_connections' => (
-    is => 'ro',
-    isa => 'HashRef',
-    default => sub { {} },
-   );
+{
+    package Role2;
+    use Moose::Role;
+}
 
-package Role2;
-use Moose::Role;
+{
+    package Bar;
+    use Moose;
 
-package Bar;
-use Moose;
+    with( 'Role2', 'Role' );
+}
 
-with ('Role2','Role');
+ok(
+    Bar->can('CA'),
+    'Class attributes are preserved during role composition'
+);
 
-}
+done_testing();