Updated Conneg library, added test cases

library/protocol/CONNEG/test/conneg_server_side_test.e

@@ -17,7 +17,7 @@ feature {NONE} -- Events
 	on_prepare
 			-- Called after all initializations in `default_create'.
 		do
-			create conneg.make ("application/json", "es", "UTF8", "")
+			create conneg.make ("application/json", "es", "UTF-8", "")
 			-- set default values
 		end
 
@@ -56,6 +56,77 @@ feature -- Test routines
 
 
 
+	test_charset_negotiation
+		local
+			charset_variants : CHARACTER_ENCODING_VARIANT_RESULTS
+			charset_supported : LIST [STRING]
+			l_charset : STRING
+		do
+			-- Scenario 1, the server side does not support client preferences
+			l_charset := "UTF-8, iso-8859-5"
+			charset_supported := l_charset.split(',')
+			charset_variants := conneg.charset_preference (charset_supported, "unicode-1-1")
+			assert ("Expected Not Acceptable", not charset_variants.is_acceptable)
+			assert ("Same Value at 1",charset_supported.at (1).is_equal (charset_variants.supported_variants.at (1)))
+			assert ("Same count",charset_supported.count = charset_variants.supported_variants.count)
+			assert ("Variant header is void",charset_variants.variant_header = Void)
+			assert ("Character type is void",charset_variants.character_type = Void)
+
+
+			-- Scenario 2, the client doesnt send values in the header, Accept-Charset:
+			charset_variants := conneg.charset_preference (charset_supported, "")
+			assert ("Expected Acceptable", charset_variants.is_acceptable)
+			assert ("Variants is dettached",charset_variants.supported_variants = Void)
+			assert ("Charset is defaul", conneg.charset_default.is_equal (charset_variants.character_type))
+			assert ("Variant header", charset_variants.variant_header = Void)
+
+
+			--Scenario 3, the server select the best match, and set the vary header
+			charset_variants := conneg.charset_preference (charset_supported, "unicode-1-1, UTF-8;q=0.3, iso-8859-5")
+			assert ("Expected Acceptable", charset_variants.is_acceptable)
+			assert ("Variants is dettached",charset_variants.supported_variants = Void)
+			assert ("Variant Header", charset_variants.variant_header.is_equal ("Accept-Charset"))
+			assert ("Character Type is iso-8859-5", charset_variants.character_type.is_equal ("iso-8859-5"))
+		end
+
+	test_compression_negotiation
+		local
+			compression_variants : COMPRESSION_VARIANT_RESULTS
+			compression_supported : LIST [STRING]
+			l_compression : STRING
+		do
+			-- Scenario 1, the server side does not support client preferences
+			l_compression := ""
+			compression_supported := l_compression.split(',')
+			compression_variants := conneg.encoding_preference (compression_supported, "gzip")
+			assert ("Expected Not Acceptable", not compression_variants.is_acceptable)
+			assert ("Same Value at 1",compression_supported.at (1).is_equal (compression_variants.supported_variants.at (1)))
+			assert ("Same count",compression_supported.count = compression_variants.supported_variants.count)
+			assert ("Variant header is void",compression_variants.variant_header = Void)
+			assert ("Compression type is void",compression_variants.compression_type = Void)
+
+
+			-- Scenario 2, the client doesnt send values in the header, Accept-Encoding
+			compression_variants := conneg.encoding_preference (compression_supported, "")
+			assert ("Expected Acceptable", compression_variants.is_acceptable)
+			assert ("Variants is dettached",compression_variants.supported_variants = Void)
+			assert ("Compression is defaul", conneg.encoding_default.is_equal (compression_variants.compression_type))
+			assert ("Variant header", compression_variants.variant_header = Void)
+
+
+			--Scenario 3, the server select the best match, and set the vary header
+			l_compression := "gzip"
+			compression_supported := l_compression.split(',')
+			conneg.set_encoding_defautl ("gzip")
+			compression_variants := conneg.encoding_preference (compression_supported, "compress,gzip;q=0.7")
+			assert ("Expected Acceptable", compression_variants.is_acceptable)
+			assert ("Variants is dettached",compression_variants.supported_variants = Void)
+			assert ("Variant Header", compression_variants.variant_header.is_equal ("Accept-Encoding"))
+			assert ("Encoding Type is gzip", compression_variants.compression_type.is_equal ("gzip"))
+		end
+
+
+
 	test_language_negotiation
 		local
 			language_variants : LANGUAGE_VARIANT_RESULTS
@@ -90,6 +161,7 @@ feature -- Test routines
 
 
 		end
+
 feature -- Implementation
 	conneg : CONNEG_SERVER_SIDE
 end