indexing
	description	: "System's root class"
	date: "$Date$"
	revision: "$Revision$"

class
	DEBUGGER_BREAKPOINTS_TEST_MONO_THREADED

create
	make

feature -- Initialization

	make is
		local
			l_test_agent: PROCEDURE [ANY, TUPLE]
			l_test_thread: WORKER_THREAD
			j: INTEGER
		do
			--| Add your code here

			l_test_agent := agent
				local
					i: INTEGER
					i_str: STRING_32
				do
					from
						i := 1
					until
						i > 1000
					loop
						i := i + 1
						i_str := i.out
					end
				end
			if {PLATFORM}.is_thread_capable then
				from
					j := 1
				until
					j = 2
--					j > 5
				loop
					create l_test_thread.make (l_test_agent)
					l_test_thread.launch
					j := j + 1
				end
				l_test_thread.join
			else
				l_test_agent.call (Void)
			end
		end

end -- class DEBUGGER_BREAKPOINTS_TEST_MONO_THREADED