1 files changed, 0 insertions, 81 deletions
diff --git a/contrib/perl5/t/harness b/contrib/perl5/t/harness
deleted file mode 100644
index c24d46f..0000000
--- a/contrib/perl5/t/harness
+++ /dev/null
@@ -1,81 +0,0 @@
-#!./perl
-
-# We suppose that perl _mostly_ works at this moment, so may use
-# sophisticated testing.
-
-BEGIN {
-    chdir 't' if -d 't';
-    unshift @INC, '../lib';
-    $ENV{PERL5LIB} = '../lib';    # so children will see it too
-}
-use lib '../lib';
-
-use Test::Harness;
-
-$Test::Harness::switches = "";    # Too much noise otherwise
-$Test::Harness::verbose = shift if @ARGV && $ARGV[0] eq '-v';
-
-#fudge DATA for now.
-%datahandle = qw(
-		lib/bigint.t		1
-		lib/bigintpm.t		1
-		lib/bigfloat.t	 	1
-		lib/bigfloatpm.t	1
-		op/gv.t			1
-		lib/complex.t		1
-		lib/ph.t		1
-		lib/soundex.t		1
-		op/misc.t		1
-		op/runlevel.t		1
-		op/tie.t		1
-		op/lex_assign.t		1
-		pragma/subs.t   	1
-		);
-
-foreach (keys %datahandle) {
-     unlink "$_.t";
-}
-
-@tests = @ARGV;
-@tests = <base/*.t comp/*.t cmd/*.t io/*.t op/*.t pragma/*.t lib/*.t> unless @tests;
-
-Test::Harness::runtests @tests;
-exit(0) unless -e "../testcompile";
-
-# %infinite =  qw (
-#        op/bop.t	1
-#        lib/hostname.t	1
-#	 op/lex_assign.t	1
-#	 lib/ph.t	1  
-#        );
-
-my $dhwrapper = <<'EOT';
-open DATA,"<".__FILE__;
-until (($_=<DATA>) =~ /^__END__/) {};
-EOT
-
-@tests = grep (!$infinite{$_}, @tests);
-@tests = map {
-         my $new = $_;
-	 if ($datahandle{$_} && !( -f "$new.t") ) {
-             $new .= '.t';
-             local(*F, *T);
-             open(F,"<$_") or die "Can't open $_: $!";
-             open(T,">$new") or die "Can't open $new: $!";
-             print T $dhwrapper, <F>;
-             close F;
-             close T;
-         }
-         $new;
-         } @tests;
-
-print "The tests ", join(' ', keys(%infinite)),
-    " generate infinite loops! Skipping!\n";
-
-$ENV{'HARNESS_COMPILE_TEST'} = 1; 
-$ENV{'PERLCC_TIMEOUT'} = 120 unless $ENV{'PERLCC_TIMEOUT'};
-
-Test::Harness::runtests @tests; 
-foreach (keys %datahandle) {
-     unlink "$_.t";
-}