Commit | Line | Data |
ac73ab52 |
1 | #! /usr/bin/perl -w |
2 | |
3 | use strict; |
4 | use warnings; |
5 | use Test::More tests => 12; |
6 | use Test::Exception; |
7 | |
8 | { |
9 | package FooTest; |
10 | use Moose; |
5b561c82 |
11 | use MooseX::Types::Common::Numeric ( |
ac73ab52 |
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'; |
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'; |
32 | |
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'; |