1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
|
/*****************************************************************************
*
* Copyright (c) 2014-2018 by The University of Queensland
* http://www.uq.edu.au
*
* Primary Business: Queensland, Australia
* Licensed under the Apache License, version 2.0
* http://www.apache.org/licenses/LICENSE-2.0
*
* Development until 2012 by Earth Systems Science Computational Center (ESSCC)
* Development 2012-2013 by School of Earth Sciences
* Development from 2014-2017 by Centre for Geoscience Computing (GeoComp)
* Development from 2019 by School of Earth and Environmental Sciences
**
*****************************************************************************/
#include <escript/EsysMPI.h>
#include "SystemMatrixTestCase.h"
#include <cppunit/CompilerOutputter.h>
#include <cppunit/TestResult.h>
#include <cppunit/TestResultCollector.h>
#include <cppunit/TestRunner.h>
#include <iostream>
using namespace CppUnit;
int main(int argc, char* argv[])
{
int mpiRank = 0;
int mpiSize = 1;
#ifdef ESYS_MPI
int status = MPI_Init(&argc, &argv);
if (status != MPI_SUCCESS) {
std::cerr << argv[0] << ": MPI_Init failed, exiting." << std::endl;
return status;
}
MPI_Comm_rank(MPI_COMM_WORLD, &mpiRank);
MPI_Comm_size(MPI_COMM_WORLD, &mpiSize);
#endif
TestResult controller;
TestResultCollector result;
controller.addListener(&result);
TestRunner runner;
if (mpiSize == 1) {
runner.addTest(SystemMatrixTestCase::suite());
} else {
if (mpiRank == 0)
std::cout << "Skipping SystemMatrixTestCase with more than one rank."
<< std::endl;
}
runner.run(controller);
CompilerOutputter outputter( &result, std::cerr );
if (mpiRank == 0)
outputter.write();
#ifdef ESYS_MPI
MPI_Finalize();
#endif
return result.wasSuccessful() ? 0 : 1;
}
|
