diff options
author | rhaas <rhaas@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-11-02 14:57:21 +0000 |
---|---|---|
committer | rhaas <rhaas@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2012-11-02 14:57:21 +0000 |
commit | a31343ac48ec9f709eed0d41330aef096af26c1e (patch) | |
tree | d40a15a7403746363267a7efa3bef4429e12cabf /lib | |
parent | 6d686ed054a596a443670bafdc81a9fe2311e88a (diff) |
Reverting r4901 sicne it causes simfactory's test machinism to fail.
Will re-investigate after the release in November.
The patch itself is ok.
git-svn-id: http://svn.cactuscode.org/flesh/trunk@4902 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
-rw-r--r-- | lib/sbin/RunTestUtils.pl | 52 |
1 files changed, 27 insertions, 25 deletions
diff --git a/lib/sbin/RunTestUtils.pl b/lib/sbin/RunTestUtils.pl index a71b3b97..86c05f0e 100644 --- a/lib/sbin/RunTestUtils.pl +++ b/lib/sbin/RunTestUtils.pl @@ -893,6 +893,23 @@ sub WriteFullResults } push (@summary, "$message\n") if ($missingtests > 0); + # Different number of processors required + $message = " Tests missed for different number of processors required:\n"; + $missingtests = 0; + foreach $thorn (sort split(' ',$testdata->{'THORNS'})) + { + foreach $parfile (sort split(' ',$testdata->{"$thorn TESTS"})) + { + my $nprocs = $testdata->{"$thorn $parfile NPROCS"}; + next unless ($nprocs); + $message .= "\n ".$parfile." in ". $thorn."\n"; + $message .= " (". $testdata->{"$thorn $parfile DESC"}.")\n"; + $message .= " Requires $nprocs processors\n"; + $missingtests++; + } + } + push (@summary, "$message\n") if ($missingtests > 0); + # Different numbers of test files $message = " Tests with different number of test files:\n\n"; @@ -1042,18 +1059,7 @@ sub WriteFullResults { foreach $file (sort split(' ',$rundata->{"$thorn PASSED"})) { - my $nprocs_available = $config_data->{'NPROCS'}; - my $nprocs = $testdata->{"$thorn $file NPROCS"}; - my $nprocstext = ""; - if ($nprocs) - { - $nprocstext = " using $nprocs MPI processes"; - } - else - { - $nprocs = $nprocs_available; - } - push (@summary, " $file (from $thorn$nprocstext)"); + push (@summary, " $file (from $thorn)"); } } } @@ -1067,10 +1073,7 @@ sub WriteFullResults { foreach $file (sort split(' ',$rundata->{"$thorn FAILED"})) { - my $nprocs_available = $config_data->{'NPROCS'}; - my $nprocs = $testdata->{"$thorn $file NPROCS"}; - $nprocs = $nprocs_available unless $nprocs; - push (@summary, " $file (from $thorn using $nprocs MPI processes)"); + push (@summary, " $file (from $thorn)"); } } } @@ -1239,13 +1242,9 @@ sub RunTest chdir ($testdata->{"$thorn $test TESTRUNDIR"}) ; # substitute the ($nprocs, $exe, $parfile) templates in the command - my $nprocs_available = $config_data->{'NPROCS'}; - my $nprocs = $testdata->{"$thorn $test NPROCS"}; - $nprocs = $nprocs_available unless $nprocs; - my $exe = $config_data->{'EXE'}; my $cmd = $config_data->{'COMMAND'}; - $cmd =~ s/\$exe/$exe/g; - $cmd =~ s/\$nprocs/$nprocs/g; + $cmd =~ s/\$exe/$config_data->{'EXE'}/g; + $cmd =~ s/\$nprocs/$config_data->{'NPROCS'}/g; $cmd =~ s/\$parfile/$parfile/g; $retcode = &RunCactus($output,$test,$cmd); @@ -1695,13 +1694,16 @@ sub ParseAllParameterFiles $testdata->{"$thorn $testbase MISSING"} .= $missing; $testdata->{'NUNRUNNABLE'}++; } + elsif ($nprocs_required != $nprocs_available) + { + $testdata->{"$thorn UNRUNNABLE"} .= "$testbase "; + $testdata->{"$thorn $testbase NPROCS"} = $nprocs_required; + $testdata->{'NUNRUNNABLE'}++; + } else { $testdata->{"$thorn RUNNABLE"} .= "$testbase "; $testdata->{"$thorn TESTED"} = 1; - if($nprocs_required != $nprocs_available) { - $testdata->{"$thorn $testbase NPROCS"} = $nprocs_required; - } $testdata->{'NRUNNABLE'}++; $nrunnable++; } |