test_link_extension Subroutine

public subroutine test_link_extension()

Arguments

None

Calls

proc~~test_link_extension~~CallsGraph proc~test_link_extension test_link_extension anyexceptions anyexceptions proc~test_link_extension->anyexceptions assert_that assert_that proc~test_link_extension->assert_that none~add_virtual_pt StateRegistry%add_virtual_pt proc~test_link_extension->none~add_virtual_pt none~link_extension StateRegistry%link_extension proc~test_link_extension->none~link_extension none~num_owned_items StateRegistry%num_owned_items proc~test_link_extension->none~num_owned_items sourcelocation sourcelocation proc~test_link_extension->sourcelocation interface~mapl_assert MAPL_Assert none~add_virtual_pt->interface~mapl_assert none~has_virtual_pt StateRegistry%has_virtual_pt none~add_virtual_pt->none~has_virtual_pt 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~link_extension->interface~mapl_assert none~add_extension~2 ExtensionFamily%add_extension none~link_extension->none~add_extension~2 none~at~112 VirtualPtFamilyMap%at none~link_extension->none~at~112 none~link_extension->none~has_virtual_pt none~link_extension->proc~mapl_return proc~mapl_verify MAPL_Verify none~link_extension->proc~mapl_verify none~push_back~56 StateItemExtensionPtrVector%push_back none~add_extension~2->none~push_back~56 none~at_rc~8 VirtualPtFamilyMap%at_rc none~at~112->none~at_rc~8 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 proc~mapl_verify->proc~mapl_throw_exception none~find~36 VirtualPtFamilyMap%find none~at_rc~8->none~find~36 none~capacity~331 StateItemExtensionPtrVector%capacity none~push_back~56->none~capacity~331 none~resize~112 StateItemExtensionPtrVector%resize none~push_back~56->none~resize~112

Source Code

   subroutine test_link_extension()
      type(StateRegistry), target :: r
      type(VirtualConnectionPt) :: x
      integer :: status
      type(StateItemExtension), target :: extension

      r = StateRegistry('A')
      x = VirtualConnectionPt(state_intent='import', short_name='x')
      call r%add_virtual_pt(x, _RC)

      extension = StateItemExtension(MockItemSpec('x'))
      call r%link_extension(x, extension, _RC)
      @assert_that(r%num_owned_items(), is(0))

   end subroutine test_link_extension