Commit 3f4648ef authored by Godoy, William F's avatar Godoy, William F
Browse files

Added tests 

To do:
string value and array attribute
parent 74e21107

testing/adios2/bindings/fortran/CMakeLists.txt

+6 −6
Original line number Diff line number Diff line
@@ -27,10 +27,10 @@ if(ADIOS2_HAVE_MPI) 
  target_sources(TestRemove_f PRIVATE TestRemove.f90)

  target_link_libraries(TestRemove_f MPI::MPI_Fortran)

  

  add_executable(TestBPWriteAttributes_f $<TARGET_OBJECTS:SmallTestData_f>)

  target_link_libraries(TestBPWriteAttributes_f adios2_f)

  target_sources(TestBPWriteAttributes_f PRIVATE TestBPWriteAttributes.f90)

  target_link_libraries(TestBPWriteAttributes_f MPI::MPI_Fortran)

  add_executable(TestBPWriteReadAttributes_f $<TARGET_OBJECTS:SmallTestData_f>)

  target_link_libraries(TestBPWriteReadAttributes_f adios2_f)

  target_sources(TestBPWriteReadAttributes_f PRIVATE TestBPWriteReadAttributes.f90)

  target_link_libraries(TestBPWriteReadAttributes_f MPI::MPI_Fortran)

  

  add_executable(TestBPWriteVariableAttributes_f $<TARGET_OBJECTS:SmallTestData_f>)

  target_link_libraries(TestBPWriteVariableAttributes_f adios2_f)
@@ -92,8 +92,8 @@ if(ADIOS2_HAVE_MPI) 
    ${MPIEXEC} ${MPIEXEC_NUMPROC_FLAG} ${MPIEXEC_MAX_NUMPROCS}

  )

  

  add_test(NAME BPWriteAttributes_f

    COMMAND ${test_parameters} $<TARGET_FILE:TestBPWriteAttributes_f>

  add_test(NAME BPWriteReadAttributes_f

    COMMAND ${test_parameters} $<TARGET_FILE:TestBPWriteReadAttributes_f>

  )

  

  add_test(NAME BPWriteVariableAttributes_f

testing/adios2/bindings/fortran/TestBPWriteAttributes.f90→testing/adios2/bindings/fortran/TestBPWriteReadAttributes.f90

+225 −0
Original line number Diff line number Diff line
@@ -7,12 +7,22 @@ program TestBPWriteAttributes 
    type(adios2_adios) :: adios

    type(adios2_io) :: ioWrite, ioRead

    type(adios2_engine) :: bpWriter, bpReader

    type(adios2_attribute), dimension(14) :: attributes

    type(adios2_attribute), dimension(14) :: attributes, attributes_in



    integer :: ierr, i

    integer(kind=1):: i8_value

    integer(kind=2):: i16_value

    integer(kind=4):: i32_value

    integer(kind=8):: i64_value

    real :: r32_value

    real(kind=8):: r64_value





    integer(kind=1), dimension(3):: i8_array

    integer(kind=2), dimension(3):: i16_array

    integer(kind=4), dimension(3):: i32_array

    integer(kind=8), dimension(3):: i64_array

    real, dimension(3) :: r32_array

    real(kind=8), dimension(3):: r64_array





    ! Launch MPI
@@ -89,15 +99,117 @@ program TestBPWriteAttributes 


    call adios2_open(bpReader, ioRead, 'fattr_types.bp', adios2_mode_read, ierr)



    call adios2_inquire_attribute(attributes(3), ioRead, 'att_i16', ierr)



    if(attributes(3)%valid .eqv. .false.) stop 'attribute i16 not found'

    if(attributes(3)%type /= adios2_type_integer2) stop 'attribute i16 wrong type'

    if(attributes(3)%length /= 1) stop 'attribute i16 lenght is not 1'

    if(attributes(3)%is_value .eqv. .false.) stop 'attribute i16 must be value'

    call adios2_attribute_data( i16_value, attributes(3), ierr)

    call adios2_inquire_attribute(attributes_in(2), ioRead, 'att_i8', ierr)

    call adios2_inquire_attribute(attributes_in(3), ioRead, 'att_i16', ierr)

    call adios2_inquire_attribute(attributes_in(4), ioRead, 'att_i32', ierr)

    call adios2_inquire_attribute(attributes_in(5), ioRead, 'att_i64', ierr)

    call adios2_inquire_attribute(attributes_in(6), ioRead, 'att_r32', ierr)

    call adios2_inquire_attribute(attributes_in(7), ioRead, 'att_r64', ierr)



    if(attributes_in(2)%valid .eqv. .false.) stop 'attribute i8 not found'

    if(attributes_in(2)%type /= adios2_type_integer1) stop 'attribute i8 wrong type'

    if(attributes_in(2)%length /= 1) stop 'attribute i8 lenght is not 1'

    if(attributes_in(2)%is_value .eqv. .false.) stop 'attribute i8 must be value'

    call adios2_attribute_data( i8_value, attributes_in(2), ierr)

    if( i8_value /=  data_I8(1) ) stop 'attribute i8 data error'



    if(attributes_in(3)%valid .eqv. .false.) stop 'attribute i16 not found'

    if(attributes_in(3)%type /= adios2_type_integer2) stop 'attribute i16 wrong type'

    if(attributes_in(3)%length /= 1) stop 'attribute i16 lenght is not 1'

    if(attributes_in(3)%is_value .eqv. .false.) stop 'attribute i16 must be value'

    call adios2_attribute_data( i16_value, attributes_in(3), ierr)

    if( i16_value /=  data_I16(1) ) stop 'attribute i16 data error'



    if(attributes_in(4)%valid .eqv. .false.) stop 'attribute i32 not found'

    if(attributes_in(4)%type /= adios2_type_integer4) stop 'attribute i32 wrong type'

    if(attributes_in(4)%length /= 1) stop 'attribute i32 lenght is not 1'

    if(attributes_in(4)%is_value .eqv. .false.) stop 'attribute i32 must be value'

    call adios2_attribute_data( i32_value, attributes_in(4), ierr)

    if( i32_value /=  data_I32(1) ) stop 'attribute i32 data error'



    if(attributes_in(5)%valid .eqv. .false.) stop 'attribute i64 not found'

    if(attributes_in(5)%type /= adios2_type_integer8) stop 'attribute i64 wrong type'

    if(attributes_in(5)%length /= 1) stop 'attribute i64 lenght is not 1'

    if(attributes_in(5)%is_value .eqv. .false.) stop 'attribute i64 must be value'

    call adios2_attribute_data( i64_value, attributes_in(5), ierr)

    if( i64_value /=  data_I64(1) ) stop 'attribute i64 data error'



    if(attributes_in(6)%valid .eqv. .false.) stop 'attribute r32 not found'

    if(attributes_in(6)%type /= adios2_type_real) stop 'attribute r32 wrong type'

    if(attributes_in(6)%length /= 1) stop 'attribute r32 lenght is not 1'

    if(attributes_in(6)%is_value .eqv. .false.) stop 'attribute r32 must be value'

    call adios2_attribute_data( r32_value, attributes_in(6), ierr)

    if( r32_value /=  data_R32(1) ) stop 'attribute r32 data error'



    if(attributes_in(7)%valid .eqv. .false.) stop 'attribute r64 not found'

    if(attributes_in(7)%type /= adios2_type_dp) stop 'attribute r64 wrong type'

    if(attributes_in(7)%length /= 1) stop 'attribute r64 lenght is not 1'

    if(attributes_in(7)%is_value .eqv. .false.) stop 'attribute r64 must be value'

    call adios2_attribute_data( r64_value, attributes_in(7), ierr)

    if( r64_value /=  data_R64(1) ) stop 'attribute r64 data error'



    ! Array

    call adios2_inquire_attribute(attributes_in(9), ioRead, 'att_i8_array', ierr)

    call adios2_inquire_attribute(attributes_in(10), ioRead, 'att_i16_array', ierr)

    call adios2_inquire_attribute(attributes_in(11), ioRead, 'att_i32_array', ierr)

    call adios2_inquire_attribute(attributes_in(12), ioRead, 'att_i64_array', ierr)

    call adios2_inquire_attribute(attributes_in(13), ioRead, 'att_r32_array', ierr)

    call adios2_inquire_attribute(attributes_in(14), ioRead, 'att_r64_array', ierr)



    if(attributes_in(9)%valid .eqv. .false.) stop 'attribute i8 array not found'

    if(attributes_in(9)%type /= adios2_type_integer1) stop 'attribute i8 array wrong type'

    if(attributes_in(9)%length /= 3) stop 'attribute i8 array lenght is not 1'

    if(attributes_in(9)%is_value .eqv. .true.) stop 'attribute i8 array must be array'

    call adios2_attribute_data( i8_array, attributes_in(9), ierr)

    do i=1,3

       if( i8_array(i) /=  data_I8(i) ) stop 'attribute i8 array data error'

    end do



    if(attributes_in(10)%valid .eqv. .false.) stop 'attribute i16 array not found'

    if(attributes_in(10)%type /= adios2_type_integer2) stop 'attribute i16 array wrong type'

    if(attributes_in(10)%length /= 3) stop 'attribute i16 array lenght is not 1'

    if(attributes_in(10)%is_value .eqv. .true.) stop 'attribute i16 array must be array'

    call adios2_attribute_data( i16_array, attributes_in(10), ierr)

    do i=1,3

       if( i16_array(i) /=  data_I16(i) ) stop 'attribute i16 array data error'

    end do



    if(attributes_in(11)%valid .eqv. .false.) stop 'attribute i32 array not found'

    if(attributes_in(11)%type /= adios2_type_integer4) stop 'attribute i32 array wrong type'

    if(attributes_in(11)%length /= 3) stop 'attribute i32 array lenght is not 1'

    if(attributes_in(11)%is_value .eqv. .true.) stop 'attribute i32 array must be array'

    call adios2_attribute_data( i32_array, attributes_in(11), ierr)

    do i=1,3

       if( i32_array(i) /=  data_I32(i) ) stop 'attribute i32 array data error'

    end do



    if(attributes_in(12)%valid .eqv. .false.) stop 'attribute i64 array not found'

    if(attributes_in(12)%type /= adios2_type_integer8) stop 'attribute i64 array wrong type'

    if(attributes_in(12)%length /= 3) stop 'attribute i64 array lenght is not 1'

    if(attributes_in(12)%is_value .eqv. .true.) stop 'attribute i64 array must be array'

    call adios2_attribute_data( i64_array, attributes_in(12), ierr)

    do i=1,3

       if( i64_array(i) /=  data_I64(i) ) stop 'attribute i64 array data error'

    end do



    if(attributes_in(13)%valid .eqv. .false.) stop 'attribute r32 array not found'

    if(attributes_in(13)%type /= adios2_type_real) stop 'attribute r32 array wrong type'

    if(attributes_in(13)%length /= 3) stop 'attribute r32 array lenght is not 1'

    if(attributes_in(13)%is_value .eqv. .true.) stop 'attribute r32 array must be array'

    call adios2_attribute_data( r32_array, attributes_in(13), ierr)

    do i=1,3

       if( r32_array(i) /=  data_R32(i) ) stop 'attribute r32 array data error'

    end do



    if(attributes_in(14)%valid .eqv. .false.) stop 'attribute r64 array not found'

    if(attributes_in(14)%type /= adios2_type_dp) stop 'attribute r64 array wrong type'

    if(attributes_in(14)%length /= 3) stop 'attribute r64 array lenght is not 1'

    if(attributes_in(14)%is_value .eqv. .true.) stop 'attribute r64 array must be array'

    call adios2_attribute_data( r64_array, attributes_in(14), ierr)

    do i=1,3

       if( r64_array(i) /=  data_R64(i) ) stop 'attribute r64 array data error'

    end do







    call adios2_close(bpReader, ierr)