1use Test::More;
2use Data::Perl;
3use Scalar::Util qw/refaddr/;
4
5use strict;
6
7# constructor
8is ref(counter(1)), 'Data::Perl::Counter', 'constructor shortcut works';
9
10my $c = counter(5);
11is $$c, 5, 'nondefault set works';
12
13# inc
14$c->inc;
15is $$c, 6, 'inc 1 works';
16
17$c->inc(3);
18is $$c, 9, 'inc n works';
19
20# dec
21$c = counter(4);
22$c->dec;
23is $$c, 3, 'dec 1 works';
24
25$c->dec(2);
26is $$c, 1, 'dec n works';
27
28# reset
29$c->reset;
30is $$c, 0, 'reset works';
31
32done_testing();
33