ghc/interpreter/test/runtests

   1 #! /usr/bin/perl
   2
   3 foreach $file (@ARGV) {
   4     ($base = $file) =~ s/\.l?hs$//;
   5
   6     $cmd = "perl test/runstdtest hugs +q -w -h300k -pHugs: -f\"$file\" -l\"Leaving Hugs\"";
   7
   8     die "Yoiks, file \"$file\" doesn't exist" unless -f "$file";
   9     $cmd .= " -O$file";
  10
  11     $cmd .= " -i$base.in1" if (-f "$base.in1");
  12     $cmd .= " -o1$base.out1" if (-f "$base.out1");
  13     $cmd .= " -o2$base.out2" if (-f "$base.out2");
  14
  15     # print "$cmd\n";
  16     system($cmd);
  17 }
  18
  19 exit 0;