{{$NEXT}}
- converted to Dist::Zilla
+ - SingleDigit now supports zero and negative numbers (RT#86738)
0.001008 2012-06-14 11:29:50 PDT
- Upper* and Lower* string types now accept non-alphabetic characters (Karen
);
subtype SingleDigit,
- as PositiveInt,
- where { $_ <= 9 },
+ as Int,
+ where { $_ >= -9 and $_ <= 9 },
message { "Must be a single digit" },
( $Moose::VERSION >= 2.0200
? inline_as {
$_[0]->parent()->_inline_check( $_[1] ) . ' && '
- . qq{ ($_[1] <= 9) };
+ . qq{ ($_[1] >= -9 and $_[1] <= 9) };
}
: ()
);
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)');