Newer
Older
Christian Godenschwager
committed
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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
//======================================================================================================================
//
// This file is part of waLBerla. waLBerla is free software: you can
// redistribute it and/or modify it under the terms of the GNU General Public
// License as published by the Free Software Foundation, either version 3 of
// the License, or (at your option) any later version.
//
// waLBerla is distributed in the hope that it will be useful, but WITHOUT
// ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
// FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
// for more details.
//
// You should have received a copy of the GNU General Public License along
// with waLBerla (see COPYING.txt). If not, see <http://www.gnu.org/licenses/>.
//
//! \file BroadcastTest.cpp
//! \ingroup core
//! \author Christian Godenschwager <christian.godenschwager@fau.de>
//! \brief Tests for core/mpi/Broadcast.h
//
//======================================================================================================================
#include "core/debug/TestSubsystem.h"
#include "core/mpi/Broadcast.h"
#include "core/mpi/BufferDataTypeExtensions.h"
#include "core/mpi/MPIManager.h"
#include <limits>
#include <stdlib.h>
#include <vector>
template< typename T >
std::vector<T> fibonacci()
{
std::vector<T> fib;
fib.push_back( T(0) );
fib.push_back( T(1) );
while( std::numeric_limits<T>::max() - *(fib.end() - 1) >= *(fib.end() - 2) )
fib.push_back( *(fib.end() - 1) + *(fib.end() - 2) );
return fib;
}
void runTest( int senderRank )
{
using namespace walberla;
const std::vector<unsigned long long> fib( fibonacci<unsigned long long>() );
const int testInt = 42;
std::vector< unsigned long long > allFib;
int allTestInt = 0;
WALBERLA_EXCLUSIVE_WORLD_SECTION( senderRank )
{
allFib = fib;
allTestInt = testInt;
}
walberla::mpi::broadcastObject(allFib, senderRank);
walberla::mpi::broadcastObject(allTestInt, senderRank);
WALBERLA_CHECK_EQUAL( allFib, fib );
WALBERLA_CHECK_EQUAL( allTestInt, testInt );
}
int main( int argc, char * argv[] )
{
using namespace walberla;
debug::enterTestMode();
MPIManager::instance()->initializeMPI( &argc, &argv );
for( int rank = 0; rank < MPIManager::instance()->numProcesses(); ++rank )
runTest(rank);
return EXIT_SUCCESS;
}