}
sub exec_test($$);
+sub process_test($$$$);
my ($prog, $in, $out) = ([], [], []);
my $line_number = 0;
my $nmax = (@$out > @$result) ? @$out : @$result;
for (my $n=0; $n < $nmax; $n++) {
if (!defined($out->[$n]) || !defined($result->[$n]) ||
- $out->[$n] ne $result->[$n]) {
+ ($result->[$n] !~ m/\Q$out->[$n]\E/)) {
$good = 0;
}
}
#print "< $_";
if ($needs_shell) {
s#^/bin/sh: line \d+: ##;
+ s#^/bin/sh: ##; # temporarily added by ericm
}
push @$result, $_;
}