Merge branch 'master' of github.com:gfx/p5-Mouse-temporary

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