1 # See also http://rt.cpan.org/Public/Bug/Display.html?id=55048
16 use Test::More tests => 24;
18 foreach my $i(2**32, 2**40, 2**46) {
20 my $value = $i * $sig;
22 my $int = MyInteger->new( a_int => $value )->a_int;
23 cmp_ok($int, '==', $value, "Mouse groked the Int $i");
26 my $num = MyInteger->new( a_num => $value )->a_num;
27 cmp_ok($num, '==', $value, "Mouse groked the Num $i");
31 eval { MyInteger->new( a_int => $value ) };
32 like $@, qr/does not pass the type constraint/, "Mouse does not regard $value as Int";
33 eval { MyInteger->new( a_num => $value ) };
34 is $@, '', "Mouse regards $value as Num";