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