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~245 VirtualPtFamilyMap%insert none~add_virtual_pt->none~insert~245 proc~mapl_return MAPL_Return none~add_virtual_pt->proc~mapl_return none~link_extension->interface~mapl_assert none~add_extension ExtensionFamily%add_extension none~link_extension->none~add_extension none~at~242 VirtualPtFamilyMap%at none~link_extension->none~at~242 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~10 StateItemExtensionPtrVector%push_back none~add_extension->none~push_back~10 none~at_rc~12 VirtualPtFamilyMap%at_rc none~at~242->none~at_rc~12 none~insert_pair~24 VirtualPtFamilyMap%insert_pair none~insert~245->none~insert_pair~24 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~76 VirtualPtFamilyMap%find none~at_rc~12->none~find~76 none~capacity~55 StateItemExtensionPtrVector%capacity none~push_back~10->none~capacity~55 none~resize~20 StateItemExtensionPtrVector%resize none~push_back~10->none~resize~20

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