update documentation about Boolto the MooseX::AttributeHelpers
[gitmo/MooseX-AttributeHelpers.git] / t / 003_basic_hash.t
CommitLineData
d26633fc 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
321ab9fe 6use Test::More tests => 35;
69dde336 7use Test::Exception;
d26633fc 8
9BEGIN {
10 use_ok('MooseX::AttributeHelpers');
11}
12
13{
14 package Stuff;
15 use Moose;
5431dff2 16 use MooseX::AttributeHelpers;
d26633fc 17
18 has 'options' => (
19 metaclass => 'Collection::Hash',
20 is => 'ro',
c25a396f 21 isa => 'HashRef[Str]',
d26633fc 22 default => sub { {} },
23 provides => {
158d8e20 24 'set' => 'set_option',
25 'get' => 'get_option',
26 'empty' => 'has_options',
27 'count' => 'num_options',
8cf40f80 28 'clear' => 'clear_options',
158d8e20 29 'delete' => 'delete_option',
d26633fc 30 }
31 );
32}
33
34my $stuff = Stuff->new();
35isa_ok($stuff, 'Stuff');
36
c25a396f 37can_ok($stuff, $_) for qw[
38 set_option
39 get_option
40 has_options
41 num_options
158d8e20 42 delete_option
8cf40f80 43 clear_options
c25a396f 44];
45
46ok(!$stuff->has_options, '... we have no options');
47is($stuff->num_options, 0, '... we have no options');
48
d26633fc 49is_deeply($stuff->options, {}, '... no options yet');
50
69dde336 51lives_ok {
52 $stuff->set_option(foo => 'bar');
53} '... set the option okay';
c25a396f 54
55ok($stuff->has_options, '... we have options');
56is($stuff->num_options, 1, '... we have 1 option(s)');
d26633fc 57is_deeply($stuff->options, { foo => 'bar' }, '... got options now');
58
69dde336 59lives_ok {
60 $stuff->set_option(bar => 'baz');
61} '... set the option okay';
c25a396f 62
63is($stuff->num_options, 2, '... we have 2 option(s)');
d26633fc 64is_deeply($stuff->options, { foo => 'bar', bar => 'baz' }, '... got more options now');
65
66is($stuff->get_option('foo'), 'bar', '... got the right option');
67
05f7da43 68is_deeply([ $stuff->get_option(qw(foo bar)) ], [qw(bar baz)], "get multiple options at once");
69
70lives_ok {
71 $stuff->set_option(oink => "blah", xxy => "flop");
72} '... set the option okay';
73
74is($stuff->num_options, 4, "4 options");
75is_deeply([ $stuff->get_option(qw(foo bar oink xxy)) ], [qw(bar baz blah flop)], "get multiple options at once");
76
77d02b8b 77lives_ok {
158d8e20 78 $stuff->delete_option('bar');
79} '... deleted the option okay';
80
05f7da43 81lives_ok {
82 $stuff->delete_option('oink');
83} '... deleted the option okay';
84
85lives_ok {
86 $stuff->delete_option('xxy');
87} '... deleted the option okay';
88
158d8e20 89is($stuff->num_options, 1, '... we have 1 option(s)');
90is_deeply($stuff->options, { foo => 'bar' }, '... got more options now');
91
8cf40f80 92$stuff->clear_options;
93
94is_deeply($stuff->options, { }, "... cleared options" );
95
158d8e20 96lives_ok {
77d02b8b 97 Stuff->new(options => { foo => 'BAR' });
98} '... good constructor params';
99
69dde336 100## check some errors
101
102dies_ok {
103 $stuff->set_option(bar => {});
104} '... could not add a hash ref where an string is expected';
d26633fc 105
77d02b8b 106dies_ok {
107 Stuff->new(options => { foo => [] });
108} '... bad constructor params';
109
321ab9fe 110## test the meta
d26633fc 111
321ab9fe 112my $options = $stuff->meta->get_attribute('options');
113isa_ok($options, 'MooseX::AttributeHelpers::Collection::Hash');
114
115is_deeply($options->provides, {
116 'set' => 'set_option',
117 'get' => 'get_option',
118 'empty' => 'has_options',
119 'count' => 'num_options',
120 'clear' => 'clear_options',
121 'delete' => 'delete_option',
122}, '... got the right provies mapping');
123
124is($options->type_constraint->type_parameter, 'Str', '... got the right container type');