1use Test::More;
2use Data::Perl;
3
4use strict;
5
6# constructor
7is ref(number(1)), 'Data::Perl::Number', 'constructor shortcut works';
8
9my $c = number(5);
10is $$c, 5, 'nondefault set works';
11
12# add
13$c->add(5);
14is $$c, 10, 'add works';
15
16# sub
17$c->sub(5);
18is $$c, 5, 'sub works';
19
20# mul
21$c->mul(6);
22is $$c, 30, 'mul works';
23
24# div
25$c->div(7);
26is $$c, 30/7, 'div works';
27
28# mod
29$$c = 12;
30$c->mod(5);
31is $$c, 2, 'mod works';
32
33$$c = -5;
34# abs
35$c->abs;
36is $$c, 5, 'abs works';
37
38done_testing();
39