test_get_intent Subroutine

public subroutine test_get_intent()

Arguments

None

Calls

proc~~test_get_intent~~CallsGraph proc~test_get_intent test_get_intent assertequal assertequal proc~test_get_intent->assertequal asserttrue asserttrue proc~test_get_intent->asserttrue none~get_esmf_name~2 VirtualConnectionPt%get_esmf_name proc~test_get_intent->none~get_esmf_name~2 none~get_state_intent~2 VirtualConnectionPt%get_state_intent proc~test_get_intent->none~get_state_intent~2

Source Code

   subroutine test_get_intent()
      type(VirtualConnectionPt) :: v_pt

      v_pt = VirtualConnectionPt(ESMF_STATEINTENT_IMPORT, 'T')
      @assertEqual('T', v_pt%get_esmf_name())
      @assertTrue(v_pt%get_state_intent() == 'import')
      
      v_pt = VirtualConnectionPt(ESMF_STATEINTENT_EXPORT, 'U')
      @assertEqual('U', v_pt%get_esmf_name())
      @assertTrue(v_pt%get_state_intent() == 'export')

      v_pt = VirtualConnectionPt(ESMF_STATEINTENT_INTERNAL, 'V')
      @assertEqual('V', v_pt%get_esmf_name())
      @assertTrue(v_pt%get_state_intent() == 'internal')
   end subroutine test_get_intent