Regenerate test files

[gitmo/Mouse.git] / t / 000_recipes / basics-recipe10.t

diff --git a/t/000_recipes/basics-recipe10.t b/t/000_recipes/basics-recipe10.t
index 530ff0b..93f8e7e 100644 (file)
--- a/t/000_recipes/basics-recipe10.t
+++ b/t/000_recipes/basics-recipe10.t
@@ -1,11 +1,12 @@
 #!/usr/bin/perl
-
-# This test is taken from Moose :)
+# This is automatically generated by author/import-moose-test.pl.
+# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
+use t::lib::MooseCompat;
 
 use strict;
 use warnings;
 
-use Test::More tests => 10;
+use Test::More;
 
 
 {
@@ -45,15 +46,7 @@ use Test::More tests => 10;
         );
     }
 
-    # use List::MoreUtils 'zip'
-    # code taken from List::MoreUtils
-    sub zip (\@\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@) {
-        my $max = -1;
-        $max < $#$_ && ( $max = $#$_ ) for @_;
-
-        map { my $ix = $_; map $_->[$ix], @_; } 0 .. $max;
-    }
-
+    use List::MoreUtils qw( zip );
 
     coerce 'Human::EyeColor'
         => from 'ArrayRef'
@@ -228,3 +221,4 @@ foreach my $set (@$parent_sets) {
 
 # AUTHOR: Aran Clary Deltac <bluefeet@cpan.org>
 
+done_testing;