From: Karen Etheridge <ether@cpan.org>
Date: Thu, 21 Oct 2010 17:55:23 +0000 (-0700)
Subject: fix test so it will actually pass, when the coercion stops dying
X-Git-Tag: 1.18~78
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=33873143ab274095b31f3bdafd650ec2f2bfca05;p=gitmo%2FMoose.git

fix test so it will actually pass, when the coercion stops dying
---

diff --git a/t/070_native_traits/013_array_coerce.t b/t/070_native_traits/013_array_coerce.t
index d0d363f..78347fd 100644
--- a/t/070_native_traits/013_array_coerce.t
+++ b/t/070_native_traits/013_array_coerce.t
@@ -136,6 +136,7 @@ my $foo = Foo->new;
         handles => {
             push_array => 'push',
             set_array  => 'set',
+            get_array  => 'get',
         },
     );
 }
@@ -150,10 +151,7 @@ TODO: {
     $bar->push_array('d');
     #print $bar->dump(3);
 
-    is_deeply(
-        $bar->array, [qw( a b c d )],
-        'push coerces the array'
-    );
+    is($bar->get_array(3)->thing, 'd', 'push coerces the array');
 
 }