test_parse_setServices_default Subroutine

public subroutine test_parse_setServices_default()

Arguments

None

Calls

proc~~test_parse_setservices_default~~CallsGraph proc~test_parse_setservices_default test_parse_setServices_default ESMF_HConfigCreate ESMF_HConfigCreate proc~test_parse_setservices_default->ESMF_HConfigCreate assert_that assert_that proc~test_parse_setservices_default->assert_that interface~parse_setservices parse_setservices proc~test_parse_setservices_default->interface~parse_setservices true true proc~test_parse_setservices_default->true

Source Code

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

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

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