Convert all tests to done_testing.
[gitmo/Moose.git] / t / 070_native_traits / 202_trait_array.t
index 4c745ec..fc8500f 100644 (file)
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 68;
+use Test::More;
 use Test::Exception;
 use Test::Moose 'does_ok';
 
@@ -33,11 +33,11 @@ my $sort;
             'sort_options_in_place' => 'sort_in_place',
             'option_accessor'       => 'accessor',
             'add_options_with_speed' =>
-                [ 'push' => [ 'funrolls', 'funbuns' ] ],
+                [ 'push' => 'funrolls', 'funbuns' ],
             'prepend_prerequisites_along_with' =>
-                [ 'unshift' => [ 'first', 'second' ] ],
+                [ 'unshift' => 'first', 'second' ],
             'descending_options' =>
-                [ 'sort_in_place' => [ $sort = sub { $_[1] <=> $_[0] } ] ],
+                [ 'sort_in_place' => ($sort = sub { $_[1] <=> $_[0] }) ],
         }
     );
 }
@@ -260,15 +260,15 @@ is_deeply(
         'splice_options'        => 'splice',
         'sort_options_in_place' => 'sort_in_place',
         'option_accessor'       => 'accessor',
-        'add_options_with_speed' =>
-            [ 'push' => [ 'funrolls', 'funbuns' ] ],
+        'add_options_with_speed' => [ 'push' => 'funrolls', 'funbuns' ],
         'prepend_prerequisites_along_with' =>
-            [ 'unshift' => [ 'first', 'second' ] ],
-        'descending_options' =>
-            [ 'sort_in_place' => [$sort] ],
+            [ 'unshift' => 'first', 'second' ],
+        'descending_options' => [ 'sort_in_place' => $sort ],
     },
     '... got the right handles mapping'
 );
 
 is( $options->type_constraint->type_parameter, 'Str',
     '... got the right container type' );
+
+done_testing;