note
	description: "To test storing/retrieval of Unicode data."
	date: "$Date$"
	revision: "$Revision$"

class
	UNICODE_DATA

create
	make

feature {NONE} -- Initialization

	make (a_id: INTEGER)
		do
			id := a_id
			create unicode.make_empty
			create ascii.make_empty
			create small_unicode.make_empty
			create small_ascii.make_empty
		end

feature -- Access

	id: INTEGER

	unicode, small_unicode: STRING_32
	ascii, small_ascii: STRING_8

feature -- Settings

	set_unicode (a_unicode: like unicode)
		do
			unicode := a_unicode
		ensure
			unicode_set: unicode = a_unicode
		end

	set_ascii (a_ascii: like ascii)
		do
			ascii := a_ascii
		ensure
			ascii_set: ascii = a_ascii
		end

	set_small_unicode (a_small_unicode: like small_unicode)
		do
			small_unicode := a_small_unicode
		ensure
			small_unicode_set: small_unicode = a_small_unicode
		end

	set_small_ascii (a_small_ascii: like small_ascii)
		do
			small_ascii := a_small_ascii
		ensure
			small_ascii_set: small_ascii = a_small_ascii
		end

end