test_parse_childSpec_with_config_file Subroutine

public subroutine test_parse_childSpec_with_config_file()

Arguments

None

Calls

proc~~test_parse_childspec_with_config_file~~CallsGraph proc~test_parse_childspec_with_config_file test_parse_childSpec_with_config_file ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_childspec_with_config_file->ESMF_HConfigCreate assert_that assert_that proc~test_parse_childspec_with_config_file->assert_that interface~parse_child parse_child proc~test_parse_childspec_with_config_file->interface~parse_child interface~user_setservices user_setservices proc~test_parse_childspec_with_config_file->interface~user_setservices proc~mapl_verify MAPL_Verify proc~test_parse_childspec_with_config_file->proc~mapl_verify true true proc~test_parse_childspec_with_config_file->true proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

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

      class(AbstractUserSetServices), allocatable :: ss
      type(ChildSpec) :: expected

      config = ESMF_HConfigCreate(content='{setServices: setservices_, sharedObj: libA, config_file: a.yml}')

      ss = user_setservices('libA', 'setservices_')
      expected = ChildSpec(ss, config_file='a.yml')
      found = parse_child(config, _RC)
      @assert_that(expected == found, is(true()))

   end subroutine test_parse_childSpec_with_config_file