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

Added unit test for has_error

Browse Source
This commit is contained in:
Karl Hammond
2022-09-26 09:21:41 -05:00
parent 28d84b4fcb
commit 1072a5bda2
3 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
fortran/lammps.f90
View File

@ -100,6 +100,7 @@ MODULE LIBLAMMPS
!
PROCEDURE :: version => lmp_version
PROCEDURE :: is_running => lmp_is_running
PROCEDURE :: has_error => lmp_has_error
END TYPE lammps
INTERFACE lammps

14
unittest/fortran/test_fortran_properties.f90
View File

@ -50,3 +50,17 @@ FUNCTION f_lammps_extract_setting (Cstr) BIND(C)
f_lammps_extract_setting = lmp%extract_setting(Fstr)
deallocate (Fstr)
END FUNCTION f_lammps_extract_setting
FUNCTION f_lammps_has_error () BIND(C)
USE, INTRINSIC :: ISO_C_BINDING, ONLY : C_int
USE keepcmds, ONLY : lmp
USE LIBLAMMPS
IMPLICIT NONE
INTEGER(C_int) :: f_lammps_has_error
IF ( lmp%has_error() ) THEN
f_lammps_has_error = 1_C_int
ELSE
f_lammps_has_error = 0_C_int
END IF
END FUNCTION f_lammps_has_error

6
unittest/fortran/wrap_properties.cpp
View File

@ -16,6 +16,7 @@ int f_lammps_version();
void f_lammps_memory_usage(double*);
int f_lammps_get_mpi_comm();
int f_lammps_extract_setting(const char*);
int f_lammps_has_error();
}
class LAMMPS_properties : public ::testing::Test {
@ -107,3 +108,8 @@ TEST_F(LAMMPS_properties, extract_setting)
EXPECT_EQ(f_lammps_extract_setting("UNKNOWN"), -1);
};
TEST_F(LAMMPS_properties, has_error)
{
EXPECT_EQ(f_lammps_has_error(), 0);
};