X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2F030_roles%2Ffailing%2F017_extending_role_attrs.t;h=80d14fd123b01e65705e53009db4d20e249615af;hp=de47ece0c4f421096246feddaf8ca865266913fc;hb=6cfa1e5e70616fb102915489c02d8347ffa912fb;hpb=4f9945f5a128e120049ce8a7a30cf469d1568b9b

diff --git a/t/030_roles/failing/017_extending_role_attrs.t b/t/030_roles/failing/017_extending_role_attrs.t
index de47ece..80d14fd 100644
--- a/t/030_roles/failing/017_extending_role_attrs.t
+++ b/t/030_roles/failing/017_extending_role_attrs.t
@@ -10,7 +10,7 @@ use Test::Exception;
 
 =pod
 
-This basically just makes sure that using +name 
+This basically just makes sure that using +name
 on role attributes works right.
 
 =cut
@@ -18,21 +18,21 @@ on role attributes works right.
 {
     package Foo::Role;
     use Mouse::Role;
-    
+
     has 'bar' => (
         is      => 'rw',
-        isa     => 'Int',   
+        isa     => 'Int',
         default => sub { 10 },
     );
-    
+
     package Foo;
     use Mouse;
-    
+
     with 'Foo::Role';
-    
+
     ::lives_ok {
         has '+bar' => (default => sub { 100 });
-    } '... extended the attribute successfully';  
+    } '... extended the attribute successfully';
 }
 
 my $foo = Foo->new;
@@ -151,6 +151,7 @@ is_deeply($quux->quux, ["hi"], "... still has the old ArrayRef value");
     for (1..3) {
         has "err$_" => (
             isa => 'Str | Int',
+            is => 'bare',
         );
     }