X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2F001_meta_role.t;h=8b642c31f47501f1658b20fff6885bf1b448a7c2;hp=f18af27db4de52ceb43b17dd17d293e4890080c9;hb=81f6c728f75e7a56d7816bbace1fe2bc11ad5f52;hpb=739525d0421188856c45329c8f001e9fbe0b30b2

diff --git a/t/030_roles/001_meta_role.t b/t/030_roles/001_meta_role.t
index f18af27..8b642c3 100755
--- a/t/030_roles/001_meta_role.t
+++ b/t/030_roles/001_meta_role.t
@@ -6,9 +6,10 @@ use warnings;
 use Test::More tests => 26;
 use Test::Exception;
 
-use lib 't/lib';
-use Test::Mouse; # Mouse::Meta::Module->version
+use Test::Mouse;
 use Mouse::Meta::Role;
+use lib 't/lib';
+use MooseCompat;
 
 {
     package FooRole;
@@ -57,11 +58,13 @@ is_deeply(
 
 ok($foo_role->has_attribute('bar'), '... FooRole does have the bar attribute');
 
-is_deeply(
-    join('|', %{$foo_role->get_attribute('bar')}),
-    join('|', %{+{ is => 'rw', isa => 'Foo' }}),
-    '... got the correct description of the bar attribute');
-
+{
+    local $TODO = 'Mouse does not support role attributes';
+    is_deeply(
+        join('|', %{$foo_role->get_attribute('bar')}),
+        join('|', %{+{ is => 'rw', isa => 'Foo' }}),
+        '... got the correct description of the bar attribute');
+}
 lives_ok {
     $foo_role->add_attribute('baz' => (is => 'ro'));
 } '... added the baz attribute okay';
@@ -74,8 +77,8 @@ is_deeply(
 ok($foo_role->has_attribute('baz'), '... FooRole does have the baz attribute');
 
 is_deeply(
-    $foo_role->get_attribute('baz'),
-    { is => 'ro' },
+    $foo_role->get_attribute('baz')->{is},
+    'ro',
     '... got the correct description of the baz attribute');
 
 lives_ok {