test_parse_setServices Subroutine

public subroutine test_parse_setServices()

Arguments

None

Calls

proc~~test_parse_setservices~~CallsGraph proc~test_parse_setservices test_parse_setServices ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_setservices->ESMF_HConfigCreate assert_that assert_that proc~test_parse_setservices->assert_that interface~parse_setservices parse_setservices proc~test_parse_setservices->interface~parse_setservices true true proc~test_parse_setservices->true

Source Code

   subroutine test_parse_setServices()
      type(ESMF_HConfig) :: config
      class(DSOSetServices), allocatable :: ss_expected

      config = ESMF_HConfigCreate(content='{sharedObj: libA, userRoutine: procB}')

      ss_expected = DSOSetServices('libA', 'procB')
      @assert_that(parse_setservices(config) == ss_expected, is(true()))
      
   end subroutine test_parse_setServices