5 use Test::More tests => 12;
11 use MooseX::Types::Common (
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';
28 dies_ok { $ins->posint(100.885); } 'PositiveInt 2';
29 lives_ok { $ins->posint(100); } 'PositiveInt 3';
30 lives_ok { $ins->posnum(100.885); } 'PositiveNum';
31 dies_ok { $ins->posnum(-100.885); } 'PositiveNum 2';
33 dies_ok { $ins->negint(100); } 'NegativeInt';
34 dies_ok { $ins->negint(-100.885); } 'NegativeInt 2';
35 lives_ok { $ins->negint(-100); } 'NegativeInt 3';
36 lives_ok { $ins->negnum(-100.885); } 'NegativeNum';
37 dies_ok { $ins->negnum(100.885); } 'NegativeNum 2';