1 files changed, 0 insertions, 30 deletions
diff --git a/contrib/perl5/t/op/arith.t b/contrib/perl5/t/op/arith.t
deleted file mode 100755
index 5b04f93..0000000
--- a/contrib/perl5/t/op/arith.t
+++ /dev/null
@@ -1,30 +0,0 @@
-#!./perl
-
-print "1..12\n";
-
-sub try ($$) {
-   print +($_[1] ? "ok" : "not ok"), " $_[0]\n";
-}
-
-try 1,  13 %  4 ==  1;
-try 2, -13 %  4 ==  3;
-try 3,  13 % -4 == -3;
-try 4, -13 % -4 == -1;
-
-my $limit = 1e6;
-
-# Division (and modulo) of floating point numbers
-# seem to be rather sloppy in Cray.
-$limit = 1e8 if $^O eq 'unicos';
-
-try 5, abs( 13e21 %  4e21 -  1e21) < $limit;
-try 6, abs(-13e21 %  4e21 -  3e21) < $limit;
-try 7, abs( 13e21 % -4e21 - -3e21) < $limit;
-try 8, abs(-13e21 % -4e21 - -1e21) < $limit;
-
-# UVs should behave properly
-
-try 9, 4063328477 % 65535 == 27407;
-try 10, 4063328477 % 4063328476 == 1;
-try 11, 4063328477 % 2031664238 == 1;
-try 12, 2031664238 % 4063328477 == 2031664238;