3 my $interpreter = shift;
6 my $stdout = $test.'.stdout';
7 my $stderr = $test.'.stderr';
9 $output =~ s/\.exe$/.output/;
12 print "Testing $test... ";
14 my $res = system("$interpreter $test 2>/dev/null 1>$stdout");
17 printf ("failed $? (%d) signal (%d).\n", $? >> 8, $? & 127);
18 } elsif (-f $output) {
19 print "failed output.\n" if (read_file ($output) ne read_file ($stdout));
29 open (F, "<$out") || die $!;