1 // Copyright (C) 2007-2015 CEA/DEN, EDF R&D
3 // This library is free software; you can redistribute it and/or
4 // modify it under the terms of the GNU Lesser General Public
5 // License as published by the Free Software Foundation; either
6 // version 2.1 of the License, or (at your option) any later version.
8 // This library is distributed in the hope that it will be useful,
9 // but WITHOUT ANY WARRANTY; without even the implied warranty of
10 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
11 // Lesser General Public License for more details.
13 // You should have received a copy of the GNU Lesser General Public
14 // License along with this library; if not, write to the Free Software
15 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17 // See http://www.salome-platform.org/ or email : webmaster.salome@opencascade.com
20 #include "ParaMEDMEMTest.hxx"
21 #include <cppunit/TestAssert.h>
22 #include "CommInterface.hxx"
23 #include "ProcessorGroup.hxx"
24 #include "MPIProcessorGroup.hxx"
25 #include "InterpolationUtils.hxx"
29 // use this define to enable lines, execution of which leads to Segmentation Fault
32 // use this define to enable CPPUNIT asserts and fails, showing bugs
33 #define ENABLE_FORCED_FAILURES
37 using namespace ParaMEDMEM;
40 * Check methods defined in MPPIProcessorGroup.hxx
42 (+) MPIProcessorGroup(const CommInterface& interface);
43 (+) MPIProcessorGroup(const CommInterface& interface, set<int> proc_ids);
44 (u) MPIProcessorGroup (const ProcessorGroup& proc_group, set<int> proc_ids);
45 (+) MPIProcessorGroup(const CommInterface& interface,int pstart, int pend);
46 (+) virtual ~MPIProcessorGroup();
47 (+) virtual ProcessorGroup* fuse (const ProcessorGroup&) const;
48 (u) void intersect (ProcessorGroup&){};
49 (+) int myRank() const {int rank; MPI_Comm_rank(_comm,&rank); return rank;}
50 (+) bool containsMyRank() const { int rank; MPI_Group_rank(_group, &rank); return (rank!=MPI_UNDEFINED);}
51 (+) int translateRank(const ProcessorGroup* group, int rank) const;
52 (+) const MPI_Comm* getComm() const {return &_comm;}
53 (+) ProcessorGroup* createComplementProcGroup() const;
54 (o) ProcessorGroup* createProcGroup() const;
58 void ParaMEDMEMTest::testMPIProcessorGroup_constructor()
60 CommInterface comm_interface;
61 MPIProcessorGroup* group;
63 MPI_Comm_size(MPI_COMM_WORLD, &size);
65 group= new MPIProcessorGroup(comm_interface);
66 CPPUNIT_ASSERT_EQUAL(size,group->size());
68 const MPI_Comm* communicator=group->getComm();
69 MPI_Comm_size(*communicator, &size2);
70 CPPUNIT_ASSERT_EQUAL(size,size2);
78 CPPUNIT_ASSERT_THROW(group=new MPIProcessorGroup(comm_interface,procs),INTERP_KERNEL::Exception);
81 CPPUNIT_ASSERT_NO_THROW( group=new MPIProcessorGroup(comm_interface,procs));
82 CPPUNIT_ASSERT_EQUAL (group->size(),2);
86 //throws because plast<pfirst
87 CPPUNIT_ASSERT_THROW(group=new MPIProcessorGroup(comm_interface,1,0),INTERP_KERNEL::Exception);
88 //throws because plast is beyond size-1
89 CPPUNIT_ASSERT_THROW(group=new MPIProcessorGroup(comm_interface,0,size),INTERP_KERNEL::Exception);
92 group=new MPIProcessorGroup(comm_interface,0,size-2);
93 CPPUNIT_ASSERT_EQUAL(group->size(),size-1);
99 void ParaMEDMEMTest::testMPIProcessorGroup_boolean()
102 MPI_Comm_size(MPI_COMM_WORLD, &size);
104 CommInterface comm_interface;
105 MPIProcessorGroup group(comm_interface,0,0);
106 MPIProcessorGroup group2(comm_interface,size-1,size-1);
107 ProcessorGroup* group_fuse=group.fuse(group2);
108 int group_fuse_size=(size==1)?1:2;
109 CPPUNIT_ASSERT_EQUAL(group_fuse_size,group_fuse->size());
111 ProcessorGroup* group_complement=((MPIProcessorGroup*)group_fuse)->createComplementProcGroup();
112 CPPUNIT_ASSERT_EQUAL(group_complement->size(),size-group_fuse_size);
115 delete group_complement;
117 //intersect not implemented yet
120 // MPIProcessorGroup group3(comm_interface,0,size-2);
121 // MPIProcessorGroup group4(comm_interface,1,size-1);
122 // group3.intersect(group4);
123 // CPPUNIT_ASSERT_EQUAL(group3.size(),size-2);
127 void ParaMEDMEMTest::testMPIProcessorGroup_rank()
130 MPI_Comm_size(MPI_COMM_WORLD, &size);
132 MPI_Comm_rank(MPI_COMM_WORLD, &rank);
134 CommInterface comm_interface;
135 MPIProcessorGroup group(comm_interface,0,0);
136 MPIProcessorGroup group2(comm_interface,size-1,size-1);
137 ProcessorGroup* group_fuse=group2.fuse(group);
139 if (group.containsMyRank())
140 CPPUNIT_ASSERT_EQUAL (group.myRank(), rank);
142 if (group2.containsMyRank())
144 int trank=group_fuse->translateRank(&group2,0);
146 CPPUNIT_ASSERT_EQUAL(trank,0);
148 CPPUNIT_ASSERT_EQUAL(trank,1);