regression: Iterate from 1 to 3 copies for each job.

This commit is contained in:
Solomon Peachy 2018-06-19 09:58:19 -04:00
parent b4dc6c7f25
commit cdfdb077d2
1 changed files with 14 additions and 11 deletions

View File

@ -1,7 +1,7 @@
#!/usr/bin/perl
use strict;
my $copies = 2;
my $copies = 3;
my $retval = 0;
while (<STDIN>) {
@ -15,18 +15,21 @@ while (<STDIN>) {
$ENV{"EXTRA_PID"} = $row[2];
print "***** $row[0] $row[1] $row[2] $row[3]\n";
my @args = ("valgrind", "./dyesub_backend", "-d", $copies, "testjobs/${row[3]}");
my $rval = system(@args);
foreach (my $i = 1; $i <= $copies ; $i++) {
my @args = ("valgrind", "./dyesub_backend", "-d", $i, "testjobs/${row[3]}");
if ($rval < 0) {
print "***** FAIL: failure to launch ($rval)\n";
$retval++;
} elsif ($rval > 0) {
print "***** FAIL: failure to parse/execute ($rval) $row[0] $row[1] $row[2] $row[3] \n";
$retval++;
} else {
print "***** PASS\n";
my $rval = system(@args);
if ($rval < 0) {
print "***** FAIL: failure to launch ($rval)\n";
$retval++;
} elsif ($rval > 0) {
print "***** FAIL: failure to parse/execute ($rval) $row[0] $row[1] $row[2] $row[3] \n";
$retval++;
} else {
print "***** PASS\n";
}
}
}
exit($retval);