X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F000_recipes%2Fbasics-recipe10.t;fp=t%2F000_recipes%2Fbasics-recipe10.t;h=93f8e7e5082f51f53708fae58e977cee4e15650c;hb=fde8e43f95fe996fbc2a778aa259feeb04552171;hp=530ff0b220af787ffaec97160effba54107c5ff6;hpb=0bdc9d38dfd3de07aad929f6629f8fa65d434c27;p=gitmo%2FMouse.git

diff --git a/t/000_recipes/basics-recipe10.t b/t/000_recipes/basics-recipe10.t
index 530ff0b..93f8e7e 100644
--- 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;