From: Dave Rolsky <autarch@urth.org>
Date: Wed, 15 Sep 2010 17:02:01 +0000 (-0500)
Subject: Move all array helper tests into one .t file
X-Git-Tag: 1.15~153
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=862b60819a1f94cedc81e15cf5ebebb8110e4a6c;p=gitmo%2FMoose.git

Move all array helper tests into one .t file
---

diff --git a/t/070_native_traits/202_trait_array.t b/t/070_native_traits/202_trait_array.t
index ca071dc..4eb281d 100644
--- a/t/070_native_traits/202_trait_array.t
+++ b/t/070_native_traits/202_trait_array.t
@@ -8,276 +8,369 @@ use Test::Exception;
 use Test::Moose 'does_ok';
 
 my $sort;
+my $less;
+my $up;
+my $prod;
+
+my %handles = (
+    add_options => 'push',
+    add_options_with_speed =>
+        [ push => 'funrolls', 'funbuns' ],
+    remove_last_option  => 'pop',
+    remove_first_option => 'shift',
+    insert_options      => 'unshift',
+    prepend_prerequisites_along_with =>
+        [ unshift => 'first', 'second' ],
+    get_option_at         => 'get',
+    set_option_at         => 'set',
+    num_options           => 'count',
+    options               => 'elements',
+    has_no_options        => 'is_empty',
+    clear_options         => 'clear',
+    splice_options        => 'splice',
+    sort_options_in_place => 'sort_in_place',
+    option_accessor       => 'accessor',
+    descending_options =>
+        [ sort_in_place => ( $sort = sub { $_[1] <=> $_[0] } ) ],
+    map_options    => 'map',
+    up_by_one      => [ map => ( $up = sub { $_ + 1 } ) ],
+    filter_options => 'grep',
+    less_than_five => [ grep => ( $less = sub { $_ < 5 } ) ],
+    find_option    => 'first',
+    join_options   => 'join',
+    dashify            => [ join     => '-' ],
+    sorted_options     => 'sort',
+    randomized_options => 'shuffle',
+    unique_options     => 'uniq',
+    pairwise_options   => [ natatime => 2 ],
+    reduce             => 'reduce',
+    product => [ reduce => ( $prod = sub { $_[0] * $_[1] } ) ],
+);
 
 {
 
     package Stuff;
     use Moose;
 
-    has 'options' => (
+    has '_options' => (
         traits  => ['Array'],
         is      => 'ro',
         isa     => 'ArrayRef[Str]',
         default => sub { [] },
-        handles => {
-            'add_options'           => 'push',
-            'remove_last_option'    => 'pop',
-            'remove_first_option'   => 'shift',
-            'insert_options'        => 'unshift',
-            'get_option_at'         => 'get',
-            'set_option_at'         => 'set',
-            'num_options'           => 'count',
-            'has_no_options'        => 'is_empty',
-            'clear_options'         => 'clear',
-            'splice_options'        => 'splice',
-            'sort_options_in_place' => 'sort_in_place',
-            'option_accessor'       => 'accessor',
-            'all_options'           => 'elements',
-            'first_option'          => 'first',
-            'mapped_options'        => 'map',
-            'add_options_with_speed' =>
-                [ 'push' => 'funrolls', 'funbuns' ],
-            'prepend_prerequisites_along_with' =>
-                [ 'unshift' => 'first', 'second' ],
-            'descending_options' =>
-                [ 'sort_in_place' => ($sort = sub { $_[1] <=> $_[0] }) ],
-        }
+        handles => \%handles,
     );
 }
 
-my $stuff = Stuff->new( options => [ 10, 12 ] );
-isa_ok( $stuff, 'Stuff' );
+{
+    my $stuff = Stuff->new( _options => [ 10, 12 ] );
+    isa_ok( $stuff, 'Stuff' );
 
-can_ok( $stuff, $_ ) for qw[
-    add_options
-    remove_last_option
-    remove_first_option
-    insert_options
-    get_option_at
-    set_option_at
-    num_options
-    clear_options
-    has_no_options
-    sort_options_in_place
-    option_accessor
-];
+    can_ok( $stuff, $_ ) for sort keys %handles;
 
-is_deeply( $stuff->options, [ 10, 12 ], '... got options' );
+    is_deeply( $stuff->_options, [ 10, 12 ], '... got options' );
 
-ok( !$stuff->has_no_options, '... we have options' );
-is( $stuff->num_options, 2, '... got 2 options' );
+    ok( !$stuff->has_no_options, '... we have options' );
+    is( $stuff->num_options, 2, '... got 2 options' );
 
-is( $stuff->remove_last_option,  12, '... removed the last option' );
-is( $stuff->remove_first_option, 10, '... removed the last option' );
+    is( $stuff->remove_last_option,  12, '... removed the last option' );
+    is( $stuff->remove_first_option, 10, '... removed the last option' );
 
-is_deeply( $stuff->options, [], '... no options anymore' );
+    is_deeply( $stuff->_options, [], '... no options anymore' );
 
-ok( $stuff->has_no_options, '... no options' );
-is( $stuff->num_options, 0, '... got no options' );
+    ok( $stuff->has_no_options, '... no options' );
+    is( $stuff->num_options, 0, '... got no options' );
 
-lives_ok {
-    $stuff->add_options( 1, 2, 3 );
-}
-'... set the option okay';
+    lives_ok {
+        $stuff->add_options( 1, 2, 3 );
+    }
+    '... set the option okay';
 
-is_deeply( $stuff->options, [ 1, 2, 3 ], '... got options now' );
-is_deeply( [ $stuff->all_options ], [ 1, 2, 3 ], '... got options now (with elements method)' );
-is( $stuff->first_option, 1, '... got first option' );
-is_deeply( [ $stuff->mapped_options( sub { $_ * 10 } ) ], [ 10, 20, 30 ],
-           '... got mapped options' );
+    is_deeply( $stuff->_options, [ 1, 2, 3 ], '... got options now' );
+    is_deeply(
+        [ $stuff->options ], [ 1, 2, 3 ],
+        '... got options now (with elements method)'
+    );
 
-ok( !$stuff->has_no_options, '... has options' );
-is( $stuff->num_options, 3, '... got 3 options' );
+    ok( !$stuff->has_no_options, '... has options' );
+    is( $stuff->num_options, 3, '... got 3 options' );
 
-is( $stuff->get_option_at(0), 1, '... get option at index 0' );
-is( $stuff->get_option_at(1), 2, '... get option at index 1' );
-is( $stuff->get_option_at(2), 3, '... get option at index 2' );
+    is( $stuff->get_option_at(0), 1, '... get option at index 0' );
+    is( $stuff->get_option_at(1), 2, '... get option at index 1' );
+    is( $stuff->get_option_at(2), 3, '... get option at index 2' );
 
-lives_ok {
-    $stuff->set_option_at( 1, 100 );
-}
-'... set the option okay';
+    lives_ok {
+        $stuff->set_option_at( 1, 100 );
+    }
+    '... set the option okay';
 
-is( $stuff->get_option_at(1), 100, '... get option at index 1' );
+    is( $stuff->get_option_at(1), 100, '... get option at index 1' );
 
-lives_ok {
-    $stuff->add_options( 10, 15 );
-}
-'... set the option okay';
+    lives_ok {
+        $stuff->add_options( 10, 15 );
+    }
+    '... set the option okay';
 
-is_deeply( $stuff->options, [ 1, 100, 3, 10, 15 ],
-    '... got more options now' );
+    is_deeply(
+        $stuff->_options, [ 1, 100, 3, 10, 15 ],
+        '... got more options now'
+    );
 
-is( $stuff->num_options, 5, '... got 5 options' );
+    is( $stuff->num_options, 5, '... got 5 options' );
 
-is( $stuff->remove_last_option, 15, '... removed the last option' );
+    is( $stuff->remove_last_option, 15, '... removed the last option' );
 
-is( $stuff->num_options, 4, '... got 4 options' );
-is_deeply( $stuff->options, [ 1, 100, 3, 10 ], '... got diff options now' );
+    is( $stuff->num_options, 4, '... got 4 options' );
+    is_deeply(
+        $stuff->_options, [ 1, 100, 3, 10 ],
+        '... got diff options now'
+    );
 
-lives_ok {
-    $stuff->insert_options( 10, 20 );
-}
-'... set the option okay';
+    lives_ok {
+        $stuff->insert_options( 10, 20 );
+    }
+    '... set the option okay';
 
-is( $stuff->num_options, 6, '... got 6 options' );
-is_deeply( $stuff->options, [ 10, 20, 1, 100, 3, 10 ],
-    '... got diff options now' );
+    is( $stuff->num_options, 6, '... got 6 options' );
+    is_deeply(
+        $stuff->_options, [ 10, 20, 1, 100, 3, 10 ],
+        '... got diff options now'
+    );
 
-is( $stuff->get_option_at(0), 10,  '... get option at index 0' );
-is( $stuff->get_option_at(1), 20,  '... get option at index 1' );
-is( $stuff->get_option_at(3), 100, '... get option at index 3' );
+    is( $stuff->get_option_at(0), 10,  '... get option at index 0' );
+    is( $stuff->get_option_at(1), 20,  '... get option at index 1' );
+    is( $stuff->get_option_at(3), 100, '... get option at index 3' );
 
-is( $stuff->remove_first_option, 10, '... getting the first option' );
+    is( $stuff->remove_first_option, 10, '... getting the first option' );
 
-is( $stuff->num_options,      5,  '... got 5 options' );
-is( $stuff->get_option_at(0), 20, '... get option at index 0' );
+    is( $stuff->num_options,      5,  '... got 5 options' );
+    is( $stuff->get_option_at(0), 20, '... get option at index 0' );
 
-$stuff->clear_options;
-is_deeply( $stuff->options, [], "... clear options" );
+    $stuff->clear_options;
+    is_deeply( $stuff->_options, [], "... clear options" );
 
-$stuff->add_options( 5, 1, 2, 3 );
-$stuff->sort_options_in_place;
-is_deeply( $stuff->options, [ 1, 2, 3, 5 ],
-    "... sort options in place (default sort order)" );
+    $stuff->add_options( 5, 1, 2, 3 );
+    $stuff->sort_options_in_place;
+    is_deeply(
+        $stuff->_options, [ 1, 2, 3, 5 ],
+        "... sort options in place (default sort order)"
+    );
 
-$stuff->sort_options_in_place( sub { $_[1] <=> $_[0] } );
-is_deeply( $stuff->options, [ 5, 3, 2, 1 ],
-    "... sort options in place (descending order)" );
+    $stuff->sort_options_in_place( sub { $_[1] <=> $_[0] } );
+    is_deeply(
+        $stuff->_options, [ 5, 3, 2, 1 ],
+        "... sort options in place (descending order)"
+    );
 
-$stuff->clear_options();
-$stuff->add_options( 5, 1, 2, 3 );
-lives_ok {
-    $stuff->descending_options();
-}
-'... curried sort in place lives ok';
+    $stuff->clear_options();
+    $stuff->add_options( 5, 1, 2, 3 );
+    lives_ok {
+        $stuff->descending_options();
+    }
+    '... curried sort in place lives ok';
 
-is_deeply( $stuff->options, [ 5, 3, 2, 1 ], "... sort currying" );
+    is_deeply( $stuff->_options, [ 5, 3, 2, 1 ], "... sort currying" );
 
-throws_ok { $stuff->sort_options_in_place('foo') }
-qr/Argument must be a code reference/,
-    'error when sort_in_place receives a non-coderef argument';
+    throws_ok { $stuff->sort_options_in_place('foo') }
+    qr/Argument must be a code reference/,
+        'error when sort_in_place receives a non-coderef argument';
 
-$stuff->clear_options;
+    $stuff->clear_options;
 
-lives_ok {
-    $stuff->add_options('tree');
-}
-'... set the options okay';
+    lives_ok {
+        $stuff->add_options('tree');
+    }
+    '... set the options okay';
 
-lives_ok {
-    $stuff->add_options_with_speed( 'compatible', 'safe' );
-}
-'... add options with speed okay';
+    lives_ok {
+        $stuff->add_options_with_speed( 'compatible', 'safe' );
+    }
+    '... add options with speed okay';
 
-is_deeply(
-    $stuff->options, [qw/tree funrolls funbuns compatible safe/],
-    'check options after add_options_with_speed'
-);
+    is_deeply(
+        $stuff->_options, [qw/tree funrolls funbuns compatible safe/],
+        'check options after add_options_with_speed'
+    );
 
-lives_ok {
-    $stuff->prepend_prerequisites_along_with();
-}
-'... add prerequisite options okay';
+    lives_ok {
+        $stuff->prepend_prerequisites_along_with();
+    }
+    '... add prerequisite options okay';
+
+    $stuff->clear_options;
+    $stuff->add_options( 1, 2 );
 
-$stuff->clear_options;
-$stuff->add_options( 1, 2 );
+    lives_ok {
+        $stuff->splice_options( 1, 0, 'foo' );
+    }
+    '... splice_options works';
 
-lives_ok {
-    $stuff->splice_options( 1, 0, 'foo' );
+    is_deeply(
+        $stuff->_options, [ 1, 'foo', 2 ],
+        'splice added expected option'
+    );
+
+    is(
+        $stuff->option_accessor( 1 => 'foo++' ), 'foo++',
+        'set using accessor method'
+    );
+    is( $stuff->option_accessor(1), 'foo++', 'get using accessor method' );
+
+    dies_ok {
+        $stuff->insert_options(undef);
+    }
+    '... could not add an undef where a string is expected';
+
+    dies_ok {
+        $stuff->set_option( 5, {} );
+    }
+    '... could not add a hash ref where a string is expected';
+
+    dies_ok {
+        Stuff->new( _options => [ undef, 10, undef, 20 ] );
+    }
+    '... bad constructor params';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->add_options(undef);
+    }
+    '... rejects push of an invalid type';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->insert_options(undef);
+    }
+    '... rejects unshift of an invalid type';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->set_option_at( 0, undef );
+    }
+    '... rejects set of an invalid type';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->sort_in_place_options(undef);
+    }
+    '... sort rejects arg of invalid type';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->option_accessor();
+    }
+    '... accessor rejects 0 args';
+
+    dies_ok {
+        my $stuff = Stuff->new();
+        $stuff->option_accessor( 1, 2, 3 );
+    }
+    '... accessor rejects 3 args';
 }
-'... splice_options works';
 
-is_deeply(
-    $stuff->options, [ 1, 'foo', 2 ],
-    'splice added expected option'
-);
+{
+    my $stuff = Stuff->new( _options => [ 1 .. 10 ] );
 
-is( $stuff->option_accessor( 1 => 'foo++' ), 'foo++' );
-is( $stuff->option_accessor(1), 'foo++' );
+    is_deeply( $stuff->_options, [ 1 .. 10 ], '... got options' );
 
-## check some errors
+    ok( !$stuff->has_no_options, '... we have options' );
+    is( $stuff->num_options, 10, '... got 2 options' );
+    cmp_ok( $stuff->get_option_at(0), '==', 1, '... get option 0' );
 
-#dies_ok {
-#    $stuff->insert_options(undef);
-#} '... could not add an undef where a string is expected';
-#
-#dies_ok {
-#    $stuff->set_option(5, {});
-#} '... could not add a hash ref where a string is expected';
+    is_deeply(
+        [ $stuff->filter_options( sub { $_ % 2 == 0 } ) ],
+        [ 2, 4, 6, 8, 10 ],
+        '... got the right filtered values'
+    );
 
-dies_ok {
-    Stuff->new( options => [ undef, 10, undef, 20 ] );
-}
-'... bad constructor params';
+    is_deeply(
+        [ $stuff->map_options( sub { $_ * 2 } ) ],
+        [ 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 ],
+        '... got the right mapped values'
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->add_options(undef);
-}
-'... rejects push of an invalid type';
+    is(
+        $stuff->find_option( sub { $_ % 2 == 0 } ), 2,
+        '.. found the right option'
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->insert_options(undef);
-}
-'... rejects unshift of an invalid type';
+    is_deeply(
+        [ $stuff->options ], [ 1 .. 10 ],
+        '... got the list of options'
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->set_option_at( 0, undef );
-}
-'... rejects set of an invalid type';
+    is(
+        $stuff->join_options(':'), '1:2:3:4:5:6:7:8:9:10',
+        '... joined the list of options by :'
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->sort_in_place_options(undef);
-}
-'... sort rejects arg of invalid type';
+    is_deeply(
+        [ $stuff->sorted_options ], [ sort ( 1 .. 10 ) ],
+        '... got sorted options (default sort order)'
+    );
+    is_deeply(
+        [ $stuff->sorted_options( sub { $_[1] <=> $_[0] } ) ],
+        [ sort { $b <=> $a } ( 1 .. 10 ) ],
+        '... got sorted options (descending sort order) '
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->option_accessor();
-}
-'... accessor rejects 0 args';
+    throws_ok { $stuff->sorted_options('foo') }
+    qr/Argument must be a code reference/,
+        'error when sort receives a non-coderef argument';
+
+    is_deeply(
+        [ sort { $a <=> $b } $stuff->randomized_options ],
+        [ 1 .. 10 ],
+        'randomized_options returns all options'
+    );
+
+    my @pairs;
+    $stuff->pairwise_options( sub { push @pairs, [@_] } );
+    is_deeply(
+        \@pairs,
+        [ [ 1, 2 ], [ 3, 4 ], [ 5, 6 ], [ 7, 8 ], [ 9, 10 ] ],
+        'pairwise returns pairs as expected'
+    );
+
+    is_deeply(
+        [ $stuff->less_than_five() ], [ 1 .. 4 ],
+        'less_than_five returns 1..4'
+    );
 
-dies_ok {
-    my $stuff = Stuff->new();
-    $stuff->option_accessor( 1, 2, 3 );
+    is_deeply(
+        [ $stuff->up_by_one() ], [ 2 .. 11 ],
+        'up_by_one returns 2..11'
+    );
+
+    is(
+        $stuff->dashify, '1-2-3-4-5-6-7-8-9-10',
+        'dashify returns options joined by dashes'
+    );
+
+    is(
+        $stuff->product, 3628800,
+        'product returns expected value'
+    );
+
+    my $other_stuff = Stuff->new( _options => [ 1, 1, 2, 3, 5 ] );
+    is_deeply(
+        [ $other_stuff->unique_options ], [ 1, 2, 3, 5 ],
+        'unique_options returns unique options'
+    );
 }
-'... accessor rejects 3 args';
-
-## test the meta
-
-my $options = $stuff->meta->get_attribute('options');
-does_ok( $options, 'Moose::Meta::Attribute::Native::Trait::Array' );
-
-is_deeply(
-    $options->handles, {
-        'add_options'            => 'push',
-        'remove_last_option'     => 'pop',
-        'remove_first_option'    => 'shift',
-        'insert_options'         => 'unshift',
-        'get_option_at'          => 'get',
-        'set_option_at'          => 'set',
-        'num_options'            => 'count',
-        'has_no_options'         => 'is_empty',
-        'clear_options'          => 'clear',
-        'splice_options'         => 'splice',
-        'sort_options_in_place'  => 'sort_in_place',
-        'option_accessor'        => 'accessor',
-        'all_options'            => 'elements',
-        'first_option'           => 'first',
-        'mapped_options'         => 'map',
-        'add_options_with_speed' => [ 'push' => 'funrolls', 'funbuns' ],
-        'prepend_prerequisites_along_with' =>
-            [ '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' );
+{
+    my $options = Stuff->meta->get_attribute('_options');
+    does_ok( $options, 'Moose::Meta::Attribute::Native::Trait::Array' );
+
+    is_deeply(
+        $options->handles, \%handles,
+        '... got the right handles mapping'
+    );
+
+    is(
+        $options->type_constraint->type_parameter, 'Str',
+        '... got the right container type'
+    );
+}
 
 done_testing;
diff --git a/t/070_native_traits/205_trait_list.t b/t/070_native_traits/205_trait_list.t
deleted file mode 100644
index 0501ee7..0000000
--- a/t/070_native_traits/205_trait_list.t
+++ /dev/null
@@ -1,168 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use warnings;
-
-use Test::More;
-use Test::Exception;
-use Test::Moose 'does_ok';
-
-my $sort;
-my $less;
-my $up;
-my $prod;
-{
-    package Stuff;
-    use Moose;
-
-    has '_options' => (
-        traits   => ['Array'],
-        is       => 'ro',
-        isa      => 'ArrayRef[Int]',
-        init_arg => 'options',
-        default  => sub { [] },
-        handles  => {
-            'num_options'          => 'count',
-            'has_no_options'       => 'is_empty',
-            'map_options',         => 'map',
-            'filter_options'       => 'grep',
-            'find_option'          => 'first',
-            'options'              => 'elements',
-            'join_options'         => 'join',
-            'get_option_at'        => 'get',
-            'sorted_options'       => 'sort',
-            'randomized_options'   => 'shuffle',
-            'unique_options'       => 'uniq',
-            'less_than_five'       => [ grep => ($less = sub { $_ < 5 }) ],
-            'up_by_one'            => [ map => ($up = sub { $_ + 1 }) ],
-            'pairwise_options'     => [ natatime => 2 ],
-            'dashify'    => [ join => '-' ],
-            'descending' => [ sort => ($sort = sub { $_[1] <=> $_[0] }) ],
-            'product'    => [ reduce => ($prod = sub { $_[0] * $_[1] }) ],
-        },
-    );
-
-}
-
-my $stuff = Stuff->new( options => [ 1 .. 10 ] );
-isa_ok( $stuff, 'Stuff' );
-
-can_ok( $stuff, $_ ) for qw[
-    _options
-    num_options
-    has_no_options
-    map_options
-    filter_options
-    find_option
-    options
-    join_options
-    get_option_at
-    sorted_options
-    randomized_options
-    unique_options
-    less_than_five
-    up_by_one
-    pairwise_options
-    dashify
-    descending
-    product
-];
-
-is_deeply( $stuff->_options, [ 1 .. 10 ], '... got options' );
-
-ok( !$stuff->has_no_options, '... we have options' );
-is( $stuff->num_options, 10, '... got 2 options' );
-cmp_ok( $stuff->get_option_at(0), '==', 1,  '... get option 0' );
-
-is_deeply(
-    [ $stuff->filter_options( sub { $_ % 2 == 0 } ) ],
-    [ 2, 4, 6, 8, 10 ],
-    '... got the right filtered values'
-);
-
-is_deeply(
-    [ $stuff->map_options( sub { $_ * 2 } ) ],
-    [ 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 ],
-    '... got the right mapped values'
-);
-
-is( $stuff->find_option( sub { $_ % 2 == 0 } ), 2,
-    '.. found the right option' );
-
-is_deeply( [ $stuff->options ], [ 1 .. 10 ], '... got the list of options' );
-
-is( $stuff->join_options(':'), '1:2:3:4:5:6:7:8:9:10',
-    '... joined the list of options by :' );
-
-is_deeply(
-    [ $stuff->sorted_options ], [ sort ( 1 .. 10 ) ],
-    '... got sorted options (default sort order)'
-);
-is_deeply(
-    [ $stuff->sorted_options( sub { $_[1] <=> $_[0] } ) ],
-    [ sort { $b <=> $a } ( 1 .. 10 ) ],
-    '... got sorted options (descending sort order) '
-);
-
-throws_ok { $stuff->sorted_options('foo') }
-qr/Argument must be a code reference/,
-    'error when sort receives a non-coderef argument';
-
-is_deeply( [ sort { $a <=> $b } $stuff->randomized_options ], [ 1 .. 10 ] );
-
-my @pairs;
-$stuff->pairwise_options(sub { push @pairs, [@_] });
-is_deeply( \@pairs, [ [ 1, 2 ], [ 3, 4 ], [ 5, 6 ], [ 7, 8 ], [ 9, 10 ] ] );
-
-# test the currying
-is_deeply( [ $stuff->less_than_five() ], [ 1 .. 4 ] );
-
-is_deeply( [ $stuff->up_by_one() ], [ 2 .. 11 ] );
-
-is( $stuff->dashify, '1-2-3-4-5-6-7-8-9-10' );
-
-is_deeply( [ $stuff->descending ], [ reverse 1 .. 10 ] );
-
-is( $stuff->product, 3628800 );
-
-my $other_stuff = Stuff->new( options => [ 1, 1, 2, 3, 5 ] );
-is_deeply( [ $other_stuff->unique_options ], [1, 2, 3, 5] );
-
-## test the meta
-
-my $options = $stuff->meta->get_attribute('_options');
-does_ok( $options, 'Moose::Meta::Attribute::Native::Trait::Array' );
-
-is_deeply(
-    $options->handles,
-    {
-        'num_options'          => 'count',
-        'has_no_options'       => 'is_empty',
-        'map_options',         => 'map',
-        'filter_options'       => 'grep',
-        'find_option'          => 'first',
-        'options'              => 'elements',
-        'join_options'         => 'join',
-        'get_option_at'        => 'get',
-        'sorted_options'       => 'sort',
-        'randomized_options'   => 'shuffle',
-        'unique_options'       => 'uniq',
-        'less_than_five'       => [ grep => $less ],
-        'up_by_one'            => [ map => $up ],
-        'pairwise_options'     => [ natatime => 2 ],
-        'dashify'              => [ join => '-' ],
-        'descending'           => [ sort => $sort ],
-        'product'              => [ reduce => $prod ],
-    },
-    '... got the right handles mapping'
-);
-
-is( $options->type_constraint->type_parameter, 'Int',
-    '... got the right container type' );
-
-dies_ok {
-    $stuff->sort_in_place_options(undef);
-}
-'... sort rejects arg of invalid type';
-
-done_testing;