TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2025-01-03 18:16:22 +01:00
Code Issues Projects Releases Wiki Activity

Merge pull request #60 from TREX-CoE/exit-code-for-open

Browse Source 
Return error code from trexio_open
This commit is contained in:
Evgeny Posenitskiy 2021-09-24 12:45:37 +02:00 committed by GitHub
commit 1ba0876d81
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
21 changed files with 197 additions and 81 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
python/test/test_api.py
View File

@ -49,7 +49,7 @@ nucleus_num = 12
try: try:
trexio.write_nucleus_num(test_file, -100) trexio.write_nucleus_num(test_file, -100)
except trexio.Error: except trexio.Error:
print("Writing negative nucleus_num: checked.") print("Raise error for an attempt to write negative nucleus_num: checked.")
# write nucleus_num in the file # write nucleus_num in the file
try: try:
@ -60,7 +60,7 @@ except:
try: try:
trexio.write_nucleus_num(test_file, nucleus_num*2) trexio.write_nucleus_num(test_file, nucleus_num*2)
except trexio.Error: except trexio.Error:
print("Attempt to overwrite nucleus_num: checked.") print("Raise error for an attempt to overwrite nucleus_num: checked.")
# initialize charge arrays as a list and convert it to numpy array # initialize charge arrays as a list and convert it to numpy array
charges = [6., 6., 6., 6., 6., 6., 1., 1., 1., 1., 1., 1.] charges = [6., 6., 6., 6., 6., 6., 1., 1., 1., 1., 1., 1.]
@ -199,7 +199,7 @@ assert rpoint_group==point_group
if trexio.has_mo_num(test_file2): if trexio.has_mo_num(test_file2):
rmo_num = trexio.read_mo_num(test_file2) rmo_num = trexio.read_mo_num(test_file2)
else: else:
print("Not reading the non-existing variable mo_num.") print("Pass on reading the non-existing variable mo_num: checked")
# close TREXIO file # close TREXIO file
#trexio.close(test_file2) #trexio.close(test_file2)
@ -215,3 +215,16 @@ except:
#==========================================================# #==========================================================#
#==========================================================#
#======= OPEN NON-EXISTING FILE TO TEST TREXIO.OPEN =======#
#==========================================================#
try:
void_file = trexio.File('non_existing.file', 'r', TEST_TREXIO_BACKEND)
except trexio.Error as e:
if e.error == trexio.TREXIO_OPEN_ERROR:
print("Opening non-existing file returns TREXIO_OPEN_ERROR: checked")
else:
raise ValueError("[DEV]: error handling of trexio_open function has changed; check the consistency")
#==========================================================#

1
src/pytrexio.i
View File

@ -37,6 +37,7 @@
%apply int *OUTPUT { int64_t* const num}; %apply int *OUTPUT { int64_t* const num};
%apply float *OUTPUT { float* const num}; %apply float *OUTPUT { float* const num};
%apply float *OUTPUT { double* const num}; %apply float *OUTPUT { double* const num};
%apply int *OUTPUT { trexio_exit_code* const rc_open};
/* Does not work for arrays (SIGSEGV) */ /* Does not work for arrays (SIGSEGV) */

57
src/templates_front/templator_front.org
View File

@ -703,23 +703,31 @@ struct trexio_back_end_s {
*** C *** C
#+begin_src c :tangle prefix_front.h :exports none #+begin_src c :tangle prefix_front.h :exports none
trexio_t* trexio_open(const char* file_name, const char mode, const back_end_t back_end); trexio_t* trexio_open(const char* file_name, const char mode,
const back_end_t back_end, trexio_exit_code* const rc_open);
#+end_src #+end_src
#+begin_src c :tangle prefix_front.c #+begin_src c :tangle prefix_front.c
trexio_t* trexio_t*
trexio_open(const char* file_name, const char mode, trexio_open(const char* file_name, const char mode,
const back_end_t back_end) const back_end_t back_end, trexio_exit_code* const rc_open)
{ {
if (file_name == NULL) return NULL; if (file_name == NULL || file_name[0] == '\0') {
if (file_name[0] == '\0') return NULL; if (rc_open != NULL) *rc_open = TREXIO_INVALID_ARG_1;
return NULL;
}
/* Check overflow in file_name */ /* Check overflow in file_name */
if (back_end < 0) return NULL; if (back_end < 0 || back_end >= TREXIO_INVALID_BACK_END) {
if (back_end >= TREXIO_INVALID_BACK_END) return NULL; if (rc_open != NULL) *rc_open = TREXIO_INVALID_ARG_3;
return NULL;
}
if (mode != 'r' && mode != 'w') return NULL; if (mode != 'r' && mode != 'w') {
if (rc_open != NULL) *rc_open = TREXIO_INVALID_ARG_2;
return NULL;
}
trexio_t* result = NULL; trexio_t* result = NULL;
void* result_tmp = NULL; void* result_tmp = NULL;
@ -744,17 +752,18 @@ trexio_open(const char* file_name, const char mode,
assert (result != NULL); /* TODO: Error handling */ assert (result != NULL); /* TODO: Error handling */
/* Data for the parent type */ /* Data for the parent type */
strncpy(result->file_name, file_name, TREXIO_MAX_FILENAME_LENGTH); strncpy(result->file_name, file_name, TREXIO_MAX_FILENAME_LENGTH);
if (result->file_name[TREXIO_MAX_FILENAME_LENGTH-1] != '\0') { if (result->file_name[TREXIO_MAX_FILENAME_LENGTH-1] != '\0') {
if (rc_open != NULL) *rc_open = TREXIO_INVALID_ARG_1;
free(result); free(result);
return NULL; return NULL;
} }
strncpy(result->version, PACKAGE_VERSION, 16); strncpy(result->version, PACKAGE_VERSION, 16);
if (result->version[15] != '\0') { if (result->version[15] != '\0') {
if (rc_open != NULL) *rc_open = TREXIO_FAILURE;
free(result); free(result);
return NULL; return NULL;
} }
@ -792,12 +801,14 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
if (rc_open != NULL) *rc_open = TREXIO_OPEN_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
rc = trexio_has_metadata_package_version(result); rc = trexio_has_metadata_package_version(result);
if (rc == TREXIO_FAILURE) { if (rc == TREXIO_FAILURE) {
if (rc_open != NULL) *rc_open = TREXIO_OPEN_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
@ -821,6 +832,7 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
if (rc_open != NULL) *rc_open = TREXIO_OPEN_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
@ -847,10 +859,12 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
if (rc_open != NULL) *rc_open = TREXIO_LOCK_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
if (rc_open != NULL) *rc_open = TREXIO_SUCCESS;
return result; return result;
} }
#+end_src #+end_src
@ -859,12 +873,13 @@ trexio_open(const char* file_name, const char mode,
#+begin_src f90 :tangle prefix_fortran.f90 #+begin_src f90 :tangle prefix_fortran.f90
interface interface
integer(8) function trexio_open_c (filename, mode, backend) bind(C, name="trexio_open") integer(8) function trexio_open_c (filename, mode, backend, rc_open) bind(C, name="trexio_open")
use, intrinsic :: iso_c_binding use, intrinsic :: iso_c_binding
import import
character(kind=c_char), dimension(*) :: filename character(kind=c_char), dimension(*) :: filename
character, intent(in), value :: mode character, intent(in), value :: mode
integer(trexio_backend), intent(in), value :: backend integer(trexio_backend), intent(in), value :: backend
integer(trexio_exit_code), intent(out) :: rc_open
end function trexio_open_c end function trexio_open_c
end interface end interface
#+end_src #+end_src
@ -894,11 +909,22 @@ def open(file_name: str, mode: str, back_end: int):
>>> trex_file = tr_open("example.h5", "w", TREXIO_HDF5) >>> trex_file = tr_open("example.h5", "w", TREXIO_HDF5)
""" """
# The new trexio_open function is capable of returning error code which SWIG can append to the output trexio_s file struct
# However, if trexio_s* == NULL, then SWIG returns only an error code rc_open instead of a list [trexio_s, rc_open]
# Thus, the following try/except sequence is needed
try: try:
trexio_file = pytr.trexio_open(file_name, mode, back_end) return_obj = pytr.trexio_open(file_name, mode, back_end)
assert return_obj is not None
if isinstance(return_obj, int):
raise Error(return_obj)
else:
rc_open = return_obj[1]
# this is a sanity check in case the code evolves and SWIG issue is patched
if rc_open == TREXIO_SUCCESS:
trexio_file = return_obj[0]
assert trexio_file is not None assert trexio_file is not None
except AssertionError: except AssertionError:
raise Exception(f"Could not open TREXIO file {file_name} using trexio_open function. Please make sure that there are no typos in the file name.") raise Exception(f"Could not open TREXIO file {file_name} using trexio_open function. The return value is None (NULL pointer).")
return trexio_file return trexio_file
#+end_src #+end_src
@ -3056,18 +3082,19 @@ def has_$group_str$(trexio_file) -> bool:
#+begin_src f90 :tangle helper_fortran.f90 #+begin_src f90 :tangle helper_fortran.f90
contains contains
integer(8) function trexio_open (filename, mode, backend) integer(8) function trexio_open (filename, mode, backend, rc_open)
use, intrinsic :: iso_c_binding, only : c_null_char use, intrinsic :: iso_c_binding, only : c_null_char
implicit none implicit none
character(len=*), intent(in) :: filename character(len=*), intent(in) :: filename
character, intent(in), value :: mode character, intent(in), value :: mode
integer(trexio_backend), intent(in), value :: backend integer(trexio_backend), intent(in), value :: backend
integer(trexio_exit_code), intent(out) :: rc_open
character(len=len_trim(filename)+1) :: filename_c character(len=len_trim(filename)+1) :: filename_c
integer :: rc integer(trexio_exit_code) :: rc
filename_c = trim(filename) // c_null_char filename_c = trim(filename) // c_null_char
trexio_open = trexio_open_c(filename_c, mode, backend) trexio_open = trexio_open_c(filename_c, mode, backend, rc_open)
if (trexio_open == 0_8) then if (trexio_open == 0_8 .or. rc_open /= TREXIO_SUCCESS) then
return return
endif endif
rc = trexio_set_one_based(trexio_open) rc = trexio_set_one_based(trexio_open)

10
tests/io_all.c
View File

@ -72,7 +72,7 @@ int test_write(const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that certain data does not exist in the file // check that certain data does not exist in the file
@ -97,7 +97,7 @@ int test_write(const char* file_name, const back_end_t backend) {
assert (rc == TREXIO_SUCCESS); assert (rc == TREXIO_SUCCESS);
// reopen file in 'write' mode // reopen file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check if the written data exists in the file // check if the written data exists in the file
@ -125,7 +125,7 @@ int test_write(const char* file_name, const back_end_t backend) {
assert (rc == TREXIO_SUCCESS); assert (rc == TREXIO_SUCCESS);
// open file again in 'write' mode // open file again in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write some missing blocks (e.g. if forgot last time) // write some missing blocks (e.g. if forgot last time)
@ -156,7 +156,7 @@ int test_read(const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open existing file on 'read' mode [created by test_write] // open existing file on 'read' mode [created by test_write]
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read nucleus_num // read nucleus_num
@ -211,7 +211,7 @@ int test_read(const char* file_name, const back_end_t backend) {
const char* file_name2 = "test_nonexisting"; const char* file_name2 = "test_nonexisting";
trexio_t* file2 = NULL; trexio_t* file2 = NULL;
file2 = trexio_open(file_name2, 'r', backend); file2 = trexio_open(file_name2, 'r', backend, &rc);
assert (file2 == NULL); assert (file2 == NULL);
/*================= END OF TEST =====================*/ /*================= END OF TEST =====================*/

6
tests/io_dset_float_hdf5.c
View File

@ -34,7 +34,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -65,7 +65,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -100,7 +100,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_dset_float_text.c
View File

@ -34,7 +34,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -65,7 +65,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -100,7 +100,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_dset_int_hdf5.c
View File

@ -21,7 +21,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -52,7 +52,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -87,7 +87,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_dset_int_text.c
View File

@ -21,7 +21,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -52,7 +52,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -87,7 +87,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_dset_str_hdf5.c
View File

@ -33,7 +33,7 @@ static int test_write_dset_str (const char* file_name, const back_end_t backend)
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -65,7 +65,7 @@ static int test_has_dset_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset of strings exists // check that the previously written dataset of strings exists
@ -100,7 +100,7 @@ static int test_read_dset_str (const char* file_name, const back_end_t backend)
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_dset_str_text.c
View File

@ -33,7 +33,7 @@ static int test_write_dset_str (const char* file_name, const back_end_t backend)
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -65,7 +65,7 @@ static int test_has_dset_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset of strings exists // check that the previously written dataset of strings exists
@ -100,7 +100,7 @@ static int test_read_dset_str (const char* file_name, const back_end_t backend)
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_num_hdf5.c
View File

@ -20,7 +20,7 @@ static int test_write_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -55,7 +55,7 @@ static int test_has_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written num variable exists // check that the previously written num variable exists
@ -90,7 +90,7 @@ static int test_read_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_num_text.c
View File

@ -20,7 +20,7 @@ static int test_write_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -55,7 +55,7 @@ static int test_has_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written num variable exists // check that the previously written num variable exists
@ -90,7 +90,7 @@ static int test_read_num (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_safe_dset_float_hdf5.c
View File

@ -35,7 +35,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -75,7 +75,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -106,7 +106,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_safe_dset_float_text.c
View File

@ -35,7 +35,7 @@ static int test_write_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write numerical attribute in an empty file // write numerical attribute in an empty file
@ -75,7 +75,7 @@ static int test_has_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written dataset exists // check that the previously written dataset exists
@ -106,7 +106,7 @@ static int test_read_dset (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read numerical attribute from the file // read numerical attribute from the file

6
tests/io_str_hdf5.c
View File

@ -21,7 +21,7 @@ static int test_write_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write string attribute in an empty file // write string attribute in an empty file
@ -49,7 +49,7 @@ static int test_has_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written string attribute exists // check that the previously written string attribute exists
@ -83,7 +83,7 @@ static int test_read_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read string attribute from the file // read string attribute from the file

6
tests/io_str_text.c
View File

@ -21,7 +21,7 @@ static int test_write_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write string attribute in an empty file // write string attribute in an empty file
@ -49,7 +49,7 @@ static int test_has_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file // open file
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written string attribute exists // check that the previously written string attribute exists
@ -83,7 +83,7 @@ static int test_read_str (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open file in 'read' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
// read string attribute from the file // read string attribute from the file

36
tests/open_hdf5.c
View File

@ -19,8 +19,9 @@ static int test_open_w (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
assert (rc == TREXIO_SUCCESS);
// close current session // close current session
rc = trexio_close(file); rc = trexio_close(file);
@ -42,8 +43,9 @@ static int test_open_r (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
assert (rc == TREXIO_SUCCESS);
// close current session // close current session
rc = trexio_close(file); rc = trexio_close(file);
@ -55,18 +57,38 @@ static int test_open_r (const char* file_name, const back_end_t backend) {
} }
static int test_open_void (const char* file_name, const back_end_t backend) { static int test_open_errors (const back_end_t backend) {
/* Try to open the non-existing TREXIO file in 'read' mode */ /* Try to call trexio_open with bad arguments */
trexio_t* file = NULL; trexio_t* file = NULL;
trexio_exit_code rc; trexio_exit_code rc;
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open non-existing file in 'r' (read) mode, should return TREXIO_OPEN_ERROR
file = trexio_open(file_name, 'r', backend); file = trexio_open(TREXIO_VOID, 'r', backend, &rc);
assert (file == NULL); assert (file == NULL);
assert (rc == TREXIO_OPEN_ERROR);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open file with empty file name, should return TREXIO_INVALID_ARG_1
file = trexio_open("", 'w', backend, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_1);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open existing file in non-supported I/O mode, should return TREXIO_INVALID_ARG_2
file = trexio_open(TREXIO_FILE, 'k', backend, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_2);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open existing file with non-supported back end, should return TREXIO_INVALID_ARG_3
file = trexio_open(TREXIO_VOID, 'w', 666, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_3);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
/*================= END OF TEST ==================*/ /*================= END OF TEST ==================*/
@ -84,7 +106,7 @@ int main(void) {
test_open_w (TREXIO_FILE, TEST_BACKEND); test_open_w (TREXIO_FILE, TEST_BACKEND);
test_open_r (TREXIO_FILE, TEST_BACKEND); test_open_r (TREXIO_FILE, TEST_BACKEND);
test_open_void (TREXIO_VOID, TEST_BACKEND); test_open_errors(TEST_BACKEND);
rc = system(RM_COMMAND); rc = system(RM_COMMAND);
assert (rc == 0); assert (rc == 0);

36
tests/open_text.c
View File

@ -19,8 +19,9 @@ static int test_open_w (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
assert (rc == TREXIO_SUCCESS);
// close current session // close current session
rc = trexio_close(file); rc = trexio_close(file);
@ -42,8 +43,9 @@ static int test_open_r (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'r', backend); file = trexio_open(file_name, 'r', backend, &rc);
assert (file != NULL); assert (file != NULL);
assert (rc == TREXIO_SUCCESS);
// close current session // close current session
rc = trexio_close(file); rc = trexio_close(file);
@ -55,18 +57,38 @@ static int test_open_r (const char* file_name, const back_end_t backend) {
} }
static int test_open_void (const char* file_name, const back_end_t backend) { static int test_open_errors (const back_end_t backend) {
/* Try to open the non-existing TREXIO file in 'read' mode */ /* Try to call trexio_open with bad arguments */
trexio_t* file = NULL; trexio_t* file = NULL;
trexio_exit_code rc; trexio_exit_code rc;
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'read' mode // open non-existing file in 'r' (read) mode, should return TREXIO_OPEN_ERROR
file = trexio_open(file_name, 'r', backend); file = trexio_open(TREXIO_VOID, 'r', backend, &rc);
assert (file == NULL); assert (file == NULL);
assert (rc == TREXIO_OPEN_ERROR);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open file with empty file name, should return TREXIO_INVALID_ARG_1
file = trexio_open("", 'w', backend, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_1);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open existing file in non-supported I/O mode, should return TREXIO_INVALID_ARG_2
file = trexio_open(TREXIO_FILE, 'k', backend, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_2);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
// open existing file with non-supported back end, should return TREXIO_INVALID_ARG_3
file = trexio_open(TREXIO_VOID, 'w', 666, &rc);
assert (file == NULL);
assert (rc == TREXIO_INVALID_ARG_3);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
/*================= END OF TEST ==================*/ /*================= END OF TEST ==================*/
@ -84,7 +106,7 @@ int main(void) {
test_open_w (TREXIO_FILE, TEST_BACKEND); test_open_w (TREXIO_FILE, TEST_BACKEND);
test_open_r (TREXIO_FILE, TEST_BACKEND); test_open_r (TREXIO_FILE, TEST_BACKEND);
test_open_void (TREXIO_VOID, TEST_BACKEND); test_open_errors(TEST_BACKEND);
rc = system(RM_COMMAND); rc = system(RM_COMMAND);
assert (rc == 0); assert (rc == 0);

4
tests/overwrite_all_hdf5.c
View File

@ -47,7 +47,7 @@ static int test_write (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write the data // write the data
@ -95,7 +95,7 @@ static int test_overwrite (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written data cannot be overwritten // check that the previously written data cannot be overwritten

4
tests/overwrite_all_text.c
View File

@ -47,7 +47,7 @@ static int test_write (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// write the data // write the data
@ -95,7 +95,7 @@ static int test_overwrite (const char* file_name, const back_end_t backend) {
/*================= START OF TEST ==================*/ /*================= START OF TEST ==================*/
// open file in 'write' mode // open file in 'write' mode
file = trexio_open(file_name, 'w', backend); file = trexio_open(file_name, 'w', backend, &rc);
assert (file != NULL); assert (file != NULL);
// check that the previously written data cannot be overwritten // check that the previously written data cannot be overwritten

37
tests/test_f.f90
View File

@ -9,6 +9,8 @@ program test_trexio
call test_read('test_write_f.dir', TREXIO_TEXT) call test_read('test_write_f.dir', TREXIO_TEXT)
call system('rm -rf test_write_f.dir') call system('rm -rf test_write_f.dir')
call test_read_void('test_write_f.dir', TREXIO_TEXT)
call system('rm -rf test_write_f.h5') call system('rm -rf test_write_f.h5')
print *, 'call test_write(''test_write_f.h5'', TREXIO_HDF5)' print *, 'call test_write(''test_write_f.h5'', TREXIO_HDF5)'
call test_write('test_write_f.h5', TREXIO_HDF5) call test_write('test_write_f.h5', TREXIO_HDF5)
@ -16,6 +18,8 @@ program test_trexio
call test_read('test_write_f.h5', TREXIO_HDF5) call test_read('test_write_f.h5', TREXIO_HDF5)
call system('rm -rf test_write_f.h5') call system('rm -rf test_write_f.h5')
call test_read_void('test_write_f.h5', TREXIO_HDF5)
end program test_trexio end program test_trexio
subroutine test_write(file_name, back_end) subroutine test_write(file_name, back_end)
@ -68,7 +72,8 @@ subroutine test_write(file_name, back_end)
! ================= START OF TEST ===================== ! ! ================= START OF TEST ===================== !
trex_file = trexio_open(file_name, 'w', back_end) trex_file = trexio_open(file_name, 'w', back_end, rc)
call trexio_assert(rc, TREXIO_SUCCESS)
rc = trexio_has_nucleus_num(trex_file) rc = trexio_has_nucleus_num(trex_file)
call trexio_assert(rc, TREXIO_HAS_NOT, 'SUCCESS HAS NOT 1') call trexio_assert(rc, TREXIO_HAS_NOT, 'SUCCESS HAS NOT 1')
@ -144,8 +149,8 @@ subroutine test_read(file_name, back_end)
! ================= START OF TEST ===================== ! ! ================= START OF TEST ===================== !
trex_file = trexio_open(file_name, 'r', back_end) trex_file = trexio_open(file_name, 'r', back_end, rc)
call trexio_assert(rc, TREXIO_SUCCESS)
rc = trexio_read_nucleus_num(trex_file, num_read) rc = trexio_read_nucleus_num(trex_file, num_read)
call trexio_assert(rc, TREXIO_SUCCESS) call trexio_assert(rc, TREXIO_SUCCESS)
@ -214,3 +219,29 @@ subroutine test_read(file_name, back_end)
end subroutine test_read end subroutine test_read
subroutine test_read_void(file_name, back_end)
! ============ Test read of non-existing file =============== !
use trexio
implicit none
character*(*), intent(in) :: file_name
integer, intent(in) :: back_end
integer(8) :: trex_file
integer :: rc = 1
character(128) :: str
! ================= START OF TEST ===================== !
trex_file = trexio_open(file_name, 'r', back_end, rc)
call trexio_assert(rc, TREXIO_OPEN_ERROR)
call trexio_string_of_error(rc, str)
print *, trim(str)
! ================= END OF TEST ===================== !
end subroutine test_read_void