Perl is no longer in base. Long live the port!

1 files changed, 0 insertions, 36 deletions

diff --git a/contrib/perl5/t/op/int.t b/contrib/perl5/t/op/int.t
deleted file mode 100755
index 7d675a4..0000000
--- a/contrib/perl5/t/op/int.t
+++ /dev/null
@@ -1,36 +0,0 @@
-#!./perl
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
-print "1..7\n";
-
-# compile time evaluation
-
-if (int(1.234) == 1) {print "ok 1\n";} else {print "not ok 1\n";}
-
-if (int(-1.234) == -1) {print "ok 2\n";} else {print "not ok 2\n";}
-
-# run time evaluation
-
-$x = 1.234;
-if (int($x) == 1) {print "ok 3\n";} else {print "not ok 3\n";}
-if (int(-$x) == -1) {print "ok 4\n";} else {print "not ok 4\n";}
-
-$x = length("abc") % -10;
-print $x == -7 ? "ok 5\n" : "# expected -7, got $x\nnot ok 5\n";
-
-{
-    use integer;
-    $x = length("abc") % -10;
-    $y = (3/-10)*-10;
-    print $x+$y == 3 && abs($x) < 10 ? "ok 6\n" : "not ok 6\n";
-}
-
-# check bad strings still get converted
-
-@x = ( 6, 8, 10);
-print "not " if $x["1foo"] != 8;
-print "ok 7\n";