1 files changed, 0 insertions, 85 deletions
diff --git a/contrib/perl5/t/op/length.t b/contrib/perl5/t/op/length.t
deleted file mode 100755
index ceb005e..0000000
--- a/contrib/perl5/t/op/length.t
+++ /dev/null
@@ -1,85 +0,0 @@
-#!./perl
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
-print "1..13\n";
-
-print "not " unless length("")    == 0;
-print "ok 1\n";
-
-print "not " unless length("abc") == 3;
-print "ok 2\n";
-
-$_ = "foobar";
-print "not " unless length()      == 6;
-print "ok 3\n";
-
-# Okay, so that wasn't very challenging.  Let's go Unicode.
-
-{
-    my $a = "\x{41}";
-
-    print "not " unless length($a) == 1;
-    print "ok 4\n";
-    $test++;
-
-    use bytes;
-    print "not " unless $a eq "\x41" && length($a) == 1;
-    print "ok 5\n";
-    $test++;
-}
-
-{
-    my $a = "\x{80}";
-    
-    print "not " unless length($a) == 1;
-    print "ok 6\n";
-    $test++;
-    
-    use bytes;
-    print "not " unless $a eq "\xc2\x80" && length($a) == 2;
-    print "ok 7\n";
-    $test++;
-}
-
-{
-    my $a = "\x{100}";
-    
-    print "not " unless length($a) == 1;
-    print "ok 8\n";
-    $test++;
-    
-    use bytes;
-    print "not " unless $a eq "\xc4\x80" && length($a) == 2;
-    print "ok 9\n";
-    $test++;
-}
-
-{
-    my $a = "\x{100}\x{80}";
-    
-    print "not " unless length($a) == 2;
-    print "ok 10\n";
-    $test++;
-    
-    use bytes;
-    print "not " unless $a eq "\xc4\x80\xc2\x80" && length($a) == 4;
-    print "ok 11\n";
-    $test++;
-}
-
-{
-    my $a = "\x{80}\x{100}";
-    
-    print "not " unless length($a) == 2;
-    print "ok 12\n";
-    $test++;
-    
-    use bytes;
-    print "not " unless $a eq "\xc2\x80\xc4\x80" && length($a) == 4;
-    print "ok 13\n";
-    $test++;
-}