Commit | Line | Data |
ac73ab52 |
1 | use strict; |
eae6c2c4 |
2 | use warnings FATAL => 'all'; |
07d22326 |
3 | |
4 | use Test::More; |
5 | use if $ENV{AUTHOR_TESTING}, 'Test::Warnings'; |
ac73ab52 |
6 | |
8ee1241a |
7 | use MooseX::Types::Common::Numeric qw( |
8 | PositiveNum PositiveOrZeroNum |
9 | PositiveInt PositiveOrZeroInt |
10 | NegativeNum NegativeOrZeroNum |
11 | NegativeInt NegativeOrZeroInt |
12 | SingleDigit |
13 | ); |
14 | |
15 | ok(!is_SingleDigit(100), 'SingleDigit'); |
16 | ok(is_SingleDigit(1), 'SingleDigit 2'); |
17 | |
18 | ok(!is_PositiveInt(-100), 'PositiveInt (-100)'); |
19 | ok(!is_PositiveInt(0), 'PositiveInt (0)'); |
20 | ok(!is_PositiveInt(100.885), 'PositiveInt (100.885)'); |
21 | ok(is_PositiveInt(100), 'PositiveInt (100)'); |
22 | ok(!is_PositiveNum(0), 'PositiveNum (0)'); |
23 | ok(is_PositiveNum(100.885), 'PositiveNum (100.885)'); |
24 | ok(!is_PositiveNum(-100.885), 'PositiveNum (-100.885)'); |
25 | ok(is_PositiveNum(0.0000000001), 'PositiveNum (0.0000000001)'); |
26 | |
27 | ok(!is_PositiveOrZeroInt(-100), 'PositiveOrZeroInt (-100)'); |
28 | ok(is_PositiveOrZeroInt(0), 'PositiveOrZeroInt (0)'); |
29 | ok(!is_PositiveOrZeroInt(100.885), 'PositiveOrZeroInt (100.885)'); |
30 | ok(is_PositiveOrZeroInt(100), 'PositiveOrZeroInt (100)'); |
31 | ok(is_PositiveOrZeroNum(0), 'PositiveOrZeroNum (0)'); |
32 | ok(is_PositiveOrZeroNum(100.885), 'PositiveOrZeroNum (100.885)'); |
33 | ok(!is_PositiveOrZeroNum(-100.885), 'PositiveOrZeroNum (-100.885)'); |
34 | ok(is_PositiveOrZeroNum(0.0000000001), 'PositiveOrZeroNum (0.0000000001)'); |
35 | |
36 | ok(!is_NegativeInt(100), 'NegativeInt (100)'); |
37 | ok(!is_NegativeInt(-100.885), 'NegativeInt (-100.885)'); |
38 | ok(is_NegativeInt(-100), 'NegativeInt (-100)'); |
39 | ok(!is_NegativeInt(0), 'NegativeInt (0)'); |
40 | ok(is_NegativeNum(-100.885), 'NegativeNum (-100.885)'); |
41 | ok(!is_NegativeNum(100.885), 'NegativeNum (100.885)'); |
42 | ok(!is_NegativeNum(0), 'NegativeNum (0)'); |
43 | ok(is_NegativeNum(-0.0000000001), 'NegativeNum (-0.0000000001)'); |
44 | |
45 | ok(!is_NegativeOrZeroInt(100), 'NegativeOrZeroInt (100)'); |
46 | ok(!is_NegativeOrZeroInt(-100.885), 'NegativeOrZeroInt (-100.885)'); |
47 | ok(is_NegativeOrZeroInt(-100), 'NegativeOrZeroInt (-100)'); |
48 | ok(is_NegativeOrZeroInt(0), 'NegativeOrZeroInt (0)'); |
49 | ok(is_NegativeOrZeroNum(-100.885), 'NegativeOrZeroNum (-100.885)'); |
50 | ok(!is_NegativeOrZeroNum(100.885), 'NegativeOrZeroNum (100.885)'); |
51 | ok(is_NegativeOrZeroNum(0), 'NegativeOrZeroNum (0)'); |
52 | ok(is_NegativeOrZeroNum(-0.0000000001), 'NegativeOrZeroNum (-0.0000000001)'); |
07d22326 |
53 | |
54 | done_testing; |