add overwrite string test

Author: scivision

src/write.f90

@@ -106,7 +106,7 @@
 
   call h5tset_size_f(type_id, int(charlen, SIZE_T), ierr)
   if(ierr /= 0) error stop "h5fortran:h5tset_size:character: " // dname // " in " // self%filename
-  print *, "TRACE: Write char: length:", int(charlen, SIZE_T)
+
   dtype_id = type_id
 else
   type_id = dtype

test/CMakeLists.txt

@@ -14,18 +14,14 @@ EXECUTABLE ${CMAKE_CTEST_COMMAND}
 )
 endif()
 
-# --- test utils
-
-add_library(test_utils OBJECT utils.f90)
-
 # --- unit tests
 
 set(test_names attributes cast deflate_write deflate_props deflate_read destructor exist groups layout shape string)
 
 foreach(t IN LISTS test_names)
 
   add_executable(test_${t} test_${t}.f90)
-  target_link_libraries(test_${t} PRIVATE h5mpi test_utils HDF5::HDF5 MPI::MPI_Fortran)
+  target_link_libraries(test_${t} PRIVATE h5mpi HDF5::HDF5 MPI::MPI_Fortran)
 
   add_test(NAME ${t}
   COMMAND ${MPIEXEC_EXECUTABLE} ${MPIEXEC_NUMPROC_FLAG} ${Nmpi} $<TARGET_FILE:test_${t}>

test/test_string.f90

@@ -20,15 +20,14 @@ program test_string
 call mpi_comm_rank(MPI_COMM_WORLD, mpi_id, ierr)
 if (ierr /= 0) error stop "mpi_comm_rank"
 
-if(mpi_id == 0)call test_write(fn)
+call test_write(fn)
 if(mpi_id == 0) print *, "OK: HDF5 string write"
 
 call test_read(fn)
 if(mpi_id == 0) print *,'OK: HDF5 string read'
 
-! call test_overwrite(fn)
-! if(mpi_id == 0) print *, "OK: string overwrite"
-!! TODO: overwrite needs to not write_scalar with h5lt
+call test_overwrite(fn)
+if(mpi_id == 0) print *, "OK: string overwrite"
 
 call mpi_finalize(ierr)
 if (ierr /= 0) error stop "mpi_finalize"
@@ -44,7 +43,7 @@ subroutine test_write(fn)
 
 type(hdf5_file) :: h
 
-call h%open(fn, action='w', mpi=.false.)
+call h%open(fn, action='w', mpi=.true.)
 
 call h%write('/little', '42')
 call h%write('/MySentence', 'this is a little sentence.')