3 my $interpreter = shift;
6 my $stdout = $test.'.stdout';
7 my $stderr = $test.'.stderr';
9 $output =~ s/\.exe$/.output/;
12 print "Testing $test... ";
14 for ($c = 20 - length ($test); $c > 0; $c--) { print " "; }
16 my $res = system("/usr/bin/time -o .res -f '%U' $interpreter @ARGV $test 2>/dev/null 1>$stdout");
19 printf ("failed $? (%d) signal (%d).\n", $? >> 8, $? & 127);
21 } elsif (-f $output) {
22 print "failed output.\n" if (read_file ($output) ne read_file ($stdout));
35 open (F, "<$out") || die $!;