From: Dave Rolsky <autarch@urth.org>
Date: Fri, 10 Sep 2010 01:51:01 +0000 (-0500)
Subject: Fix name of thing in test descriptions
X-Git-Tag: 1.13~16
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8606f1ad097f5d0a372eed7ca52e579285f7c1d;p=gitmo%2FMoose.git

Fix name of thing in test descriptions
---

diff --git a/t/010_basics/021-moose-object-does.t b/t/010_basics/021-moose-object-does.t
index e85eab9..8ab3fa1 100644
--- a/t/010_basics/021-moose-object-does.t
+++ b/t/010_basics/021-moose-object-does.t
@@ -57,7 +57,7 @@ use Test::Moose;
 with_immutable {
 
     for my $thing ( 'Foo', Foo->new, 'Foo::Child', Foo::Child->new ) {
-        my $name = ref $thing ? 'Foo object' : 'Foo class';
+        my $name = ref $thing ? (ref $thing) . ' object' : "$thing class";
         $name .= ' (immutable)' if $thing->meta->is_immutable;
 
         ok(
@@ -89,7 +89,7 @@ with_immutable {
     }
 
     for my $thing ( 'Bar', Bar->new, 'Bar::Child', Bar::Child->new ) {
-        my $name = ref $thing ? 'Bar object' : 'Bar class';
+        my $name = ref $thing ? (ref $thing) . ' object' : "$thing class";
         $name .= ' (immutable)' if $thing->meta->is_immutable;
 
         ok(
@@ -121,7 +121,7 @@ with_immutable {
     }
 
     for my $thing ( 'Baz', Baz->new, 'Baz::Child', Baz::Child->new ) {
-        my $name = ref $thing ? 'Baz object' : 'Baz class';
+        my $name = ref $thing ? (ref $thing) . ' object' : "$thing class";
         $name .= ' (immutable)' if $thing->meta->is_immutable;
 
         ok(