X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-Types-Common.git;a=blobdiff_plain;f=t%2F02-numeric.t;h=23bec4124c33e4b72f91b5a10c13bece148dd917;hp=67d1ccba3292fe03e4ce8e10c0c3c4487dda77ff;hb=966ead6bcb0ac6386052f2aa64920858afa170f4;hpb=07d2232652c44d08fb997e2c2cc7d4fc3f0676f8 diff --git a/t/02-numeric.t b/t/02-numeric.t index 67d1ccb..23bec41 100644 --- a/t/02-numeric.t +++ b/t/02-numeric.t @@ -12,8 +12,15 @@ use MooseX::Types::Common::Numeric qw( 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)');