test_parse_ChildSpecMap_empty Subroutine

public subroutine test_parse_ChildSpecMap_empty()

Arguments

None

Calls

proc~~test_parse_childspecmap_empty~~CallsGraph proc~test_parse_childspecmap_empty test_parse_ChildSpecMap_empty ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_childspecmap_empty->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_parse_childspecmap_empty->ESMF_HConfigDestroy assert_that assert_that proc~test_parse_childspecmap_empty->assert_that interface~parse_children parse_children proc~test_parse_childspecmap_empty->interface~parse_children proc~mapl_verify MAPL_Verify proc~test_parse_childspecmap_empty->proc~mapl_verify true true proc~test_parse_childspecmap_empty->true proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_parse_ChildSpecMap_empty()
      type(ChildSpecMap) :: expected, found
      integer :: status, rc

      type(ESMF_HConfig) :: hconfig

      hconfig = ESMF_HConfigCreate(content='{}')

      found = parse_children(hconfig, _RC)
      @assert_that(found == expected, is(true()))

      call ESMF_HConfigDestroy(hconfig)
   end subroutine test_parse_ChildSpecMap_empty