note
	description: "[
		Eiffel tests that can be executed by testing tool.
	]"
	author: "EiffelStudio test wizard"
	date: "$Date$"
	revision: "$Revision$"
	testing: "type/manual"

class
	TEST_NS_FONT

inherit
	EQA_TEST_SET

feature -- Test routines

	test_create_font_of_size
		local
			font: NS_FONT
		do
			create font.system_font_of_size (12.0)
			assert ("Correct_point_size", font.point_size - 12.0 < .001)
		end

end