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 if (index ($disabled_tests, $test) >= 0) {
20 my $res = system("$interpreter @ARGV $test 2>/dev/null 1>$stdout");
23 printf ("failed $? (%d) signal (%d).\n", $? >> 8, $? & 127);
24 if (($? & 127) == 2) {
29 } elsif (-f $output) {
30 print "failed output.\n" if (read_file ($output) ne read_file ($stdout));
41 open (F, "<$out") || die $!;