indexing
	cluster: "demangler"
	namespace: "candidate"
	description: "Paginate etc text."
	original_author: "Justin Finnerty"
	original_date: "July 2005"
	current_date: "$Date: 2005/09/06 22:57:03 $"
	current_author: "$Author: finnerty $"
	revision: "$Revision: 2.1 $"	
	-- $Log: formatter_test.e,v $
	-- Revision 2.1  2005/09/06 22:57:03  finnerty
	-- Test for TEXT_FORMATTER class
	--

class FORMATTER_TEST
	-- Left adjusted, ragged right, fixed width formatted output.
inherit
	TEXT_FORMATTER

creation {ANY}
	test

feature {NONE}
	-- Creation procedures
	test is
			-- Test formatter
		local
			l_c: CHARACTER
			l_str_1, l_str_2, l_str_3: UC_STRING
		do
			l_c := 'c'
			make_std_text_formatter (70)
			put_string ("Report errors in a `SYNCHRONISED_DIRECTORY' %
                      %object. Gives a list of transformations that %
                      %resolve the errors. Programming notes: Derived %
							 %classes effect `generate' %
                      %which should add objects to %
							 %the `transforms' set. This set can %
                      %then edited using a `REPORT_DISPLAY' %
							 %object. Once editing %
                      %of `transforms' is complete, `action' is %
							 %used to change %
                      %the `sync_dir'. If necessary these changes may %
							 %be reversed using `undo'.")
			put_new_line
			!!l_str_1.make_from_utf8 ("This is a query")
			!!l_str_2.make_from_utf8 ("Option A:Option B:Option C (pauses the progam until user presses the return/enter key and then continues.)")
			!!l_str_3.make_from_utf8 ("abc")
			if l_c.code = query (l_str_1, l_str_2, l_str_3) then
				!!l_str_1.make_from_utf8 ("This is a paused message")
				pause (l_str_1)
			end
		end
end -- class FORMATTER_TEST
