test_parse_ChildSpecMap_2 Subroutine

public subroutine test_parse_ChildSpecMap_2()

Arguments

None

Calls

proc~~test_parse_childspecmap_2~~CallsGraph proc~test_parse_childspecmap_2 test_parse_ChildSpecMap_2 ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_childspecmap_2->ESMF_HConfigCreate assert_that assert_that proc~test_parse_childspecmap_2->assert_that interface~parse_children parse_children proc~test_parse_childspecmap_2->interface~parse_children interface~user_setservices user_setservices proc~test_parse_childspecmap_2->interface~user_setservices none~insert~12 ChildSpecMap%insert proc~test_parse_childspecmap_2->none~insert~12 none~of~5 ChildSpecMap%of proc~test_parse_childspecmap_2->none~of~5 proc~mapl_verify MAPL_Verify proc~test_parse_childspecmap_2->proc~mapl_verify true true proc~test_parse_childspecmap_2->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_2()
      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},' // &
           'B: {sharedObj: libB}}')
      config_ptr => config

      call expected%insert('A', ChildSpec(user_setservices('libA', 'setservices_')))
      call expected%insert('B', ChildSpec(user_setservices('libB', 'setservices_')))
      found = parse_children(config_ptr, _RC)

      @assert_that(found%of('A') == expected%of('A'), is(true()))
      @assert_that(found%of('B') == expected%of('B'), is(true()))
      
   end subroutine test_parse_ChildSpecMap_2