indexing
	description: "benchmark event creation. "
	library: "elogger"
	copyright: "Copyright (c) 2006, AXA Rosenberg, and others (see copyright.txt)"
	author: "Ulrich Weiss, and others"
	license: "Eiffel Forum License v2 (see forum.txt)"
	date: "$Date: $"
	revision: "$Revision: $"
	archive: "$Archive: $"

class ELOG_BENCHMARK_OBJECT_CREATION

inherit
	ELOG_BENCHMARK_CASE

feature -- Access

	run is
			-- run the benchmark
		local
			o: ELOG_BENCH_HELPER_DUMMY_OBJECT
			i: INTEGER
		do
			start
			from
				i := 0
			until
				i > iterations
			loop
				create o.make
				i := i + 1
			end
			stop
			io.putstring ("object creation: "+iterations_per_second.rounded.out+"it/s, "+cycles_per_iteration.out+"cycles/it%N")
		end

	iterations: INTEGER_64 is 10_000_000
			-- nr of iterations

end