3 my $interpreter = shift;
5 my $disabled_tests = shift;
7 my $stdout = $test.'.stdout';
8 my $stderr = $test.'.stderr';
10 $output =~ s/\.exe$/.output/;
13 print "Testing $test... ";
15 foreach $disabled (split (/ /, $disabled_tests)) {
16 if ($disabled eq $test) {
22 my $res = system("$interpreter @ARGV $test 2>$stderr 1>$stdout");
25 printf ("failed $? (%d) signal (%d).\n", $? >> 8, $? & 127);
26 if (($? & 127) == 2) {
32 if (-f $output && (read_file ($output) ne read_file ($stdout))) {
33 print "failed output.\n";
44 open (F, "<$out") || die $!;