1 files changed, 0 insertions, 75 deletions
diff --git a/contrib/perl5/t/op/range.t b/contrib/perl5/t/op/range.t
deleted file mode 100755
index e8aecf5..0000000
--- a/contrib/perl5/t/op/range.t
+++ /dev/null
@@ -1,75 +0,0 @@
-#!./perl
-
-print "1..15\n";
-
-print join(':',1..5) eq '1:2:3:4:5' ? "ok 1\n" : "not ok 1\n";
-
-@foo = (1,2,3,4,5,6,7,8,9);
-@foo[2..4] = ('c','d','e');
-
-print join(':',@foo[$foo[0]..5]) eq '2:c:d:e:6' ? "ok 2\n" : "not ok 2\n";
-
-@bar[2..4] = ('c','d','e');
-print join(':',@bar[1..5]) eq ':c:d:e:' ? "ok 3\n" : "not ok 3\n";
-
-($a,@bcd[0..2],$e) = ('a','b','c','d','e');
-print join(':',$a,@bcd[0..2],$e) eq 'a:b:c:d:e' ? "ok 4\n" : "not ok 4\n";
-
-$x = 0;
-for (1..100) {
-    $x += $_;
-}
-print $x == 5050 ? "ok 5\n" : "not ok 5 $x\n";
-
-$x = 0;
-for ((100,2..99,1)) {
-    $x += $_;
-}
-print $x == 5050 ? "ok 6\n" : "not ok 6 $x\n";
-
-$x = join('','a'..'z');
-print $x eq 'abcdefghijklmnopqrstuvwxyz' ? "ok 7\n" : "not ok 7 $x\n";
-
-@x = 'A'..'ZZ';
-print @x == 27 * 26 ? "ok 8\n" : "not ok 8\n";
-
-@x = '09' .. '08';  # should produce '09', '10',... '99' (strange but true)
-print "not " unless join(",", @x) eq
-                    join(",", map {sprintf "%02d",$_} 9..99);
-print "ok 9\n";
-
-# same test with foreach (which is a separate implementation)
-@y = ();
-foreach ('09'..'08') {
-    push(@y, $_);
-}
-print "not " unless join(",", @y) eq join(",", @x);
-print "ok 10\n";
-
-# check bounds
-@a = 0x7ffffffe..0x7fffffff;
-print "not " unless "@a" eq "2147483646 2147483647";
-print "ok 11\n";
-
-@a = -0x7fffffff..-0x7ffffffe;
-print "not " unless "@a" eq "-2147483647 -2147483646";
-print "ok 12\n";
-
-# check magic
-{
-    my $bad = 0;
-    local $SIG{'__WARN__'} = sub { $bad = 1 };
-    my $x = 'a-e';
-    $x =~ s/(\w)-(\w)/join ':', $1 .. $2/e;
-    $bad = 1 unless $x eq 'a:b:c:d:e';
-    print $bad ? "not ok 13\n" : "ok 13\n";
-}
-
-# Should use magical autoinc only when both are strings
-print "not " unless 0 == (() = "0"..-1);
-print "ok 14\n";
-
-for my $x ("0"..-1) {
-    print "not ";
-}
-print "ok 15\n";