t/070_attribute_helpers/004_basic_number.t

   1 #!/usr/bin/perl
   2
   3
   4 use strict;
   5 use warnings;
   6
   7 use Test::More tests => 26;
   8
   9 BEGIN {
  10     use_ok('Moose::AttributeHelpers');
  11 }
  12
  13 {
  14     package Real;
  15     use Moose;
  16
  17     has 'integer' => (
  18         metaclass => 'Number',
  19         is        => 'ro',
  20         isa       => 'Int',
  21         default   => sub { 5 },
  22         handles  => {
  23             set       => 'set',
  24             add       => 'add',
  25             sub       => 'sub',
  26             mul       => 'mul',
  27             div       => 'div',
  28             mod       => 'mod',
  29             abs       => 'abs',
  30             inc         => [ add => [ 1 ] ],
  31             dec         => [ sub => [ 1 ] ],
  32             odd         => [ mod => [ 2 ] ],
  33             cut_in_half => [ div => [ 2 ] ],
  34
  35         },
  36     );
  37 }
  38
  39 my $real = Real->new;
  40 isa_ok($real, 'Real');
  41
  42 can_ok($real, $_) for qw[
  43     set add sub mul div mod abs inc dec odd cut_in_half
  44 ];
  45
  46 is $real->integer, 5, 'Default to five';
  47
  48 $real->add(10);
  49
  50 is $real->integer, 15, 'Add ten for fithteen';
  51
  52 $real->sub(3);
  53
  54 is $real->integer, 12, 'Subtract three for 12';
  55
  56 $real->set(10);
  57
  58 is $real->integer, 10, 'Set to ten';
  59
  60 $real->div(2);
  61
  62 is $real->integer, 5, 'divide by 2';
  63
  64 $real->mul(2);
  65
  66 is $real->integer, 10, 'multiplied by 2';
  67
  68 $real->mod(2);
  69
  70 is $real->integer, 0, 'Mod by 2';
  71
  72 $real->set(7);
  73
  74 $real->mod(5);
  75
  76 is $real->integer, 2, 'Mod by 5';
  77
  78 $real->set(-1);
  79
  80 $real->abs;
  81
  82 is $real->integer, 1, 'abs 1';
  83
  84 $real->set(12);
  85
  86 $real->inc;
  87
  88 is $real->integer, 13, 'inc 12';
  89
  90 $real->dec;
  91
  92 is $real->integer, 12, 'dec 13';
  93
  94 ## test the meta
  95
  96 my $attr = $real->meta->get_attribute('integer');
  97 isa_ok($attr, 'Moose::AttributeHelpers::Number');
  98
  99 is_deeply($attr->handles, {
 100     set => 'set',
 101     add => 'add',
 102     sub => 'sub',
 103     mul => 'mul',
 104     div => 'div',
 105     mod => 'mod',
 106     abs => 'abs',
 107 }, '... got the right handles mapping');
 108