X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F02-numeric.t;h=aed9aa7f3162d18e6ae58a2c9d54f52496dd5b89;hb=d0b8bc7f34ec718fae7804257ed3db44c126ebd7;hp=0e7a9466148703422c5f01899488518791bb7795;hpb=ac73ab52030a0e37e78c715d880d92cdb8f4b0ed;p=gitmo%2FMooseX-Types-Common.git diff --git a/t/02-numeric.t b/t/02-numeric.t index 0e7a946..aed9aa7 100644 --- a/t/02-numeric.t +++ b/t/02-numeric.t @@ -2,13 +2,13 @@ use strict; use warnings; -use Test::More tests => 12; +use Test::More tests => 18; use Test::Exception; { package FooTest; use Moose; - use MooseX::Types::Common ( + use MooseX::Types::Common::Numeric ( qw(PositiveNum PositiveInt NegativeInt NegativeNum SingleDigit) ); @@ -24,14 +24,20 @@ my $ins = FooTest->new; dies_ok { $ins->digit(100); } 'SingleDigit'; lives_ok { $ins->digit(1); } 'SingleDigit 2'; -dies_ok { $ins->posint(-100); } 'PositiveInt'; -dies_ok { $ins->posint(100.885); } 'PositiveInt 2'; -lives_ok { $ins->posint(100); } 'PositiveInt 3'; -lives_ok { $ins->posnum(100.885); } 'PositiveNum'; -dies_ok { $ins->posnum(-100.885); } 'PositiveNum 2'; +dies_ok { $ins->posint(-100); } 'PositiveInt (-100)'; +dies_ok { $ins->posint(0); } 'PositiveInt (0)'; +dies_ok { $ins->posint(100.885); } 'PositiveInt (100.885)'; +lives_ok { $ins->posint(100); } 'PositiveInt (100)'; +dies_ok { $ins->posnum(0); } 'PositiveNum (0)'; +lives_ok { $ins->posnum(100.885); } 'PositiveNum (100.885)'; +dies_ok { $ins->posnum(-100.885); } 'PositiveNum (-100.885)'; +lives_ok { $ins->posnum(0.0000000001); } 'PositiveNum (0.0000000001)'; -dies_ok { $ins->negint(100); } 'NegativeInt'; -dies_ok { $ins->negint(-100.885); } 'NegativeInt 2'; -lives_ok { $ins->negint(-100); } 'NegativeInt 3'; -lives_ok { $ins->negnum(-100.885); } 'NegativeNum'; -dies_ok { $ins->negnum(100.885); } 'NegativeNum 2'; +dies_ok { $ins->negint(100); } 'NegativeInt (100)'; +dies_ok { $ins->negint(-100.885); } 'NegativeInt (-100.885)'; +lives_ok { $ins->negint(-100); } 'NegativeInt (-100)'; +dies_ok { $ins->negint(0); } 'NegativeInt (0)'; +lives_ok { $ins->negnum(-100.885); } 'NegativeNum (-100.885)'; +dies_ok { $ins->negnum(100.885); } 'NegativeNum (100.885)'; +dies_ok { $ins->negnum(0); } 'NegativeNum (0)'; +lives_ok { $ins->negnum(-0.0000000001); } 'NegativeNum (-0.0000000001)';