6 use Test::More no_plan => 1;
9 use_ok('MooseX::AttributeHelpers');
17 metaclass => 'Number',
35 is $real->integer, 5, 'Default to five';
39 is $real->integer, 15, 'Add ten for fithteen';
43 is $real->integer, 12, 'Subtract three for 12';
47 is $real->integer, 10, 'Set to ten';
51 is $real->integer, 5, 'divide by 2';
55 is $real->integer, 10, 'multiplied by 2';
59 is $real->integer, 0, 'Mod by 2';
65 is $real->integer, 2, 'Mod by 5';
71 is $real->integer, 1, 'abs 1'