use strict;
use warnings;
-use Test::More;
+use Test::More tests => 35;
use Test::Exception;
BEGIN {
- plan tests => 29;
-}
-
-BEGIN {
use_ok('MooseX::AttributeHelpers');
}
'get' => 'get_option_at',
'first' => 'get_first_option',
'last' => 'get_last_option',
+ 'sort' => 'sorted_options',
},
curries => {
'grep' => {less_than_five => [ sub { $_ < 5 } ]},
'map' => {up_by_one => [ sub { $_ + 1 } ]},
- 'join' => {dashify => [ '-' ]}
+ 'join' => {dashify => [ '-' ]},
+ 'sort' => {descending => [ sub { $_[1] <=> $_[0] } ]},
}
);
options
join_options
get_option_at
+ sorted_options
];
is_deeply($stuff->_options, [1 .. 10], '... got options');
is($stuff->num_options, 10, '... got 2 options');
cmp_ok($stuff->get_option_at(0), '==', 1, '... get option 0');
cmp_ok($stuff->get_first_option, '==', 1, '... get first');
-cmp_ok($stuff->get_last_option, '==', 10, '... get first');
+cmp_ok($stuff->get_last_option, '==', 10, '... get last');
is_deeply(
[ $stuff->filter_options(sub { $_[0] % 2 == 0 }) ],
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';
+
# test the currying
is_deeply([ $stuff->less_than_five() ], [1 .. 4]);
'returns all elements with double length of string "fish"'
);
+is_deeply([$stuff->descending], [reverse 1 .. 10]);
+
## test the meta
my $options = $stuff->meta->get_attribute('_options');
'join' => 'join_options',
'get' => 'get_option_at',
'first' => 'get_first_option',
- 'last' => 'get_last_option'
-}, '... got the right provies mapping');
+ 'last' => 'get_last_option',
+ 'sort' => 'sorted_options',
+}, '... got the right provides 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';
+