Better implementation to get http header for http_client, and to get list of header entries by key,value

library/client/http_client/tests/test_http_client.e

@@ -0,0 +1,88 @@
+note
+	description: "[
+		Eiffel tests that can be executed by testing tool.
+	]"
+	author: "EiffelStudio test wizard"
+	date: "$Date$"
+	revision: "$Revision$"
+	testing: "type/manual"
+
+class
+	TEST_HTTP_CLIENT
+
+inherit
+	EQA_TEST_SET
+
+feature -- Test routines
+
+	test_http_client
+			-- New test routine
+		local
+			sess: LIBCURL_HTTP_CLIENT_SESSION
+			h: STRING_8
+		do
+			create sess.make ("http://www.google.com")
+			if attached sess.get ("/search?q=eiffel", Void) as res then
+				create h.make_empty
+				if attached res.headers as hds then
+					across
+						hds as c
+					loop
+						h.append (c.item.key + ": " + c.item.value + "%R%N")
+					end
+				end
+				if attached res.body as l_body then
+
+				end
+				assert ("same headers", h.same_string (res.raw_header))
+			else
+				assert ("Not found", False)
+			end
+		end
+
+	test_headers
+		local
+			res: HTTP_CLIENT_RESPONSE
+			h: STRING
+		do
+			create res.make
+			create h.make_empty
+			h.append ("normal: NORMAL%R%N")
+			h.append ("concat: ABC%R%N")
+			h.append ("concat: DEF%R%N")
+			h.append ("key1: KEY%R%N")
+			h.append (" key2 : KEY%R%N")
+			h.append (" %T key3    : KEY%R%N")
+			h.append ("value1:VALUE%R%N")
+			h.append ("value2: VALUE%R%N")
+			h.append ("value3:  VALUE%R%N")
+			h.append ("value4:   VALUE   %R%N")
+			h.append ("  %Tfoo  	:	BAR%T   %R%N")
+			res.set_raw_header (h)
+			create h.make_empty
+			if attached res.headers as hds then
+				across
+					hds as c
+				loop
+					h.append (c.item.key + ": " + c.item.value + "%N")
+				end
+			end
+			assert ("Expected headers map", h.same_string ("[
+				normal: NORMAL
+				concat: ABC
+				concat: DEF
+				key1: KEY
+				key2: KEY
+				key3: KEY
+				value1: VALUE
+				value2: VALUE
+				value3: VALUE
+				value4: VALUE
+				foo: BAR
+
+			]"))
+		end
+
+end
+
+