[remove old regress_test.prl script
John Meacham <john@repetae.net>**20061114022355] hunk ./utils/regress_test.prl 1
-#!/usr/bin/perl
-
-use strict;
-use Getopt::Std;
-use Data::Dumper;
-use POSIX qw(strftime);
-
-
-#my %o;
-#getopts('k', \%o);
-
-my @summary;
-my @gc;
-
-my $file = shift @ARGV;
-open F, "<$file";
-
-my $err;
-
-
-while(<F>) {
-        next unless /^\-\-R ([A-Z.a-z_'0-9]+)\s+(.+?)\s*$/;
-        my ($v,$r) = ($1,$2);
-        print "=> $v -> $r\n";
-        my $st = time;
-        system("./jhc",$file, '-m', $v, @ARGV)  == 0 or (1 ? (print "Program failed: $?\n") : (die "Program failed: $?"));
-        system("./hs.out")  == 0 or (1 ? (print "Program failed: $?\n") : (die "Program failed: $?")) if $? == 0;
-        #push @gc, ("$v - " . `cat jhc.stat`);
-
-        #print "-> $v -> $r\n";
-        $err++ if $?;
-        my $t = time - $st;
-        push @summary, sprintf "%s %13s: %5.1f %i", $ARGV,$v, $t, $?;
-        last if $? > 64000;
-        #system("./jhc '$file' -I -m '$v' +RTS -Pa && mv jhc.prof prof/$v.prof") == 0 or die "Program failed: $?";
-}
-
-my $now_string = strftime "%a %b %e %H:%M:%S %Y", localtime;
-my $args = "$file " . join(" ", @ARGV);
-print "---\n",join("\n",@summary),"\n";
-open (LOG, ">>regress.log");
-print LOG "---\n$args - $now_string \n ",join("\n",@summary),"\n".join("\n",@gc),"\n";
-exit $err;
rmfile ./utils/regress_test.prl