From: Dave Rolsky <autarch@urth.org>
Date: Fri, 10 Sep 2010 01:49:59 +0000 (-0500)
Subject: Test that ->does works properly in subclasses of classes which do a role
X-Git-Tag: 1.13~18
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3eb38dc61602ef5bf633a126ab7800d4c182e782;p=gitmo%2FMoose.git

Test that ->does works properly in subclasses of classes which do a role
---

diff --git a/t/010_basics/021-moose-object-does.t b/t/010_basics/021-moose-object-does.t
index 1a58786..ca90957 100644
--- a/t/010_basics/021-moose-object-does.t
+++ b/t/010_basics/021-moose-object-does.t
@@ -6,25 +6,21 @@ use Test::Moose;
 
 {
     package Role::A;
-
     use Moose::Role
 }
 
 {
     package Role::B;
-
     use Moose::Role
 }
 
 {
     package Foo;
-
     use Moose;
 }
 
 {
     package Bar;
-
     use Moose;
 
     with 'Role::A';
@@ -32,12 +28,25 @@ use Test::Moose;
 
 {
     package Baz;
-
     use Moose;
 
     with qw( Role::A Role::B );
 }
 
+{
+    package Bar::Child;
+    use Moose;
+
+    extends 'Bar';
+}
+
+{
+    package Baz::Child;
+    use Moose;
+
+    extends 'Baz';
+}
+
 with_immutable {
 
     for my $thing ( 'Foo', Foo->new ) {
@@ -72,7 +81,7 @@ with_immutable {
         );
     }
 
-    for my $thing ( 'Bar', Bar->new ) {
+    for my $thing ( 'Bar', Bar->new, 'Bar::Child', Bar::Child->new ) {
         my $name = ref $thing ? 'Bar object' : 'Bar class';
         $name .= ' (immutable)' if $thing->meta->is_immutable;
 
@@ -104,7 +113,7 @@ with_immutable {
         );
     }
 
-    for my $thing ( 'Baz', Baz->new ) {
+    for my $thing ( 'Baz', Baz->new, 'Baz::Child', Baz::Child->new ) {
         my $name = ref $thing ? 'Baz object' : 'Baz class';
         $name .= ' (immutable)' if $thing->meta->is_immutable;