test_set_namespace Subroutine

public subroutine test_set_namespace()

Arguments

None

Calls

proc~~test_set_namespace~~CallsGraph proc~test_set_namespace test_set_namespace anyexceptions anyexceptions proc~test_set_namespace->anyexceptions assert_that assert_that proc~test_set_namespace->assert_that assertequal assertequal proc~test_set_namespace->assertequal esmf_statecreate esmf_statecreate proc~test_set_namespace->esmf_statecreate esmf_statedestroy esmf_statedestroy proc~test_set_namespace->esmf_statedestroy interface~mapl_infogetshared MAPL_InfoGetShared proc~test_set_namespace->interface~mapl_infogetshared interface~mapl_infosetnamespace MAPL_InfoSetNamespace proc~test_set_namespace->interface~mapl_infosetnamespace sourcelocation sourcelocation proc~test_set_namespace->sourcelocation

Source Code

   subroutine test_set_namespace()
      type(ESMF_State) :: state
      integer :: status
      character(:), allocatable :: name
      character(*), parameter :: expected = '/comp_A'

      state = ESMF_StateCreate(name='export', _RC)
      call MAPL_InfoSetNamespace(state, namespace=expected, _RC)
      call MAPL_InfoGetShared(state, key='namespace', value=name, _RC)

      @assertEqual(expected, name)

      call ESMF_StateDestroy(state, _RC)
   end subroutine test_set_namespace