note

	description:

		"Test features of class GEANT_SHARED_PROPERTIES"

	library: "Gobo Eiffel Ant"
	copyright: "Copyright (c) 2002-2018, Sven Ehrke and others"
	license: "MIT License"
	date: "$Date$"
	revision: "$Revision$"

class GEANT_TEST_SHARED_PROPERTIES

inherit

	TS_TEST_CASE

create

	make_default

feature -- Test

	test_glob_prefix
			-- Test feature `glob_prefix'.
		local
			sp: GEANT_SHARED_PROPERTIES
		do
			create sp
			assert_equal ("glob_prefix1", "ab", sp.glob_prefix ("ab*.e"))

			assert_equal ("glob_prefix2", "", sp.glob_prefix ("*.e"))
			assert_equal ("glob_prefix3", "ttt/ab", sp.glob_prefix ("ttt/ab*.e"))
		end

	test_glob_postfix
			-- Test feature `glob_postfix'.
		local
			sp: GEANT_SHARED_PROPERTIES
		do
			create sp
			assert_equal ("glob_postfix1", ".e", sp.glob_postfix ("ab*.e"))
			assert_equal ("glob_postfix2", "ab", sp.glob_postfix ("ttt/*ab"))

			assert_equal ("glob_postfix3", "", sp.glob_postfix ("aser*"))
			assert_equal ("glob_postfix4", "", sp.glob_postfix ("ttt/ab*"))

			assert_equal ("glob_postfix5", ".e*fd", sp.glob_postfix ("ab*.e*fd"))
			assert_equal ("glob_postfix6", "ab*gg", sp.glob_postfix ("ttt/*ab*gg"))

		end

	test_remove_indentation
		local
			s,s2: STRING
			sp: GEANT_SHARED_PROPERTIES
		do
			create sp
			s := "abc"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation1", "abc", s2)

			s := "%Tabc"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation2", "%Tabc", s2)

			s := "%T|abc"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation3", "abc", s2)

			s := " %T |abc"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation4", "abc", s2)

			s := "{
				|abc
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation5a", "abc", s2)

			s := "{
				|Release_notes.txt

			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation5b", "Release_notes.txt%N", s2)

			s := "{
				|Release_notes.txt
bla
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation5c", "Release_notes.txt%Nbla", s2)

			s := "{
				|Release_notes.txt
bla
				|Release_notes.txt
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation5d", "Release_notes.txt%Nbla%NRelease_notes.txt", s2)

			s := "{
				|Release_notes.txt
bla
				|Release_notes.txt
bli
bla
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation5e", "Release_notes.txt%Nbla%NRelease_notes.txt%Nbli%Nbla", s2)

			s := "{
				|abc
				|xyz
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation6", "abc%Nxyz", s2)

			s := "{
			|abc
			|xyz
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation7", "abc%Nxyz", s2)

			s := "{
|abc
|xyz
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation8", "abc%Nxyz", s2)

			s := "{
					|abc
				|xyz
			}"
			s2 := sp.removed_indentation (s)
			assert_equal ("remove_indentation9", "abc%Nxyz", s2)

		end

end