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

Merge branch 'develop' into always-exceptions

Browse Source
This commit is contained in:
Axel Kohlmeyer
2023-04-25 09:08:21 -04:00
parent 5f4a80d41f 4aee151b0e
commit e1df51969d
195 changed files with 5989 additions and 7483 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
unittest/fortran/wrap_properties.cpp
View File

@ -1,8 +1,8 @@
// unit tests for getting LAMMPS properties through the Fortran wrapper
#include "info.h"
#include "lammps.h"
#include "library.h"
#include "info.h"
#include <cstdint>
#include <string>
@ -21,8 +21,8 @@ int f_lammps_has_error();
int f_lammps_get_last_error_message(char *, int);
int f_lammps_get_image_flags_int(int, int, int);
int64_t f_lammps_get_image_flags_bigint(int, int, int);
void f_lammps_decode_image_flags(int, int*);
void f_lammps_decode_image_flags_bigbig(int64_t, int*);
void f_lammps_decode_image_flags(int, int *);
void f_lammps_decode_image_flags_bigbig(int64_t, int *);
}
namespace LAMMPS_NS {
@ -150,18 +150,18 @@ TEST_F(LAMMPS_properties, has_error)
TEST_F(LAMMPS_properties, get_image_flags)
{
#ifdef LAMMPS_BIGBIG
int64_t image = f_lammps_get_image_flags_bigint(0,0,0);
int64_t Cimage = lammps_encode_image_flags(0,0,0);
int64_t image = f_lammps_get_image_flags_bigint(0, 0, 0);
int64_t Cimage = lammps_encode_image_flags(0, 0, 0);
EXPECT_EQ(image, Cimage);
image = f_lammps_get_image_flags_bigint(1,-1,1);
Cimage = lammps_encode_image_flags(1,-1,1);
image = f_lammps_get_image_flags_bigint(1, -1, 1);
Cimage = lammps_encode_image_flags(1, -1, 1);
EXPECT_EQ(image, Cimage);
#else
int image = f_lammps_get_image_flags_int(0,0,0);
int Cimage = lammps_encode_image_flags(0,0,0);
int image = f_lammps_get_image_flags_int(0, 0, 0);
int Cimage = lammps_encode_image_flags(0, 0, 0);
EXPECT_EQ(image, Cimage);
image = f_lammps_get_image_flags_int(1,-1,1);
Cimage = lammps_encode_image_flags(1,-1,1);
image = f_lammps_get_image_flags_int(1, -1, 1);
Cimage = lammps_encode_image_flags(1, -1, 1);
EXPECT_EQ(image, Cimage);
#endif
}
@ -170,15 +170,14 @@ TEST_F(LAMMPS_properties, decode_image_flags)
{
int flag[3];
#ifdef LAMMPS_BIGBIG
int64_t image = f_lammps_get_image_flags_bigint(1,3,-2);
int64_t image = f_lammps_get_image_flags_bigint(1, 3, -2);
f_lammps_decode_image_flags_bigbig(image, flag);
#else
int image = f_lammps_get_image_flags_int(1,3,-2);
int image = f_lammps_get_image_flags_int(1, 3, -2);
f_lammps_decode_image_flags(image, flag);
#endif
EXPECT_EQ(flag[0], 1);
EXPECT_EQ(flag[1], 3);
EXPECT_EQ(flag[2], -2);
};
} // namespace LAMMPS_NS