6 use Test::More tests => 25;
26 inc => [ add => [1] ],
27 dec => [ sub => [1] ],
28 odd => [ mod => [2] ],
29 cut_in_half => [ div => [2] ],
36 isa_ok( $real, 'Real' );
38 can_ok( $real, $_ ) for qw[
39 set add sub mul div mod abs inc dec odd cut_in_half
42 is $real->integer, 5, 'Default to five';
46 is $real->integer, 15, 'Add ten for fithteen';
50 is $real->integer, 12, 'Subtract three for 12';
54 is $real->integer, 10, 'Set to ten';
58 is $real->integer, 5, 'divide by 2';
62 is $real->integer, 10, 'multiplied by 2';
66 is $real->integer, 0, 'Mod by 2';
72 is $real->integer, 2, 'Mod by 5';
78 is $real->integer, 1, 'abs 1';
84 is $real->integer, 13, 'inc 12';
88 is $real->integer, 12, 'dec 13';
92 my $attr = $real->meta->get_attribute('integer');
93 does_ok( $attr, 'Moose::Meta::Attribute::Native::Trait::Number' );
105 inc => [ add => [1] ],
106 dec => [ sub => [1] ],
107 odd => [ mod => [2] ],
108 cut_in_half => [ div => [2] ],
110 '... got the right handles mapping'