fix test so it will actually pass, when the coercion stops dying
Karen Etheridge [Thu, 21 Oct 2010 17:55:23 +0000 (10:55 -0700)]
t/070_native_traits/013_array_coerce.t

index d0d363f..78347fd 100644 (file)
@@ -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');
 
 }