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;
+++ /dev/null
-#!/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;
projects / gitmo/Moose.git / commitdiff