t/02-numeric.t

   1 #! /usr/bin/perl -w
   2
   3 use strict;
   4 use warnings;
   5 use Test::More tests => 18;
   6 use Test::Exception;
   7
   8 {
   9   package FooTest;
  10   use Moose;
  11   use MooseX::Types::Common::Numeric (
  12     qw(PositiveNum PositiveInt NegativeInt NegativeNum SingleDigit)
  13   );
  14
  15   has digit => ( is => 'rw', isa => SingleDigit);
  16   has posnum => ( is => 'rw', isa => PositiveNum);
  17   has posint => ( is => 'rw', isa => PositiveInt);
  18   has negnum => ( is => 'rw', isa => NegativeNum);
  19   has negint => ( is => 'rw', isa => NegativeInt);
  20 }
  21
  22 my $ins = FooTest->new;
  23
  24 dies_ok { $ins->digit(100); } 'SingleDigit';
  25 lives_ok { $ins->digit(1); } 'SingleDigit 2';
  26
  27 dies_ok { $ins->posint(-100); } 'PositiveInt (-100)';
  28 dies_ok { $ins->posint(0); } 'PositiveInt (0)';
  29 dies_ok { $ins->posint(100.885); } 'PositiveInt (100.885)';
  30 lives_ok { $ins->posint(100); } 'PositiveInt (100)';
  31 dies_ok { $ins->posnum(0); } 'PositiveNum (0)';
  32 lives_ok { $ins->posnum(100.885); } 'PositiveNum (100.885)';
  33 dies_ok { $ins->posnum(-100.885); } 'PositiveNum (-100.885)';
  34 lives_ok { $ins->posnum(0.0000000001); } 'PositiveNum (0.0000000001)';
  35
  36 dies_ok { $ins->negint(100); } 'NegativeInt (100)';
  37 dies_ok { $ins->negint(-100.885); } 'NegativeInt (-100.885)';
  38 lives_ok { $ins->negint(-100); } 'NegativeInt (-100)';
  39 dies_ok { $ins->negint(0); } 'NegativeInt (0)';
  40 lives_ok { $ins->negnum(-100.885); } 'NegativeNum (-100.885)';
  41 dies_ok { $ins->negnum(100.885); } 'NegativeNum (100.885)';
  42 dies_ok { $ins->negnum(0); } 'NegativeNum (0)';
  43 lives_ok { $ins->negnum(-0.0000000001); } 'NegativeNum (-0.0000000001)';