class
	ATTACH_TEST_VS_BOOLEAN_COMPARISON

inherit
	EL_BENCHMARK_COMPARISON

create
	make

feature -- Access

	Description: STRING = "Call in loop depends on boolean or attachment"

feature -- Basic operations

	execute
		do
			compare ("Boolean test VS attachment test", <<
				["Test boolean", agent test_boolean],
				["Test attachment", agent test_attachment]
			>>)
		end

feature {NONE} -- Implemenatation

	test_boolean
		local
			i: INTEGER; n: INTEGER_REF
			increment: BOOLEAN
		do
			create n
			increment := True
			from i := 1 until i > 10_000 loop
				if increment then
					n.set_item (n.item + 1)
				end
				i := i + 1
			end
		end

	test_attachment
		local
			i: INTEGER; integer: detachable INTEGER_REF
		do
			create integer
			from i := 1 until i > 10_000 loop
				if attached integer as n then
					n.set_item (n.item + 1)
				end
				i := i + 1
			end
		end
end