More cleanup and fixes in the testing framework.

This commit is contained in:
brectanus
2007-12-20 21:33:29 +00:00
parent 78f83198d0
commit ef18503f05
3 changed files with 29 additions and 9 deletions

View File

@@ -68,16 +68,14 @@ sub runfile {
my %t = %{$t || {}};
my $id = sprintf("%6d", $n);
my $in = $t{input};
my $out = escape($t{output}); # Escape so we can send via commandline
quit(1, "Failed to interpret output \"$cfg\": $@") if ($@);
my $param;
my $rc = 0;
my $param;
if ($t{type} eq "tfn") {
$param = $t{output};
$param = escape($t{output});
}
elsif ($t{type} eq "op") {
$param = $t{param};
$param = escape($t{param});
}
else {
quit(1, "Unknown type \"$t{type}\" - should be one of: " . join(",",@TYPES));