Test_FieldInfo.pf Source File

#include "MAPL_TestErr.h"

module Test_FieldInfo
   use pfunit
   use mapl3g_FieldInfo
   use esmf
   implicit none(type,external)

contains

   @test
   subroutine test_copy_shared_field()
      type(ESMF_Field) :: f_in, f_out
      integer :: status
      integer :: ia, ib

      f_in = ESMF_FieldEmptyCreate(name='f_in', _RC)
      f_out= ESMF_FieldEmptyCreate(name='f_out', _RC)

      call MAPL_FieldInfoSetShared(f_in, key='a', value=1, _RC)
      call MAPL_FieldInfoSetShared(f_in, key='b', value=2, _RC)

      call MAPL_FieldInfoCopyShared(f_in, f_out, _RC)

      call MAPL_FieldInfoGetShared(f_out, key='a', value=ia, _RC)
      call MAPL_FieldInfoGetShared(f_out, key='b', value=ib, _RC)

      @assert_that(ia, is(1))
      @assert_that(ib, is(2))

   end subroutine test_copy_shared_field

end module Test_FieldInfo