X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Fvalidation-misc%2Fdotests;fp=ghc%2Fcompiler%2Ftests%2Fvalidation-misc%2Fdotests;h=5e2e80bc8e15640ac560e740ecca980304bd975c;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/validation-misc/dotests b/ghc/compiler/tests/validation-misc/dotests
new file mode 100644
index 0000000..5e2e80b
--- /dev/null
+++ b/ghc/compiler/tests/validation-misc/dotests
@@ -0,0 +1,27 @@
+#! /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
+}