Tidy code a bit
Dave Rolsky [Thu, 21 Oct 2010 19:59:48 +0000 (14:59 -0500)]
t/070_native_traits/013_array_coerce.t

index 8cdd3f7..71fc3fd 100644 (file)
@@ -141,16 +141,14 @@ my $foo = Foo->new;
     );
 }
 
-my $bar;
 TODO: {
-    $bar = Bar->new(array => [ qw( a b c ) ]);
+    my $bar = Bar->new( array => [qw( a b c )] );
 
     todo_skip 'coercion in push dies here!', 1;
 
     $bar->push_array('d');
 
-    is($bar->get_array(3)->thing, 'd', 'push coerces the array');
-
+    is( $bar->get_array(3)->thing, 'd', 'push coerces the array' );
 }
 
 done_testing;