indexing
	description: "Test features of properties classes"
	library:    "Goanna log4e Test Harnesses"
	author:     "Glenn Maughan <glennmaughan@optushome.com.au>"
	copyright:  "Copyright (c) 2001, Glenn Maughan and others"
	license:    "Eiffel Forum Freeware License v1 (see forum.txt)"
	date:       "$Date$"
	revision:   "$Revision$"

deferred class GPREF_TEST_PROPERTIES

inherit

	TS_TEST_CASE
		
feature -- Test

	test_properties is
		local
			props: GP_PROPERTIES
		do
			create props
		end
		
	test_system_properties is
		local
			props: GP_SYSTEM_PROPERTIES
		do
			create props
		end

	test_shared_system_properties is
		local
			props: GP_SHARED_SYSTEM_PROPERTIES
		do
		
		end

	test_text_file_store is
		local
			text_store: GP_TEXT_FILE_PROPERTY_STORE
			properties, properties2: GP_PROPERTIES
		do
			create text_store.make ("test.properties")
			create properties
			properties.put ("hello", "test1")
			properties.put ("there", "test2")
			properties.put ("i'm fine", "test3")
			properties.save (text_store)
			create properties2
			properties2.load (text_store)
			assert ("has_test1", properties2.has ("test1"))
			assert ("has_test2", properties2.has ("test2"))
			assert ("has_test3", properties2.has ("test3"))
			assert_equal ("test1_value", properties2.item ("test1"), "hello")
			assert_equal ("test2_value", properties2.item ("test2"), "there")
			assert_equal ("test3_value", properties2.item ("test3"), "i'm fine")
		end
		
end -- class GPREF_TEST_PROPERTIES