Commit 281dba41 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Make white box-test narrower.

parent cb575d73
......@@ -252,6 +252,8 @@ test_misc_f_SOURCES = test_misc_f.f90
test_misc_f_LDADD = $(XT_FC_LDADD)
test_mpi_generate_datatype_SOURCES = test_mpi_generate_datatype.c tests.h
test_mpi_smartdedup_SOURCES = test_mpi_smartdedup.c tests.h
test_mpi_smartdedup_LDADD = libtestutil.la ../src/xt_mpi.lo \
../src/core/xmalloc.lo ../src/core/core.lo $(MPI_C_LIB)
AM_CFLAGS = -I../inst_headers $(MPI_C_INCLUDE)
AM_FCFLAGS = $(FC_MOD_FLAG)../inst_headers/f90 $(MPI_FC_MOD)
......
......@@ -53,11 +53,7 @@
#include "tests.h"
extern MPI_Comm
xt_mpi_comm_smart_dup(MPI_Comm comm, int *tag_offset);
extern void
xt_mpi_comm_smart_dedup(MPI_Comm *comm, int tag_offset);
#include "../src/xt_mpi_internal.h"
static void comms_construct_destruct(MPI_Comm comm_world);
......@@ -67,11 +63,11 @@ int main(void)
// init mpi
xt_mpi_call(MPI_Init(NULL, NULL), MPI_COMM_WORLD);
xt_initialize(MPI_COMM_WORLD);
xt_mpi_init();
comms_construct_destruct(MPI_COMM_WORLD);
xt_mpi_comm_mark_exclusive(MPI_COMM_WORLD);
comms_construct_destruct(MPI_COMM_WORLD);
xt_finalize();
xt_mpi_finalize();
xt_mpi_call(MPI_Finalize(), MPI_COMM_WORLD);
return TEST_EXIT_CODE;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment