5 use Test::More tests => 18;
11 use MooseX::Types::Common::Numeric (
12 qw(PositiveNum PositiveInt NegativeInt NegativeNum SingleDigit)
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);
22 my $ins = FooTest->new;
24 dies_ok { $ins->digit(100); } 'SingleDigit';
25 lives_ok { $ins->digit(1); } 'SingleDigit 2';
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)';
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)';