X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoose-does-moo-role.t;h=2330b30fc73d9f2b36df2f36be9f65852a4e6598;hb=dcc862ca7849e996583c57c479d831f8eb1e7fd8;hp=e9c89db31b77ccda244824aea756a293bb273337;hpb=53c748970ae4ae86d8e215b9e46b93b7ac024536;p=gitmo%2FMoo.git

diff --git a/xt/moose-does-moo-role.t b/xt/moose-does-moo-role.t
index e9c89db..2330b30 100644
--- a/xt/moose-does-moo-role.t
+++ b/xt/moose-does-moo-role.t
@@ -18,10 +18,14 @@ use Moo::HandleMoose;
    use Moo;
    with 'MooRole';
 
+   has 'some_attr' => (is => 'ro');
+
    package MooRoledMooseClass;
    use Moose;
    with 'MooRole';
 
+   has 'some_attr' => (is => 'ro');
+
    package MooseParent;
    use Moose;
 
@@ -49,9 +53,10 @@ for my $parent (qw(MooseParent MooParent)) {
          );
          ok( $o->e->does("MooParentRole"), "$child does parent MooRole" );
          can_ok( $o->e, "role_method" );
-         local $TODO = "multi-level roles are broken with moose" if $child eq "MooRoledMooseClass";
          can_ok( $o->e, "parent_role_method" );
-      } "$parent instantiated with a $child delegate that does a MooRole";
+         ok($o->e->meta->has_method('role_method'), 'Moose knows about role_method');
+         ok($o->e->meta->has_method('parent_role_method'), 'Moose knows about parent_role_method');
+      };
    }
 }