test_match_mapping_mismatch_keys_2 Subroutine

public subroutine test_match_mapping_mismatch_keys_2()

Arguments

None

Calls

proc~~test_match_mapping_mismatch_keys_2~~CallsGraph proc~test_match_mapping_mismatch_keys_2 test_match_mapping_mismatch_keys_2 ESMF_HConfigCreate ESMF_HConfigCreate proc~test_match_mapping_mismatch_keys_2->ESMF_HConfigCreate ESMF_HConfigDestroy ESMF_HConfigDestroy proc~test_match_mapping_mismatch_keys_2->ESMF_HConfigDestroy anyexceptions anyexceptions proc~test_match_mapping_mismatch_keys_2->anyexceptions assert_that assert_that proc~test_match_mapping_mismatch_keys_2->assert_that false false proc~test_match_mapping_mismatch_keys_2->false interface~mapl_hconfigmatch MAPL_HConfigMatch proc~test_match_mapping_mismatch_keys_2->interface~mapl_hconfigmatch sourcelocation sourcelocation proc~test_match_mapping_mismatch_keys_2->sourcelocation

Source Code

   subroutine test_match_mapping_mismatch_keys_2()
      type(ESMF_HConfig) :: a, b
      logical :: match
      integer :: status

      a = ESMF_HConfigCreate(content='{a: 1, b: 2, c: 3}', _RC)
      b = ESMF_HConfigCreate(content='{a: 1, e: 2, c: 3}', _RC)

      match = MAPL_HConfigMatch(a, b, _RC)
      @assert_that(match, is(false()))

      call ESMF_HConfigDestroy(a, _RC)
      call ESMF_HConfigDestroy(b, _RC)
   end subroutine test_match_mapping_mismatch_keys_2