src/testutils/mpitest.cpp

   1 /*
   2  * This file is part of the GROMACS molecular simulation package.
   3  *
   4  * Copyright (c) 2016, by the GROMACS development team, led by
   5  * Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
   6  * and including many others, as listed in the AUTHORS file in the
   7  * top-level source directory and at http://www.gromacs.org.
   8  *
   9  * GROMACS is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public License
  11  * as published by the Free Software Foundation; either version 2.1
  12  * of the License, or (at your option) any later version.
  13  *
  14  * GROMACS is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with GROMACS; if not, see
  21  * http://www.gnu.org/licenses, or write to the Free Software Foundation,
  22  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA.
  23  *
  24  * If you want to redistribute modifications to GROMACS, please
  25  * consider that scientific software is very special. Version
  26  * control is crucial - bugs must be traceable. We will be happy to
  27  * consider code for inclusion in the official distribution, but
  28  * derived work must not be called official GROMACS. Details are found
  29  * in the README & COPYING files - if they are missing, get the
  30  * official version at http://www.gromacs.org.
  31  *
  32  * To help us fund GROMACS development, we humbly ask that you cite
  33  * the research papers on the package. Check out http://www.gromacs.org.
  34  */
  35 /*! \internal \file
  36  * \brief
  37  * Implements functions in mpitest.h.
  38  *
  39  * \author Teemu Murtola <teemu.murtola@gmail.com>
  40  * \ingroup module_testutils
  41  */
  42 #include "gmxpre.h"
  43
  44 #include "mpitest.h"
  45
  46 #include "config.h"
  47
  48 #include <gtest/gtest.h>
  49
  50 #include "thread_mpi/tmpi.h"
  51
  52 #include "gromacs/options/basicoptions.h"
  53 #include "gromacs/options/ioptionscontainer.h"
  54 #include "gromacs/utility/basenetwork.h"
  55 #include "gromacs/utility/exceptions.h"
  56
  57 #include "testutils/testoptions.h"
  58
  59 namespace gmx
  60 {
  61 namespace test
  62 {
  63
  64 #if GMX_THREAD_MPI
  65
  66 namespace
  67 {
  68
  69 //! Number of tMPI threads.
  70 int g_numThreads = 1;
  71 //! \cond
  72 GMX_TEST_OPTIONS(ThreadMpiTestOptions, options)
  73 {
  74     options->addOption(IntegerOption("ntmpi").store(&g_numThreads)
  75                            .description("Number of thread-MPI threads/ranks for the test"));
  76 }
  77 //! \endcond
  78
  79 //! Thread entry function for other thread-MPI threads.
  80 void threadStartFunc(void *data)
  81 {
  82     std::function<void()> &testBody = *reinterpret_cast<std::function<void()> *>(data);
  83     try
  84     {
  85         testBody();
  86     }
  87     GMX_CATCH_ALL_AND_EXIT_WITH_FATAL_ERROR;
  88 }
  89
  90 //! Helper function for starting thread-MPI threads for a test.
  91 bool startThreads(std::function<void()> *testBody)
  92 {
  93     int ret = tMPI_Init_fn(TRUE, g_numThreads, TMPI_AFFINITY_NONE,
  94                            threadStartFunc, testBody);
  95     return ret == TMPI_SUCCESS;
  96 }
  97
  98 class InTestGuard
  99 {
 100     public:
 101         explicit InTestGuard(bool *inTest) : inTest_(inTest) { *inTest = true; }
 102         ~InTestGuard() { *inTest_ = false; }
 103
 104     private:
 105         bool *inTest_;
 106 };
 107
 108 }       // namespace
 109
 110 //! \cond internal
 111 bool threadMpiTestRunner(std::function<void()> testBody)
 112 {
 113     static bool inTest = false;
 114
 115     if (inTest || g_numThreads <= 1)
 116     {
 117         return true;
 118     }
 119 #if GMX_THREAD_MPI && !GTEST_IS_THREADSAFE
 120     ADD_FAILURE()
 121     << "Google Test is not thread safe on this platform. "
 122     << "Cannot run multi-rank tests with thread-MPI.";
 123 #else
 124     InTestGuard guard(&inTest);
 125     if (!startThreads(&testBody))
 126     {
 127         return false;
 128     }
 129     try
 130     {
 131         testBody();
 132     }
 133     GMX_CATCH_ALL_AND_EXIT_WITH_FATAL_ERROR;
 134     tMPI_Finalize();
 135 #endif
 136     return false;
 137 }
 138 //! \endcond
 139
 140 #endif
 141
 142 int getNumberOfTestMpiRanks()
 143 {
 144 #if GMX_THREAD_MPI
 145     return g_numThreads;
 146 #else
 147     return gmx_node_num();
 148 #endif
 149 }
 150
 151 } // namespace test
 152 } // namespace gmx