test_equal_child_spec_cfg_differs Subroutine

public subroutine test_equal_child_spec_cfg_differs()

Arguments

None

Calls

proc~~test_equal_child_spec_cfg_differs~~CallsGraph proc~test_equal_child_spec_cfg_differs test_equal_child_spec_cfg_differs assert_that assert_that proc~test_equal_child_spec_cfg_differs->assert_that false false proc~test_equal_child_spec_cfg_differs->false interface~user_setservices user_setservices proc~test_equal_child_spec_cfg_differs->interface~user_setservices

Source Code

   subroutine test_equal_child_spec_cfg_differs()
      class(AbstractUserSetServices), allocatable :: ss

      type(ChildSpec) :: a, b
      
      ss = user_setservices('libA', 'setservices_')

      a = ChildSpec(ss, config_file='a.yml')

      b = ChildSpec(ss)
      @assert_that(a == b, is(false()))

      b = ChildSpec(ss, config_file='a2.yml')
      @assert_that(a == b, is(false()))

      b = ChildSpec(ss)
      @assert_that(a == b, is(false()))

      b = ChildSpec(ss, config_file='a2.yml')
      @assert_that(a == b, is(false()))
          

   contains
      subroutine gamma(gc, rc)
         use esmf
         type(ESMF_GridComp) :: gc
         integer, intent(out) :: rc
      end subroutine gamma
      
   end subroutine test_equal_child_spec_cfg_differs