test_parse_ChildSpecMap_1 Subroutine

public subroutine test_parse_ChildSpecMap_1()

Arguments

None

Calls

proc~~test_parse_childspecmap_1~~CallsGraph proc~test_parse_childspecmap_1 test_parse_ChildSpecMap_1 ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_childspecmap_1->ESMF_HConfigCreate assert_that assert_that proc~test_parse_childspecmap_1->assert_that interface~parse_children parse_children proc~test_parse_childspecmap_1->interface~parse_children interface~user_setservices user_setservices proc~test_parse_childspecmap_1->interface~user_setservices none~insert~12 ChildSpecMap%insert proc~test_parse_childspecmap_1->none~insert~12 proc~mapl_verify MAPL_Verify proc~test_parse_childspecmap_1->proc~mapl_verify true true proc~test_parse_childspecmap_1->true none~insert_pair~2 ChildSpecMap%insert_pair none~insert~12->none~insert_pair~2 proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_parse_ChildSpecMap_1()
      type(ESMF_HConfig), target :: config
      type(ESMF_HConfig), pointer :: config_ptr
      type(ChildSpecMap) :: expected, found
      integer :: status, rc

      config = ESMF_HConfigCreate(content='children: {A: {sharedObj: libA}}')
      config_ptr => config
      call expected%insert('A', ChildSpec(user_setservices('libA', 'setservices_')))
      found = parse_children(config_ptr, _RC)
      @assert_that(found == expected, is(true()))
      
   end subroutine test_parse_ChildSpecMap_1