X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F402-attribute-application.t;h=e4745c5f36240bd6bfa0d53babe19e685cd9cbe4;hb=53c495ce524c95ee0fc1ee13f20edeeb382ef89f;hp=d05f818d997eca88f4e9b75a03cc362dd988cfb1;hpb=efe59893963a4bc4a8d11ad77059ca8b23c5a8c8;p=gitmo%2FMouse.git

diff --git a/t/402-attribute-application.t b/t/402-attribute-application.t
index d05f818..e4745c5 100644
--- a/t/402-attribute-application.t
+++ b/t/402-attribute-application.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 11;
 use Test::Exception;
 
 do {
@@ -9,13 +9,14 @@ do {
     use Mouse::Role;
 
     has 'attr' => (
+        is      => 'bare',
         default => 'Role',
     );
 
     no Mouse::Role;
 };
 
-is_deeply(Role->meta->get_attribute('attr'), {default => 'Role'});
+is(Role->meta->get_attribute('attr')->{default}, 'Role');
 
 do {
     package Class;
@@ -33,6 +34,7 @@ do {
     use Mouse::Role;
 
     has 'attr' => (
+        is      => 'bare',
         default => 'Role2',
     );
 
@@ -48,3 +50,39 @@ lives_ok {
 
 is(Class2->meta->get_attribute('attr')->default, 'Role');
 
+lives_ok {
+    package Class3;
+    use Mouse;
+
+    with 'Role';
+
+    has attr => (
+        is      => 'bare',
+        default => 'Class3',
+    );
+};
+
+is(Class3->meta->get_attribute('attr')->default, 'Class3');
+
+lives_ok {
+    package Class::Parent;
+    use Mouse;
+
+    has attr => (
+        is      => 'bare',
+        default => 'Class::Parent',
+    );
+};
+
+is(Class::Parent->meta->get_attribute('attr')->default, 'Class::Parent', 'local class wins over the role');
+
+lives_ok {
+    package Class::Child;
+    use Mouse;
+
+    extends 'Class::Parent';
+
+    with 'Role';
+};
+
+is(Class::Child->meta->get_attribute('attr')->default, 'Role', 'role wins over the parent method');