use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 18;
use Test::Moose 'does_ok';
BEGIN {
inc => 'inc_counter',
dec => 'dec_counter',
reset => 'reset_counter',
+ set => 'set_counter'
}
);
}
dec_counter
inc_counter
reset_counter
+ set_counter
];
is($page->counter, 0, '... got the default value');
$page->reset_counter;
is($page->counter, 0, '... got the original value');
+$page->set_counter(5);
+is($page->counter, 5, '... set the value');
+
+$page->inc_counter(2);
+is($page->counter, 7, '... increment by arg');
+
+$page->dec_counter(5);
+is($page->counter, 2, '... decrement by arg');
+
# check the meta ..
my $counter = $page->meta->get_attribute('counter');
is_deeply($counter->provides, {
inc => 'inc_counter',
dec => 'dec_counter',
- reset => 'reset_counter',
+ reset => 'reset_counter',
+ set => 'set_counter'
}, '... got the right provides methods');