test_parse_childSpec_basic Subroutine

public subroutine test_parse_childSpec_basic()

Arguments

None

Calls

proc~~test_parse_childspec_basic~~CallsGraph proc~test_parse_childspec_basic test_parse_childSpec_basic ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_childspec_basic->ESMF_HConfigCreate assert_that assert_that proc~test_parse_childspec_basic->assert_that interface~parse_child parse_child proc~test_parse_childspec_basic->interface~parse_child interface~user_setservices user_setservices proc~test_parse_childspec_basic->interface~user_setservices proc~mapl_verify MAPL_Verify proc~test_parse_childspec_basic->proc~mapl_verify true true proc~test_parse_childspec_basic->true proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_parse_childSpec_basic()
      type(ESMF_HConfig) :: config
      type(ChildSpec) :: found
      integer :: rc, status
      type(ChildSpec) :: expected

      config = ESMF_HConfigCreate(content='{sharedObj: libA, setServices: setservices_}')

      expected = ChildSpec(user_setservices('libA', 'setservices_'))
      found = parse_child(config, _RC)
      @assert_that(expected == found, is(true()))

   end subroutine test_parse_childSpec_basic