ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

preparations for unit tests of the Fortran module

Browse Source
This commit is contained in:
Axel Kohlmeyer
2023-01-29 23:55:11 -05:00
parent f653ad7990
commit 2a18c76361
4 changed files with 244 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
unittest/fortran/wrap_gather_scatter.cpp
View File

@ -1,9 +1,10 @@
// unit tests for gathering and scattering data from a LAMMPS instance through
// the Fortran wrapper
#include "atom.h"
#include "input.h"
#include "lammps.h"
#include "library.h"
#include "atom.h"
#include <cstdint>
#include <cstdlib>
#include <mpi.h>
@ -11,7 +12,11 @@
#include "gtest/gtest.h"
#define STRINGIFY(val) XSTR(val)
#define XSTR(val) #val
// prototypes for Fortran reverse wrapper functions
extern "C" {
void *f_lammps_with_args();
void f_lammps_close();
@ -45,7 +50,8 @@ protected:
void SetUp() override
{
::testing::internal::CaptureStdout();
lmp = (LAMMPS_NS::LAMMPS *)f_lammps_with_args();
lmp = (LAMMPS_NS::LAMMPS *)f_lammps_with_args();
lmp->input->one("variable index input_dir " STRINGIFY(TEST_INPUT_FOLDER));
std::string output = ::testing::internal::GetCapturedStdout();
EXPECT_STREQ(output.substr(0, 8).c_str(), "LAMMPS (");
}