class
	TEST_STRING_32

inherit
	TEST_STRINGS [STRING_32, STRING_32_ROUTINES]

create
	make

feature -- Measurement

	storage_bytes (s: STRING_32): INTEGER
		do
			Result := property (s).physical_size + property (s.area).physical_size
		end

feature {NONE} -- Factory

	new_character_set (str: STRING_32): EL_HASH_SET [CHARACTER_32]
		do
			create Result.make (str.count // 2)
			across str as uc loop
				Result.put (uc.item)
			end
		end

feature {NONE} -- Constants

	Unescaper: EL_STRING_32_UNESCAPER
		once
			create Result.make (C_escape_table)
		end

end