ghc/compiler/tests/validation-misc/dotests

   1 #! /usr/local/bin/perl
   2 #
   3 @Make_args = ();
   4 @Range_args = ();
   5
   6 while ($_ = $ARGV[0]) {
   7     shift;
   8     if (/^-/ || /^[A-Z_]+=/) {
   9         push(@Make_args, $_);
  10     } else {
  11         push(@Range_args,$_);
  12     }
  13 }
  14
  15 if ($#Range_args != 1) {
  16     print STDERR "usage: dotest [make-args] from-test to-test\n";
  17     exit(1);
  18 }
  19 $test = $Range_args[0];
  20 $last_test = $Range_args[1];
  21 if ($test gt $last_test) {
  22     print STDERR "_from_ test $test _to_ test $last_test?\n";
  23 }
  24 while ($test le $last_test) {
  25     system("make @Make_args runtest_$test");
  26     $test++; # string incr
  27 }