6 use Test::More tests => 20;
10 use_ok('MooseX::AttributeHelpers');
18 traits => [qw/Number/],
35 isa_ok($real, 'Real');
37 can_ok($real, $_) for qw[
38 set add sub mul div mod abs
41 is $real->integer, 5, 'Default to five';
45 is $real->integer, 15, 'Add ten for fithteen';
49 is $real->integer, 12, 'Subtract three for 12';
53 is $real->integer, 10, 'Set to ten';
57 is $real->integer, 5, 'divide by 2';
61 is $real->integer, 10, 'multiplied by 2';
65 is $real->integer, 0, 'Mod by 2';
71 is $real->integer, 2, 'Mod by 5';
77 is $real->integer, 1, 'abs 1';
81 my $attr = $real->meta->get_attribute('integer');
82 does_ok($attr, 'MooseX::AttributeHelpers::Trait::Number');
84 is_deeply($attr->provides, {
92 }, '... got the right provides mapping');