class TEST

create
	make

feature {NONE} -- Creation

	make is
			-- Run test.
		do
			display_lst (new_lst)
			display_ht (new_ht)
			io.put_new_line
		end

feature {NONE} -- Test

	new_lst: LINKED_LIST [INTEGER] is
		do
			create Result.make
			Result.extend (1)
			Result.extend (3)
			Result.extend (9)
		end

	display_lst (obj: ANY) is
		local
			lst: LIST [ANY]
		do
			lst ?= obj
			if lst /= Void then
				from
					lst.start
				until
					lst.after
				loop
					print (lst.item.out)
					lst.forth
				end
			end
		end

	new_ht: HASH_TABLE [STRING, INTEGER] is
		do
			create Result.make (3)
			Result.put ("a", 3)
			Result.put ("b", 2)
			Result.put ("c", 1)
		end

	display_ht (obj: ANY) is
		local
			dic: HASH_TABLE [ANY, HASHABLE]
			k: HASHABLE
			v: ANY
			a: ARRAY [ANY]
		do
			dic ?= obj
			if dic /= Void then
				create a.make_filled ("", 1, 3)
				from
					dic.start
				until
					dic.after
				loop
					v := dic.item_for_iteration
					k := dic.key_for_iteration
					if k.out.is_equal ("1") then
						a [1] := v
					elseif k.out.is_equal ("2") then
						a [2] := v
					elseif k.out.is_equal ("3") then
						a [3] := v
					end
					dic.forth
				end
				print (a [1])
				print (a [2])
				print (a [3])
			end
		end

end