Rename a test directry name to be clear

[gitmo/Mouse.git] / t / 900_bug / 005_large_int.t

diff --git a/t/900_bug/005_large_int.t b/t/900_bug/005_large_int.t
deleted file mode 100644 (file)
index c6982b9..0000000
--- a/t/900_bug/005_large_int.t
+++ /dev/null
@@ -1,37 +0,0 @@
-# See also http://rt.cpan.org/Public/Bug/Display.html?id=55048
-package MyInteger;
-use Mouse;
-
-has a_int => (
-    is => 'rw',
-    isa => 'Int',
-);
-
-has a_num => (
-    is => 'rw',
-    isa => 'Num',
-);
-
-package main;
-use Test::More tests => 24;
-
-foreach my $i(2**32, 2**40, 2**46) {
-    for my $sig(1, -1) {
-        my $value = $i * $sig;
-
-        my $int = MyInteger->new( a_int => $value )->a_int;
-        cmp_ok($int, '==', $value, "Mouse groked the Int $i");
-
-
-        my $num = MyInteger->new( a_num => $value )->a_num;
-        cmp_ok($num, '==', $value, "Mouse groked the Num $i");
-
-        $value += 0.5;
-
-        eval { MyInteger->new( a_int => $value ) };
-        like $@, qr/does not pass the type constraint/, "Mouse does not regard $value as Int";
-        eval { MyInteger->new( a_num => $value ) };
-        is $@, '', "Mouse regards $value as Num";
-    }
-}
-