A
lgorithmique
N
umérique
D
istribuée
Public GIT Repository
projects
/
simgrid.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add support for MPI_Irsend
[simgrid.git]
/
teshsuite
/
smpi
/
mpich3-test
/
runtests
diff --git
a/teshsuite/smpi/mpich3-test/runtests
b/teshsuite/smpi/mpich3-test/runtests
index
721da48
..
d2fb8c8
100755
(executable)
--- a/
teshsuite/smpi/mpich3-test/runtests
+++ b/
teshsuite/smpi/mpich3-test/runtests
@@
-40,7
+40,7
@@
use File::Path;
# Global variables
use File::Path;
# Global variables
-$MPIMajorVersion = "
1
";
+$MPIMajorVersion = "
3
";
$MPIMinorVersion = "1";
$mpiexec = "smpirun"; # Name of mpiexec program (including path, if necessary)
$testIsStrict = "true";
$MPIMinorVersion = "1";
$mpiexec = "smpirun"; # Name of mpiexec program (including path, if necessary)
$testIsStrict = "true";
@@
-72,6
+72,9
@@
$testCount = 0; # Used with batchRun to count tests.
$batrundir = "."; # Set to the directory into which to run the examples
$execarg="";
$batrundir = "."; # Set to the directory into which to run the examples
$execarg="";
+$wrapparg="";
+
+$enabled_privatization = 1; # disable tests that need SMPI privatization to run
# TAP (Test Anything Protocol) output
my $tapoutput = 0;
my $tapfile = '';
# TAP (Test Anything Protocol) output
my $tapoutput = 0;
my $tapfile = '';
@@
-154,7
+157,7
@@
foreach $_ (@ARGV) {
elsif (/--?maxnp=(.*)/) { $np_max = $1; }
elsif (/--?tests=(.*)/) { $listfiles = $1; }
elsif (/--?srcdir=(.*)/) { $srcdir = $1;
elsif (/--?maxnp=(.*)/) { $np_max = $1; }
elsif (/--?tests=(.*)/) { $listfiles = $1; }
elsif (/--?srcdir=(.*)/) { $srcdir = $1;
- $mpiexec="$mpiexec -platform ${srcdir}/../../../../examples/platforms/small_platform_with_routers.xml -hostfile ${srcdir}/../../hostfile_coll --log=root.thr:critical --cfg=smpi/
running_power:1e9 --cfg=smpi/async_small_
thresh:65536"; }
+ $mpiexec="$mpiexec -platform ${srcdir}/../../../../examples/platforms/small_platform_with_routers.xml -hostfile ${srcdir}/../../hostfile_coll --log=root.thr:critical --cfg=smpi/
host-speed:1e9 --cfg=smpi/async-small-
thresh:65536"; }
elsif (/--?verbose/) { $verbose = 1; }
elsif (/--?showprogress/) { $showProgress = 1; }
elsif (/--?debug/) { $debug = 1; }
elsif (/--?verbose/) { $verbose = 1; }
elsif (/--?showprogress/) { $showProgress = 1; }
elsif (/--?debug/) { $debug = 1; }
@@
-162,6
+165,12
@@
foreach $_ (@ARGV) {
elsif (/--?batchdir=(.*)/) { $batrundir = $1; }
elsif (/--?timeoutarg=(.*)/) { $timeoutArgPattern = $1; }
elsif (/--?execarg=(.*)/) { $execarg = "$execarg $1"; }
elsif (/--?batchdir=(.*)/) { $batrundir = $1; }
elsif (/--?timeoutarg=(.*)/) { $timeoutArgPattern = $1; }
elsif (/--?execarg=(.*)/) { $execarg = "$execarg $1"; }
+ elsif (/--?privatization=(.*)/) {
+print STDERR "privatization called\n";
+$enabled_privatization = $1; }
+ elsif (/--?wrapper=(.*)/) {
+ $wrapparg = "-wrapper \"$1\"" if $1 ne "";
+ }
elsif (/--?xmlfile=(.*)/) {
$xmlfile = $1;
if (! ($xmlfile =~ /^\//)) {
elsif (/--?xmlfile=(.*)/) {
$xmlfile = $1;
if (! ($xmlfile =~ /^\//)) {
@@
-207,14
+216,6
@@
foreach $_ (@ARGV) {
# we do not know at this point how many tests will be run, so do
# not print a test plan line like "1..450" until the very end
}
# we do not know at this point how many tests will be run, so do
# not print a test plan line like "1..450" until the very end
}
- else {
- print STDERR "Unrecognized argument $_\n";
- print STDERR "runtests [-tests=testfile] [-np=nprocesses] \
- [-maxnp=max-nprocesses] [-srcdir=location-of-tests] \
- [-xmlfile=filename ] [-noxmlclose] \
- [-verbose] [-showprogress] [-debug] [-batch]\n";
- exit(1);
- }
}
# Perform any post argument processing
}
# Perform any post argument processing
@@
-268,6
+269,7
@@
if ($batchRun) {
else {
if ($err_count) {
print "$err_count tests failed out of $total_run\n";
else {
if ($err_count) {
print "$err_count tests failed out of $total_run\n";
+ print "Failing tests : $failed_tests\n";
if ($xmloutput) {
print "Details in $xmlfullfile\n";
}
if ($xmloutput) {
print "Details in $xmlfullfile\n";
}
@@
-279,6
+281,7
@@
else {
print "TAP formatted results in $tapfullfile\n";
}
}
print "TAP formatted results in $tapfullfile\n";
}
}
+exit ($err_count > 0);
#
\f
# ---------------------------------------------------------------------------
# Routines
#
\f
# ---------------------------------------------------------------------------
# Routines
@@
-366,6
+369,7
@@
sub RunList {
my $requiresMPIX = "";
my $progEnv = "";
my $mpiVersion = "";
my $requiresMPIX = "";
my $progEnv = "";
my $mpiVersion = "";
+ my $needs_privatization = 0;
my $xfail = "";
if ($#args >= 1) { $np = $args[1]; }
# Process the key=value arguments
my $xfail = "";
if ($#args >= 1) { $np = $args[1]; }
# Process the key=value arguments
@@
-394,6
+398,9
@@
sub RunList {
elsif ($key eq "mpiversion") {
$mpiVersion = $value;
}
elsif ($key eq "mpiversion") {
$mpiVersion = $value;
}
+ elsif ($key eq "needs_privatization") {
+ $needs_privatization = $value;
+ }
elsif ($key eq "strict") {
$requiresStrict = $value
}
elsif ($key eq "strict") {
$requiresStrict = $value
}
@@
-415,6
+422,13
@@
sub RunList {
# skip empty lines
if ($programname eq "") { next; }
# skip empty lines
if ($programname eq "") { next; }
+ # if privatization is disabled, and if the test needs it, ignore it
+ if ($needs_privatization == 1 &&
+ $enabled_privatization != 1) {
+ SkippedTest($programname, $np, $workdir, "requires SMPI privatization");
+ next;
+ }
+
if ($np eq "") { $np = $np_default; }
if ($np_max > 0 && $np > $np_max) { $np = $np_max; }
if ($np eq "") { $np = $np_default; }
if ($np_max > 0 && $np > $np_max) { $np = $np_max; }
@@
-602,7
+616,7
@@
sub RunMPIProgram {
&$InitForTest();
}
print STDOUT "Env includes $progEnv\n" if $verbose;
&$InitForTest();
}
print STDOUT "Env includes $progEnv\n" if $verbose;
- print STDOUT "$mpiexec $mpiexecArgs $np_arg $np $program_wrapper ./$programname $progArgs\n" if $verbose;
+ print STDOUT "$mpiexec $
wrapparg $
mpiexecArgs $np_arg $np $program_wrapper ./$programname $progArgs\n" if $verbose;
print STDOUT "." if $showProgress;
# Save and restore the environment if necessary before running mpiexec.
if ($progEnv ne "") {
print STDOUT "." if $showProgress;
# Save and restore the environment if necessary before running mpiexec.
if ($progEnv ne "") {
@@
-616,7
+630,7
@@
sub RunMPIProgram {
}
}
}
}
}
}
- open ( MPIOUT, "$mpiexec $np_arg $np $mpiexecArgs $program_wrapper ./$programname $progArgs 2>&1 |" ) ||
+ open ( MPIOUT, "$mpiexec $
wrapparg $
np_arg $np $mpiexecArgs $program_wrapper ./$programname $progArgs 2>&1 |" ) ||
die "Could not run ./$programname\n";
if ($progEnv ne "") {
%ENV = %saveEnv;
die "Could not run ./$programname\n";
if ($progEnv ne "") {
%ENV = %saveEnv;
@@
-627,7
+641,7
@@
sub RunMPIProgram {
}
else {
if ($verbose) {
}
else {
if ($verbose) {
- $inline = "$mpiexec $np_arg $np $program_wrapper ./$programname\n";
+ $inline = "$mpiexec $
wrapparg $
np_arg $np $program_wrapper ./$programname\n";
}
else {
$inline = "";
}
else {
$inline = "";
@@
-637,6
+651,9
@@
sub RunMPIProgram {
# Skip FORTRAN STOP
if (/FORTRAN STOP/) { next; }
$inline .= $_;
# Skip FORTRAN STOP
if (/FORTRAN STOP/) { next; }
$inline .= $_;
+ if (/^==[0-9]+== ?WARNING: ASan doesn't fully support/) {
+ next;
+ }
if (/^\s*No [Ee]rrors\s*$/ && $found_noerror == 0) {
$found_noerror = 1;
}
if (/^\s*No [Ee]rrors\s*$/ && $found_noerror == 0) {
$found_noerror = 1;
}
@@
-644,6
+661,8
@@
sub RunMPIProgram {
print STDERR "Unexpected output in $programname: $_";
if (!$found_error) {
$found_error = 1;
print STDERR "Unexpected output in $programname: $_";
if (!$found_error) {
$found_error = 1;
+ $failed_tests .= $programname;
+ $failed_tests .= " ";
$err_count ++;
}
}
$err_count ++;
}
}
@@
-652,6
+671,8
@@
sub RunMPIProgram {
print STDERR "Program $programname exited without No Errors\n";
if (!$found_error) {
$found_error = 1;
print STDERR "Program $programname exited without No Errors\n";
if (!$found_error) {
$found_error = 1;
+ $failed_tests .= $programname;
+ $failed_tests .= " ";
$err_count ++;
}
}
$err_count ++;
}
}
@@
-667,6
+688,8
@@
sub RunMPIProgram {
if ($signal_num != 0) {
print STDERR "Program $programname exited with signal $signal_num\n";
}
if ($signal_num != 0) {
print STDERR "Program $programname exited with signal $signal_num\n";
}
+ $failed_tests .= $programname;
+ $failed_tests .= " ";
$found_error = 1;
$err_count ++;
}
$found_error = 1;
$err_count ++;
}