use strict;
use warnings FATAL => 'all';
-use Test::More tests => 34;
-use Test::Fatal;
+
+use Test::More;
+use if $ENV{AUTHOR_TESTING}, 'Test::Warnings';
use MooseX::Types::Common::Numeric qw(
PositiveNum PositiveOrZeroNum
SingleDigit
);
-ok(!is_SingleDigit(100), 'SingleDigit');
-ok(is_SingleDigit(1), 'SingleDigit 2');
+ok(!is_SingleDigit(100), 'SingleDigit 100');
+ok(!is_SingleDigit(10), 'SingleDigit 10');
+ok(is_SingleDigit(9), 'SingleDigit 9');
+ok(is_SingleDigit(1), 'SingleDigit 1');
+ok(is_SingleDigit(0), 'SingleDigit 0');
+ok(is_SingleDigit(-1), 'SingleDigit -1');
+ok(is_SingleDigit(-9), 'SingleDigit -9');
+ok(!is_SingleDigit(-10), 'SingleDigit -10');
+
ok(!is_PositiveInt(-100), 'PositiveInt (-100)');
ok(!is_PositiveInt(0), 'PositiveInt (0)');
ok(!is_NegativeOrZeroNum(100.885), 'NegativeOrZeroNum (100.885)');
ok(is_NegativeOrZeroNum(0), 'NegativeOrZeroNum (0)');
ok(is_NegativeOrZeroNum(-0.0000000001), 'NegativeOrZeroNum (-0.0000000001)');
+
+done_testing;