test_addExtCollection_send_message Subroutine

public subroutine test_addExtCollection_send_message()

Arguments

None

Calls

proc~~test_addextcollection_send_message~~CallsGraph proc~test_addextcollection_send_message test_addExtCollection_send_message assertequal assertequal proc~test_addextcollection_send_message->assertequal none~add_ext_collection ClientThread%add_ext_collection proc~test_addextcollection_send_message->none~add_ext_collection none~get_connection BaseThread%get_connection proc~test_addextcollection_send_message->none~get_connection none~set_connection BaseThread%set_connection proc~test_addextcollection_send_message->none~set_connection none~add_ext_collection->none~get_connection interface~mapl_assert MAPL_Assert none~add_ext_collection->interface~mapl_assert proc~mapl_return MAPL_Return none~add_ext_collection->proc~mapl_return proc~mapl_verify MAPL_Verify none~add_ext_collection->proc~mapl_verify receive receive none~add_ext_collection->receive send send none~add_ext_collection->send none~get_connection->interface~mapl_assert none~get_connection->proc~mapl_return none~set_connection->proc~mapl_return 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

Source Code

   subroutine test_addExtCollection_send_message()
      type (MockClientThread) :: c
      class (AbstractSocket), pointer :: connection
      integer :: handle_foo
      type (MockSocketLog), target :: log

      call c%set_connection(MockSocket(log))
      connection => c%get_connection()

      handle_foo = c%add_ext_collection(template='foo')

      select type (connection)
      type is (MockSocket)
         @assertEqual("send<AddExtCollection('foo')>", log%log)
      end select

   end subroutine test_addExtCollection_send_message