TREX/trexio
1
0
Fork 0
mirror of https://github.com/TREX-CoE/trexio.git synced 2024-11-03 20:54:07 +01:00
Code Issues Projects Releases Wiki Activity

return error code from trexio_open [C, Fortran]

Browse Source
This commit is contained in:
q-posev 2021-09-22 14:50:22 +02:00
parent b7dc5fc49f
commit 9457a826d2
19 changed files with 122 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
src/templates_front/templator_front.org
View File

@ -703,23 +703,33 @@ 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; *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; *rc_open = TREXIO_INVALID_ARG_3;
return NULL;
}
if (mode != 'r' && mode != 'w') return NULL; if (mode != 'r' && mode != 'w') {
*rc_open = TREXIO_INVALID_ARG_2;
return NULL;
}
if (rc_open == NULL) return NULL;
trexio_t* result = NULL; trexio_t* result = NULL;
void* result_tmp = NULL; void* result_tmp = NULL;
@ -744,17 +754,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') {
*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') {
*rc_open = TREXIO_FAILURE;
free(result); free(result);
return NULL; return NULL;
} }
@ -792,12 +803,14 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
*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) {
*rc_open = TREXIO_OPEN_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
@ -821,6 +834,7 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
*rc_open = TREXIO_OPEN_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
@ -847,10 +861,12 @@ trexio_open(const char* file_name, const char mode,
} }
if (rc != TREXIO_SUCCESS) { if (rc != TREXIO_SUCCESS) {
*rc_open = TREXIO_LOCK_ERROR;
free(result); free(result);
return NULL; return NULL;
} }
*rc_open = TREXIO_SUCCESS;
return result; return result;
} }
#+end_src #+end_src
@ -859,12 +875,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
@ -3056,18 +3073,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

9
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);
@ -65,8 +67,9 @@ static int test_open_void (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);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
/*================= END OF TEST ==================*/ /*================= END OF TEST ==================*/

9
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);
@ -65,8 +67,9 @@ static int test_open_void (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);
fprintf(stderr, "%s \n", trexio_string_of_error(rc));
/*================= END OF TEST ==================*/ /*================= END OF TEST ==================*/

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