From: Dave Rolsky <autarch@urth.org>
Date: Fri, 10 Sep 2010 01:50:22 +0000 (-0500)
Subject: More subclass tests
X-Git-Tag: 1.13~17
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a19b6b35dee0dc74175d8a84748f591c24f7210a;p=gitmo%2FMoose.git

More subclass tests
---

diff --git a/t/010_basics/021-moose-object-does.t b/t/010_basics/021-moose-object-does.t
index ca90957..e85eab9 100644
--- a/t/010_basics/021-moose-object-does.t
+++ b/t/010_basics/021-moose-object-does.t
@@ -34,6 +34,13 @@ use Test::Moose;
 }
 
 {
+    package Foo::Child;
+    use Moose;
+
+    extends 'Foo';
+}
+
+{
     package Bar::Child;
     use Moose;
 
@@ -49,7 +56,7 @@ use Test::Moose;
 
 with_immutable {
 
-    for my $thing ( 'Foo', Foo->new ) {
+    for my $thing ( 'Foo', Foo->new, 'Foo::Child', Foo::Child->new ) {
         my $name = ref $thing ? 'Foo object' : 'Foo class';
         $name .= ' (immutable)' if $thing->meta->is_immutable;