use strict;
use warnings;
-use Test::More tests => 64;
+use Test::More tests => 69;
use Test::Exception;
BEGIN {
'clear' => 'clear_options',
'splice' => 'splice_options',
'sort_in_place' => 'sort_options_in_place',
+ 'accessor' => 'option_accessor',
},
curries => {
'push' => {
clear_options
has_options
sort_options_in_place
+ option_accessor
];
is_deeply($stuff->options, [10, 12], '... got options');
'splice added expected option'
);
+is($stuff->option_accessor(1 => 'foo++'), 'foo++');
+is($stuff->option_accessor(1), 'foo++');
## check some errors
$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';
+
## test the meta
my $options = $stuff->meta->get_attribute('options');
'clear' => 'clear_options',
'splice' => 'splice_options',
'sort_in_place' => 'sort_options_in_place',
+ 'accessor' => 'option_accessor',
}, '... got the right provides mapping');
is($options->type_constraint->type_parameter, 'Str', '... got the right container type');