note description: "[ Eiffel tests that can be executed by testing tool. ]" author: "EiffelStudio test wizard" date: "$Date$" revision: "$Revision$" testing: "type/manual" class TEST_MULTIPLE_THREAD inherit TEST_BASIC_DATABASE THREAD_CONTROL undefine default_create end feature -- Test routines test_multiple_thread -- Test local i: INTEGER l_thread: DATA_OPERATION_THREAD do reset_database establish_connection prepare_repository ({DATA_OPERATION_THREAD}.Table_name) if attached session_control as l_control and then not l_control.is_connected then assert ("Could not connect to database", False) else if attached Manager.current_session.session_login as l_login then from i := 1 until i > 5 loop create l_thread.make_thread (l_login) l_thread.launch i := i + 1 end join_all end end disconnect end feature {NONE} -- Implementation data_objects: HASH_TABLE [ANY, STRING] -- Data objects once create Result.make (1) Result.force (create {BOOK2}.make, {DATA_OPERATION_THREAD}.Table_name) end end