test_alt_constructor Subroutine

public subroutine test_alt_constructor()

Arguments

None

Calls

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

Source Code

   subroutine test_alt_constructor()
      type(VirtualConnectionPt) :: v_pt

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

      v_pt = VirtualConnectionPt(state_intent='internal', short_name='V')
      @assertEqual('V', v_pt%get_esmf_name())
      @assertTrue(v_pt%get_state_intent() == 'internal')
   end subroutine test_alt_constructor