use strict;
use warnings;
-use Test::More tests => 68;
+use Test::More;
use Test::Exception;
use Test::Moose 'does_ok';
'get_option_at' => 'get',
'set_option_at' => 'set',
'num_options' => 'count',
- 'has_options' => 'empty',
+ 'has_no_options' => 'is_empty',
'clear_options' => 'clear',
'splice_options' => 'splice',
'sort_options_in_place' => 'sort_in_place',
'option_accessor' => 'accessor',
'add_options_with_speed' =>
- [ 'push' => [ 'funrolls', 'funbuns' ] ],
+ [ 'push' => 'funrolls', 'funbuns' ],
'prepend_prerequisites_along_with' =>
- [ 'unshift' => [ 'first', 'second' ] ],
+ [ 'unshift' => 'first', 'second' ],
'descending_options' =>
- [ 'sort_in_place' => [ $sort = sub { $_[1] <=> $_[0] } ] ],
+ [ 'sort_in_place' => ($sort = sub { $_[1] <=> $_[0] }) ],
}
);
}
set_option_at
num_options
clear_options
- has_options
+ has_no_options
sort_options_in_place
option_accessor
];
is_deeply( $stuff->options, [ 10, 12 ], '... got options' );
-ok( $stuff->has_options, '... we have 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_deeply( $stuff->options, [], '... no options anymore' );
-ok( !$stuff->has_options, '... no options' );
+ok( $stuff->has_no_options, '... no options' );
is( $stuff->num_options, 0, '... got no options' );
lives_ok {
is_deeply( $stuff->options, [ 1, 2, 3 ], '... got options now' );
-ok( $stuff->has_options, '... no 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' );
'get_option_at' => 'get',
'set_option_at' => 'set',
'num_options' => 'count',
- 'has_options' => 'empty',
+ 'has_no_options' => 'is_empty',
'clear_options' => 'clear',
'splice_options' => 'splice',
'sort_options_in_place' => 'sort_in_place',
'option_accessor' => 'accessor',
- 'add_options_with_speed' =>
- [ 'push' => [ 'funrolls', 'funbuns' ] ],
+ 'add_options_with_speed' => [ 'push' => 'funrolls', 'funbuns' ],
'prepend_prerequisites_along_with' =>
- [ 'unshift' => [ 'first', 'second' ] ],
- 'descending_options' =>
- [ 'sort_in_place' => [$sort] ],
+ [ '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' );
+
+done_testing;