1 files changed, 0 insertions, 51 deletions
diff --git a/contrib/perl5/t/lib/abbrev.t b/contrib/perl5/t/lib/abbrev.t
deleted file mode 100755
index fb5a9841eb1b..000000000000
--- a/contrib/perl5/t/lib/abbrev.t
+++ /dev/null
@@ -1,51 +0,0 @@
-#!./perl
-
-print "1..7\n";
-
-BEGIN {
-    chdir 't' if -d 't';
-    @INC = '../lib';
-}
-
-use Text::Abbrev;
-
-print "ok 1\n";
-
-# old style as reference
-local(%x);
-my @z = qw(list edit send abort gripe listen);
-abbrev(*x, @z);
-my $r = join ':', sort keys %x; 
-print "not " if exists $x{'l'}   ||
-                exists $x{'li'}  ||
-                exists $x{'lis'};
-print "ok 2\n";
-
-print "not " unless $x{'list'}   eq 'list' &&
-                    $x{'liste'}  eq 'listen' &&
-                    $x{'listen'} eq 'listen';
-print "ok 3\n";
-
-print "not " unless $x{'a'}     eq 'abort' &&
-                    $x{'ab'}    eq 'abort' &&
-                    $x{'abo'}   eq 'abort' &&
-                    $x{'abor'}  eq 'abort' &&
-                    $x{'abort'} eq 'abort';
-print "ok 4\n";
-
-my $test = 5;
-
-# wantarray
-my %y = abbrev @z;
-my $s = join ':', sort keys %y;
-print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
-
-my $y = abbrev @z;
-$s = join ':', sort keys %$y;
-print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;
-
-%y = ();
-abbrev \%y, @z;
-
-$s = join ':', sort keys %y;
-print (($r eq $s)?"ok $test\n":"not ok $test\n"); $test++;