#!/usr/bin/perl

opendir T, "TESTS" or die $!;
my @tests = sort grep  -f "TESTS/$_", readdir T;
# my @tests = 'casedups3';
closedir T;
open SSTDERR, ">&STDERR" or die $!;


for $prog (@ARGV) {
  my $s = time;
  print SSTDERR "-- $prog\n";
  open STDERR, ">", "RESULTS/$prog" or die $!;
  for $t (@tests) {
    print SSTDERR "   $t\n";
    warn  "### $t\n";
    $ENV{DICT} = $t;
    system "perl", "-MTestGosper", $prog;
    my $st = $?;
    $st >>= 8;
    warn "# exit status $st\n" if $st;
    exit $? if $? & 255;
  }
  $s = time - $s;
  warn "# elapsed: $s sec\n";
}