test_make_child_hconfig Subroutine

public subroutine test_make_child_hconfig()

Arguments

None

Calls

proc~~test_make_child_hconfig~~CallsGraph proc~test_make_child_hconfig test_make_child_hconfig ESMF_HConfigCreate ESMF_HConfigCreate proc~test_make_child_hconfig->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_make_child_hconfig->ESMF_HConfigDestroy anyexceptions anyexceptions proc~test_make_child_hconfig->anyexceptions assert_that assert_that proc~test_make_child_hconfig->assert_that asserttrue asserttrue proc~test_make_child_hconfig->asserttrue interface~mapl_hconfigmatch MAPL_HConfigMatch proc~test_make_child_hconfig->interface~mapl_hconfigmatch proc~make_child_hconfig make_child_hconfig proc~test_make_child_hconfig->proc~make_child_hconfig sourcelocation sourcelocation proc~test_make_child_hconfig->sourcelocation proc~make_child_hconfig->ESMF_HConfigDestroy ESMF_HConfigAdd ESMF_HConfigAdd proc~make_child_hconfig->ESMF_HConfigAdd proc~get_subconfig get_subconfig proc~make_child_hconfig->proc~get_subconfig proc~mapl_return MAPL_Return proc~make_child_hconfig->proc~mapl_return proc~mapl_verify MAPL_Verify proc~make_child_hconfig->proc~mapl_verify proc~get_subconfig->proc~mapl_return proc~get_subconfig->proc~mapl_verify esmf_hconfigcreateat esmf_hconfigcreateat proc~get_subconfig->esmf_hconfigcreateat esmf_hconfigisdefined esmf_hconfigisdefined proc~get_subconfig->esmf_hconfigisdefined esmf_hconfigismap esmf_hconfigismap proc~get_subconfig->esmf_hconfigismap interface~mapl_assert MAPL_Assert proc~get_subconfig->interface~mapl_assert at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_make_child_hconfig()
      type(ESMF_HConfig) :: hconfig
      type(ESMF_HConfig) :: expected_child_hconfig, found_child_hconfig
      integer :: status

      hconfig = ESMF_HConfigCreate( content=&
           '{geoms: {geom1: &geom1 {class: latlon}}, collections: {c1: {geom: *geom1}}}', _RC)
      expected_child_hconfig = ESMF_HConfigCreate(content=&
           '{collection_name: c1, geom: {class: latlon}}', rc=status)

      found_child_hconfig = make_child_hconfig(hconfig, 'c1', _RC)
       @assertTrue(MAPL_HConfigMatch(found_child_hconfig, expected_child_hconfig))
      
      call ESMF_HConfigDestroy(hconfig, _RC)
      call ESMF_HConfigDestroy(expected_child_hconfig, _RC)
      call ESMF_HConfigDestroy(found_child_hconfig, _RC)

   end subroutine test_make_child_hconfig