test_add_virtual_pt Subroutine

public subroutine test_add_virtual_pt()

Arguments

None

Calls

proc~~test_add_virtual_pt~~CallsGraph proc~test_add_virtual_pt test_add_virtual_pt anyexceptions anyexceptions proc~test_add_virtual_pt->anyexceptions assert_that assert_that proc~test_add_virtual_pt->assert_that false false proc~test_add_virtual_pt->false none~add_virtual_pt StateRegistry%add_virtual_pt proc~test_add_virtual_pt->none~add_virtual_pt none~has_virtual_pt StateRegistry%has_virtual_pt proc~test_add_virtual_pt->none~has_virtual_pt sourcelocation sourcelocation proc~test_add_virtual_pt->sourcelocation true true proc~test_add_virtual_pt->true none~add_virtual_pt->none~has_virtual_pt interface~mapl_assert MAPL_Assert none~add_virtual_pt->interface~mapl_assert none~insert~130 VirtualPtFamilyMap%insert none~add_virtual_pt->none~insert~130 proc~mapl_return MAPL_Return none~add_virtual_pt->proc~mapl_return none~insert_pair~12 VirtualPtFamilyMap%insert_pair none~insert~130->none~insert_pair~12 at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception

Source Code

   subroutine test_add_virtual_pt()
      type(StateRegistry) :: r
      type(VirtualConnectionPt) :: x
      integer :: status

      r = StateRegistry('A')
      x = VirtualConnectionPt(state_intent='import', short_name='x')
      @assert_that(r%has_virtual_pt(x), is(false()))
      call r%add_virtual_pt(x, _RC)
      @assert_that(r%has_virtual_pt(x), is(true()))

   end subroutine test_add_virtual_pt