[project @ 1997-08-14 18:30:43 by sof]

[ghc-hetmet.git] / ghc / compiler / tests / validation-misc / dotests

diff --git a/ghc/compiler/tests/validation-misc/dotests b/ghc/compiler/tests/validation-misc/dotests
deleted file mode 100644 (file)
index 5e2e80b..0000000
--- a/ghc/compiler/tests/validation-misc/dotests
+++ /dev/null
@@ -1,27 +0,0 @@
-#! /usr/local/bin/perl
-#
-@Make_args = ();
-@Range_args = ();
-
-while ($_ = $ARGV[0]) {
-    shift;
-    if (/^-/ || /^[A-Z_]+=/) {
-       push(@Make_args, $_);
-    } else {
-       push(@Range_args,$_);
-    }
-}
-
-if ($#Range_args != 1) {
-    print STDERR "usage: dotest [make-args] from-test to-test\n";
-    exit(1);
-}
-$test = $Range_args[0];
-$last_test = $Range_args[1];
-if ($test gt $last_test) {
-    print STDERR "_from_ test $test _to_ test $last_test?\n";
-}
-while ($test le $last_test) {
-    system("make @Make_args runtest_$test");
-    $test++; # string incr
-}