From: Arnaud Giersch <arnaud.giersch@iut-bm.univ-fcomte.fr>
Date: Thu, 12 Sep 2013 15:00:26 +0000 (+0200)
Subject: Avoid to build programs again during mpich3 tests.
X-Git-Tag: v3_9_90~123^2~4
X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/commitdiff_plain/ae3c6831d3cc52a86b610f254fe7f10d831ee1c6

Avoid to build programs again during mpich3 tests.

Die if program is not found.
---

diff --git a/teshsuite/smpi/mpich3-test/runtests b/teshsuite/smpi/mpich3-test/runtests
index 3c5a3c8a98..88188fed90 100755
--- a/teshsuite/smpi/mpich3-test/runtests
+++ b/teshsuite/smpi/mpich3-test/runtests
@@ -83,7 +83,7 @@ $depth = 0;              # This is used to manage multiple open list files
 
 # Build flags
 $remove_this_pgm = 0;
-$clean_pgms      = 1;
+$clean_pgms      = 0;
 
 my $program_wrapper = '';
 
@@ -753,6 +753,11 @@ sub AddMPIProgram {
 # Return value is 0 on success, non zero on failure
 sub BuildMPIProgram {
     my $programname = shift;
+    if (! -x $programname) {
+        die "Could not find $programname. Aborting.\n";
+    }
+    return 0;
+    # THE FOLLOWING IS DISABLED.
     my $xfail = shift;
     my $rc = 0;
     if ($verbose) { print STDERR "making $programname\n"; }