Updated URI Template to follow official RFC6570

library/protocol/uri_template/README.md

@@ -1,6 +1,10 @@
 # URI Template
 
 ## Overview
+Implement URI Template as described at http://tools.ietf.org/rfc/rfc6570.txt
+
+Support for URI template string expansion
+But also partial URI Template matching
 
 ## Usage
 

library/protocol/uri_template/doc/REAMDE.txt

@@ -1,4 +1,5 @@
-Most recent spec/draft/in-progress http://code.google.com/p/uri-templates/source/browse/trunk/spec/draft-gregorio-uritemplate.xml
+Most recent http://code.google.com/p/uri-templates/source/browse/trunk
 
-svn cat http://uri-templates.googlecode.com/svn/trunk/spec/draft-gregorio-uritemplate.xml > uritemplate-draft-gregorio-trunk.xml
+wget http://tools.ietf.org/rfc/rfc6570.txt -O uritemplate-RFC6570
 
+# Check http://code.google.com/p/uri-templates/source/browse/trunk for work in progress

library/protocol/uri_template/src/draft_05/uri_template_constants.e

@@ -1,52 +0,0 @@
-note
-	description: "[
-		Summary description for {URI_TEMPLATE_CONSTANTS}.
-
-		see http://tools.ietf.org/html/draft-gregorio-uritemplate-05
-	]"
-	author: ""
-	date: "$Date$"
-	revision: "$Revision$"
-
-class
-	URI_TEMPLATE_CONSTANTS
-
-feature -- Operator
-
-	Reserved_operator: CHARACTER = '+'
-
-	Form_style_query_operator: CHARACTER = '?'
-
-	Path_style_parameters_operator: CHARACTER = ';'
-
-	Path_segment_operator: CHARACTER = '/'
-
-	Label_operator: CHARACTER = '.'
-
-feature -- Separator	
-
-	Default_delimiter: CHARACTER = '|' --| Draft 05
-
-feature -- Explode	
-
-	Explode_plus: CHARACTER = '+'
-
-	Explode_star: CHARACTER = '*'
-
-feature -- Modified	
-
-	Modifier_substring: CHARACTER = ':'
-
-	Modifier_remainder: CHARACTER = '^'
-
-note
-	copyright: "2011-2011, Eiffel Software and others"
-	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
-	source: "[
-			Eiffel Software
-			5949 Hollister Ave., Goleta, CA 93117 USA
-			Telephone 805-685-1006, Fax 805-685-6869
-			Website http://www.eiffel.com
-			Customer support http://support.eiffel.com
-		]"
-end

library/protocol/uri_template/src/uri_template.e

@@ -1,11 +1,8 @@
 note
 	description: "[
-			Summary description for {URI_TEMPLATE}.
+			Implementation of URI Template  RFC6570.
-			
-			See http://tools.ietf.org/html/draft-gregorio-uritemplate-04
-			
-			note for draft 05, check {URI_TEMPLATE_CONSTANTS}.Default_delimiter
 
+			See http://tools.ietf.org/html/rfc6570
 		]"
 	legal: "See notice at end of class."
 	status: "See notice at end of class."
@@ -513,7 +510,7 @@ feature {NONE} -- Implementation
 		end
 
 note
-	copyright: "2011-2012, Eiffel Software and others"
+	copyright: "2011-2012, Jocelyn Fiat, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
 	source: "[
 			Eiffel Software

library/protocol/uri_template/src/uri_template_constants.e

@@ -2,9 +2,9 @@ note
 	description: "[
 		Summary description for {URI_TEMPLATE_CONSTANTS}.
 
-		see http://tools.ietf.org/html/draft-gregorio-uritemplate-04
+		see http://tools.ietf.org/html/rfc6570
 	]"
-	author: ""
+	author: "Jocelyn Fiat"
 	date: "$Date$"
 	revision: "$Revision$"
 
@@ -17,15 +17,19 @@ feature -- Operator
 
 	Form_style_query_operator: CHARACTER = '?'
 
+	Form_style_query_continuation: CHARACTER = '&'
+
 	Path_style_parameters_operator: CHARACTER = ';'
 
 	Path_segment_operator: CHARACTER = '/'
 
+	Fragment_expansion: CHARACTER = '#'
+
 	Label_operator: CHARACTER = '.'
 
 feature -- Separator	
 
-	Default_delimiter: CHARACTER = '=' --| Draft 0.4  , change to '|' for Draft 0.5
+	Default_delimiter: CHARACTER = '=' --| Not included in the RFC, but was part of previous Draft
 
 feature -- Explode	
 

library/protocol/uri_template/src/uri_template_expression.e

@@ -72,6 +72,17 @@ feature -- Processing
 						operator := '?'
 						op_prefix := '?'
 						op_delimiter := '&'
+					when form_style_query_continuation then
+						--| '&'
+						operator := '&'
+						op_prefix := '&'
+						op_delimiter := '&'
+					when fragment_expansion then
+						--| '#'
+						reserved := True
+						operator := '#'
+						op_prefix := '#'
+						op_delimiter := ','
 					when '|', '!', '@' then
 						operator := exp[1]
 					else
@@ -238,7 +249,7 @@ feature {NONE} -- Implementation
 						else
 							a_buffer.append_character (delimiter_char)
 						end
-						if l_use_default and (operator = Form_style_query_operator) and not vi.has_explode_star then
+						if l_use_default and (operator = Form_style_query_operator or operator = form_style_query_continuation or operator = path_style_parameters_operator) and not vi.has_explode_star then
 							a_buffer.append (vi.name)
 							if vi.has_explode_plus then
 								a_buffer.append_character ('.')
@@ -262,7 +273,7 @@ feature -- Status report
 		end
 
 ;note
-	copyright: "2011-2011, Eiffel Software and others"
+	copyright: "2011-2012, Jocelyn Fiat, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
 	source: "[
 			Eiffel Software

library/protocol/uri_template/src/uri_template_expression_variable.e

@@ -45,12 +45,19 @@ feature {NONE} -- Initialization
 			when Form_style_query_operator then --| '?'
 				op_prefix := '?'
 				op_separator := '&'
+			when form_style_query_continuation then --| '&'
+				op_prefix := '&'
+				op_separator := '&'
 			when Path_style_parameters_operator then --| ';'
 				op_prefix := ';'
 				op_separator := ';'
 			when Path_segment_operator then --| '/'
 				op_prefix := '/'
 				op_separator := '/'
+			when fragment_expansion then --| '#'
+				reserved := True
+				op_prefix := '#'
+				op_separator := ','
 			when Label_operator then --| '.'
 				op_prefix := '.'
 				op_separator := '.'
@@ -169,7 +176,7 @@ feature -- Report
 			create Result.make (20)
 			if attached {READABLE_STRING_GENERAL} d as l_string then
 				v_enc := url_encoded_string (modified_string (l_string), not reserved)
-				if op = Form_style_query_operator then
+				if op = Form_style_query_operator or op = form_style_query_continuation then
 	                Result.append (name)
 	                Result.append_character ('=')
 				elseif op = Path_style_parameters_operator then
@@ -183,7 +190,7 @@ feature -- Report
 				if l_array.is_empty then
 					if dft /= Void then
 						inspect op
-						when Form_style_query_operator, Path_style_parameters_operator then
+						when Path_style_parameters_operator,Form_style_query_operator, form_style_query_continuation then
 							if not l_has_explode then
 								Result.append (name)
 								Result.append_character ('=')
@@ -195,6 +202,16 @@ feature -- Report
 								end
 								Result.append (dft.out)
 							end
+
+--							if not explode_is_plus then
+--								Result.append (name)
+--								Result.append_character ('=')
+--								Result.append (dft.out)
+--							else
+--								Result.append (name)
+--								Result.append_character ('.')
+--								Result.append (dft.out)
+--							end
 						when Path_segment_operator then
 							if explode_is_plus then
 								Result.append (name)
@@ -220,7 +237,7 @@ feature -- Report
 					else
 						l_delimiter := ','
 						inspect op
-						when Form_style_query_operator then
+						when Form_style_query_operator, form_style_query_continuation, path_style_parameters_operator then
 							Result.append (name)
 							Result.append_character ('=')
 						else
@@ -242,6 +259,7 @@ feature -- Report
 						if explode_is_plus then
 							if
 								(op = Form_style_query_operator and explode_is_plus) or
+								(op = form_style_query_continuation and explode_is_plus) or
 								(op = Path_style_parameters_operator and l_has_explode)
 							then
 								Result.append (name)
@@ -250,7 +268,7 @@ feature -- Report
 								Result.append (name)
 								Result.append_character ('.')
 							end
-						elseif explode_is_star and op = Form_style_query_operator then
+						elseif explode_is_star and (op = Form_style_query_operator or op = form_style_query_continuation or op = path_style_parameters_operator) then
 							Result.append (name)
 							Result.append_character ('=')
 						end
@@ -269,7 +287,7 @@ feature -- Report
 				if l_table.is_empty then
 					if dft /= Void then
 						inspect op
-						when Form_style_query_operator, Path_style_parameters_operator then
+						when Path_style_parameters_operator, Form_style_query_operator, form_style_query_continuation then
 							if not l_has_explode then
 								Result.append (name)
 								Result.append_character ('=')
@@ -281,6 +299,15 @@ feature -- Report
 								end
 								Result.append (dft.out)
 							end
+--							if not explode_is_plus then
+--								Result.append (name)
+--								Result.append_character ('=')
+--								Result.append (dft.out)
+--							else
+--								Result.append (name)
+--								Result.append_character ('.')
+--								Result.append (dft.out)
+--							end
 						when Path_segment_operator then
 							if explode_is_plus then
 								Result.append (name)
@@ -306,7 +333,7 @@ feature -- Report
 					else
 						l_delimiter := ','
 						inspect op
-						when Form_style_query_operator then
+						when Form_style_query_operator, form_style_query_continuation, path_style_parameters_operator then
 							Result.append (name)
 							Result.append_character ('=')
 						else
@@ -358,7 +385,7 @@ feature -- Report
 				else
 					v_enc := default_value
 				end
-				if op = Form_style_query_operator then
+				if op = Form_style_query_operator or op = form_style_query_continuation then
 	                Result.append (name)
 	                if v_enc /= Void then
 		                Result.append_character ('=')
@@ -400,7 +427,7 @@ feature {NONE} -- Implementation
 		end
 
 ;note
-	copyright: "2011-2011, Eiffel Software and others"
+	copyright: "2011-2012, Jocelyn Fiat, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
 	source: "[
 			Eiffel Software

library/protocol/uri_template/src/uri_template_match_result.e

@@ -57,26 +57,37 @@ feature -- Query
 
 feature -- Query: url-decoded
 
-	url_decoded_query_variable (n: READABLE_STRING_8): detachable READABLE_STRING_32
+	encoded_name (n: READABLE_STRING_GENERAL): READABLE_STRING_8
+			-- URL encoded name `n' 
+			-- to be used with ..._variable functions
+		do
+			if attached {READABLE_STRING_32} n as n32 then
+				Result := url_encoded_string (n32)
+			else
+				Result := n.as_string_8
+			end
+		end
+
+	url_decoded_query_variable (n: READABLE_STRING_GENERAL): detachable READABLE_STRING_32
 			-- Unencoded value related to variable name `n'
 		do
-			if attached query_variable (n) as v then
+			if attached query_variable (encoded_name (n)) as v then
 				Result := url_decoded_string (v)
 			end
 		end
 
-	url_decoded_path_variable (n: READABLE_STRING_8): detachable READABLE_STRING_32
+	url_decoded_path_variable (n: READABLE_STRING_GENERAL): detachable READABLE_STRING_32
 			-- Unencoded value related to variable name `n'
 		do
-			if attached path_variable (n) as v then
+			if attached path_variable (encoded_name (n)) as v then
 				Result := url_decoded_string (v)
 			end
 		end
 
-	url_decoded_variable (n: READABLE_STRING_8): detachable READABLE_STRING_32
+	url_decoded_variable (n: READABLE_STRING_GENERAL): detachable READABLE_STRING_32
 			-- Unencoded value related to variable name `n'
 		do
-			if attached variable (n) as v then
+			if attached variable (encoded_name (n)) as v then
 				Result := url_decoded_string (v)
 			end
 		end
@@ -85,7 +96,12 @@ feature {NONE} -- Implementation
 
 	url_decoded_string (s: READABLE_STRING_8): READABLE_STRING_32
 		do
-			Result := url_encoder.decoded_string (s.as_string_8)
+			Result := url_encoder.decoded_string (s)
+		end
+
+	url_encoded_string (s: READABLE_STRING_32): READABLE_STRING_8
+		do
+			Result := url_encoder.encoded_string (s)
 		end
 
 	url_encoder: URL_ENCODER

library/protocol/uri_template/tests/test_uri_template_draft.e

@@ -8,53 +8,16 @@ note
 	testing: "type/manual"
 
 class
-	TEST_URI_TEMPLATE_DRAFT_05
+	TEST_URI_TEMPLATE_DRAFT
 
 inherit
-	EQA_TEST_SET
+	TEST_URI_TEMPLATE
 
-feature -- Test routines
+feature -- Expander	
-
-	test_uri_template_parser
-		note
-			testing:  "uri-template-05"
-		do
-			uri_template_parse ("api/foo/{foo_id}/{?id,extra}", <<"foo_id">>, <<"id", "extra">>)
-			uri_template_parse ("weather/{state}/{city}?forecast={day}", <<"state", "city">>, <<"day">>)
-		end
-
-	test_uri_template_matcher
-		note
-			testing:  "uri-template-05"
-		local
-			tpl: URI_TEMPLATE
-		do
-			create tpl.make ("{version}/{id}")
-			uri_template_match (tpl, "v2/123", <<["version", "v2"], ["id" , "123"]>>, <<>>)
-
-			create tpl.make ("api/{foo}{bar}/id/{id}")
-			uri_template_mismatch (tpl, "api/foobar/id/123")
-			
-			create tpl.make ("api/foo/{foo_id}/{?id,extra}")
-			uri_template_match (tpl, "api/foo/bar/", <<["foo_id", "bar"]>>, <<>>)
-			uri_template_match (tpl, "api/foo/bar/?id=123", <<["foo_id", "bar"]>>, <<["id", "123"]>>)
-			uri_template_match (tpl, "api/foo/bar/?id=123&extra=test", <<["foo_id", "bar"]>>, <<["id", "123"], ["extra", "test"]>>)
-			uri_template_match (tpl, "api/foo/bar/?id=123&extra=test&one=more", <<["foo_id", "bar"]>>, <<["id", "123"], ["extra", "test"]>>)
-			uri_template_mismatch (tpl, "")
-			uri_template_mismatch (tpl, "/")
-			uri_template_mismatch (tpl, "foo/bar/?id=123")
-			uri_template_mismatch (tpl, "/api/foo/bar/")
-			uri_template_mismatch (tpl, "api/foo/bar")
-
-			create tpl.make ("weather/{state}/{city}?forecast={day}")
-			uri_template_match (tpl, "weather/California/Goleta?forecast=today", <<["state", "California"], ["city", "Goleta"]>>, <<["day", "today"]>>)
-		end
-
-	uri_template_string_errors: detachable LIST [STRING]
 
 	test_uri_template_string_builder
 		note
-			testing:  "uri-template-05"
+			testing:  "uri-template"
 		local
 			ht: HASH_TABLE [detachable ANY, STRING]
 			empty_keys: HASH_TABLE [STRING, STRING]
@@ -115,34 +78,34 @@ feature -- Test routines
 
 			--| Simple string expansion
 			uri_template_string (ht, "{var}", "value")
-			uri_template_string (ht, "{hello}", "Hello+World%%21")
+			uri_template_string (ht, "{hello}", "Hello%%20World%%21")
 			uri_template_string (ht, "O{empty}X", "OX")
 			uri_template_string (ht, "O{undef}X", "OX")
 
 			--| String expansion with defaults
-			uri_template_string (ht, "{var|default}", "value")
+			uri_template_string (ht, "{var=default}", "value")
-			uri_template_string (ht, "O{empty|default}X", "OX")
+			uri_template_string (ht, "O{empty=default}X", "OX")
-			uri_template_string (ht, "O{undef|default}X", "OdefaultX")
+			uri_template_string (ht, "O{undef=default}X", "OdefaultX")
 
 			--| Reserved expansion with defaults
 			uri_template_string (ht, "{+var}", "value")
-			uri_template_string (ht, "{+hello}", "Hello+World!")
+			uri_template_string (ht, "{+hello}", "Hello%%20World!")
 			uri_template_string (ht, "{+path}/here", "/foo/bar/here")
 			uri_template_string (ht, "here?ref={+path}", "here?ref=/foo/bar")
 			uri_template_string (ht, "up{+path}{x}/here", "up/foo/bar1024/here")
-			uri_template_string (ht, "up{+empty|/1}/here", "up/here")
+			uri_template_string (ht, "up{+empty=/1}/here", "up/here")
-			uri_template_string (ht, "up{+undef|/1}/here", "up/1/here")
+			uri_template_string (ht, "up{+undef=/1}/here", "up/1/here")
 
 			--| String expansion with multiple variables
 			uri_template_string (ht, "{x,y}", "1024,768")
-			uri_template_string (ht, "{x,hello,y}", "1024,Hello+World%%21,768")
+			uri_template_string (ht, "{x,hello,y}", "1024,Hello%%20World%%21,768")
 			uri_template_string (ht, "?{x,empty}", "?1024,")
 			uri_template_string (ht, "?{x,undef}", "?1024")
 			uri_template_string (ht, "?{undef,y}", "?768")
-			uri_template_string (ht, "?{x,undef|0}", "?1024,0")
+			uri_template_string (ht, "?{x,undef=0}", "?1024,0")
 
 			--| Reserved expansion with multiple variables
-			uri_template_string (ht, "{+x,hello,y}", "1024,Hello+World!,768")
+			uri_template_string (ht, "{+x,hello,y}", "1024,Hello%%20World!,768")
 			uri_template_string (ht, "{+path,x}/here", "/foo/bar,1024/here")
 			--| Label expansion, dot-prefixed
 			uri_template_string (ht, "X{.var}", "X.value")
@@ -200,9 +163,9 @@ feature -- Test routines
 
    			--| Path-style parameters, semicolon-prefixed
 			uri_template_string (ht, "{;hello:5}", ";hello=Hello")
-			uri_template_string (ht, "{;list}", ";red,green,blue")
+			uri_template_string (ht, "{;list}", ";list=red,green,blue")
-			uri_template_string (ht, "{;list*}", ";red;green;blue")
+			uri_template_string (ht, "{;list*}", ";list=red;list=green;list=blue")
-			uri_template_string (ht, "{;keys}", ";semi,%%3B,dot,.,comma,%%2C")
+			uri_template_string (ht, "{;keys}", ";keys=semi,%%3B,dot,.,comma,%%2C")
 			uri_template_string (ht, "{;keys*}", ";semi=%%3B;dot=.;comma=%%2C")
 
 			--| Form-style query, ampersand-separated
@@ -218,7 +181,7 @@ feature -- Test routines
 
 	test_uri_template_string_builder_extra
 		note
-			testing:  "uri-template-05"
+			testing:  "uri-template"
 		local
 			ht: HASH_TABLE [detachable ANY, STRING]
 			empty_keys: HASH_TABLE [STRING, STRING]
@@ -278,162 +241,162 @@ feature -- Test routines
 
 			--| Addition to the spec
 			uri_template_string (ht, "api/foo/{foo_id}/{?id,extra}",
-									 "api/foo/FooBar/?id=123&extra=That%%27s+right%%21")
+									 "api/foo/FooBar/?id=123&extra=That%%27s%%20right%%21")
 
 			uri_template_string (ht, "api/foo/{foo_id}/{?id,empty,undef,extra}",
-									 "api/foo/FooBar/?id=123&empty=&extra=That%%27s+right%%21")
+									 "api/foo/FooBar/?id=123&empty=&extra=That%%27s%%20right%%21")
 
 			uri_template_string (ht, "weather/{state}/{city}?forecast={day}",
 									 "weather/California/Goleta?forecast=today")
 
 
-			uri_template_string (ht, "{var|default}", "value")
+			uri_template_string (ht, "{var=default}", "value")
-			uri_template_string (ht, "{undef|default}", "default")
+			uri_template_string (ht, "{undef=default}", "default")
-			uri_template_string (ht, "{undef:3|default}", "default")
+			uri_template_string (ht, "{undef:3=default}", "default")
 
 			uri_template_string (ht, "x{empty}y", "xy")
-			uri_template_string (ht, "x{empty|_}y", "xy")
+			uri_template_string (ht, "x{empty=_}y", "xy")
 			uri_template_string (ht, "x{undef}y", "xy")
-			uri_template_string (ht, "x{undef|_}y", "x_y")
+			uri_template_string (ht, "x{undef=_}y", "x_y")
 
-			uri_template_string (ht, "x{.name|none}", "x.Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{.name=none}", "x.Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{.name*|none}", "x.Fred.Wilma.Pebbles")
+			uri_template_string (ht, "x{.name*=none}", "x.Fred.Wilma.Pebbles")
 			uri_template_string (ht, "x{.empty}", "x.")
-			uri_template_string (ht, "x{.empty|none}", "x.")
+			uri_template_string (ht, "x{.empty=none}", "x.")
 			uri_template_string (ht, "x{.undef}", "x")
-			uri_template_string (ht, "x{.undef|none}", "x.none")
+			uri_template_string (ht, "x{.undef=none}", "x.none")
 
-			uri_template_string (ht, "x{/name|none}", "x/Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{/name=none}", "x/Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{/name*|none}", "x/Fred/Wilma/Pebbles")
+			uri_template_string (ht, "x{/name*=none}", "x/Fred/Wilma/Pebbles")
 			uri_template_string (ht, "x{/undef}", "x")
-			uri_template_string (ht, "x{/undef|none}", "x/none")
+			uri_template_string (ht, "x{/undef=none}", "x/none")
 			uri_template_string (ht, "x{/empty}", "x/")
-			uri_template_string (ht, "x{/empty|none}", "x/")
+			uri_template_string (ht, "x{/empty=none}", "x/")
 			uri_template_string (ht, "x{/empty_keys}", "x")
-			uri_template_string (ht, "x{/empty_keys|none}", "x/none")
+			uri_template_string (ht, "x{/empty_keys=none}", "x/none")
 			uri_template_string (ht, "x{/empty_keys*}", "x")
-			uri_template_string (ht, "x{/empty_keys*|none}", "x/none")
+			uri_template_string (ht, "x{/empty_keys*=none}", "x/none")
 
-			uri_template_string (ht, "x{;name|none}", "x;name=Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{;name=none}", "x;name=Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{;favs|none}", "x;favs=color,red,volume,high")
+			uri_template_string (ht, "x{;favs=none}", "x;favs=color,red,volume,high")
-			uri_template_string (ht, "x{;favs*|none}", "x;color=red;volume=high")
+			uri_template_string (ht, "x{;favs*=none}", "x;color=red;volume=high")
 			uri_template_string (ht, "x{;empty}", "x;empty")
-			uri_template_string (ht, "x{;empty|none}", "x;empty")
+			uri_template_string (ht, "x{;empty=none}", "x;empty")
 
 			uri_template_string (ht, "x{;undef}", "x")
-			uri_template_string (ht, "x{;undef|none}", "x;none")
+			uri_template_string (ht, "x{;undef=none}", "x;none")
-			uri_template_string (ht, "x{;undef|foo=y}", "x;foo=y")
+			uri_template_string (ht, "x{;undef=foo=y}", "x;foo=y")
 
-			uri_template_string (ht, "x{?var|none}", "x?var=value")
+			uri_template_string (ht, "x{?var=none}", "x?var=value")
-			uri_template_string (ht, "x{?favs|none}", "x?favs=color,red,volume,high")
+			uri_template_string (ht, "x{?favs=none}", "x?favs=color,red,volume,high")
-			uri_template_string (ht, "x{?favs*|none}", "x?color=red&volume=high")
+			uri_template_string (ht, "x{?favs*=none}", "x?color=red&volume=high")
 			uri_template_string (ht, "x{?empty}", "x?empty=")
-			uri_template_string (ht, "x{?empty|foo=none}", "x?empty=")
+			uri_template_string (ht, "x{?empty=foo=none}", "x?empty=")
 			uri_template_string (ht, "x{?undef}", "x")
-			uri_template_string (ht, "x{?undef|foo=none}", "x?foo=none")
+			uri_template_string (ht, "x{?undef=foo=none}", "x?foo=none")
 			uri_template_string (ht, "x{?empty_keys}", "x")
-			uri_template_string (ht, "x{?empty_keys|none}", "x?none")
+			uri_template_string (ht, "x{?empty_keys=none}", "x?none")
-			uri_template_string (ht, "x{?empty_keys|y=z}", "x?y=z")
+			uri_template_string (ht, "x{?empty_keys=y=z}", "x?y=z")
-			uri_template_string (ht, "x{?empty_keys*|y=z}", "x?y=z")
+			uri_template_string (ht, "x{?empty_keys*=y=z}", "x?y=z")
 
 
 			------
 
 			uri_template_string (ht, "x{empty_list}y", "xy")
-			uri_template_string (ht, "x{empty_list|_}y", "xy")
+			uri_template_string (ht, "x{empty_list=_}y", "xy")
 			uri_template_string (ht, "x{empty_list*}y", "xy")
-			uri_template_string (ht, "x{empty_list*|_}y", "x_y")
+			uri_template_string (ht, "x{empty_list*=_}y", "x_y")
 			uri_template_string (ht, "x{empty_list+}y", "xy")
-			uri_template_string (ht, "x{empty_list+|_}y", "xempty_list._y")
+			uri_template_string (ht, "x{empty_list+=_}y", "xempty_list._y")
 
 			uri_template_string (ht, "x{empty_keys}y", "xy")
-			uri_template_string (ht, "x{empty_keys|_}y", "xy")
+			uri_template_string (ht, "x{empty_keys=_}y", "xy")
 			uri_template_string (ht, "x{empty_keys*}y", "xy")
-			uri_template_string (ht, "x{empty_keys*|_}y", "x_y")
+			uri_template_string (ht, "x{empty_keys*=_}y", "x_y")
 			uri_template_string (ht, "x{empty_keys+}y", "xy")
-			uri_template_string (ht, "x{empty_keys+|_}y", "xempty_keys._y")
+			uri_template_string (ht, "x{empty_keys+=_}y", "xempty_keys._y")
 
-			uri_template_string (ht, "x{?name|none}", "x?name=Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{?name=none}", "x?name=Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{?favs|none}", "x?favs=color,red,volume,high")
+			uri_template_string (ht, "x{?favs=none}", "x?favs=color,red,volume,high")
-			uri_template_string (ht, "x{?favs*|none}", "x?color=red&volume=high")
+			uri_template_string (ht, "x{?favs*=none}", "x?color=red&volume=high")
-			uri_template_string (ht, "x{?favs+|none}", "x?favs.color=red&favs.volume=high")
+			uri_template_string (ht, "x{?favs+=none}", "x?favs.color=red&favs.volume=high")
 
 			uri_template_string (ht, "x{?undef}", "x")
-			uri_template_string (ht, "x{?undef|none}", "x?undef=none")
+			uri_template_string (ht, "x{?undef=none}", "x?undef=none")
 			uri_template_string (ht, "x{?empty}", "x?empty=")
-			uri_template_string (ht, "x{?empty|none}", "x?empty=")
+			uri_template_string (ht, "x{?empty=none}", "x?empty=")
 
 			uri_template_string (ht, "x{?empty_list}", "x")
-			uri_template_string (ht, "x{?empty_list|none}", "x?empty_list=none")
+			uri_template_string (ht, "x{?empty_list=none}", "x?empty_list=none")
 			uri_template_string (ht, "x{?empty_list*}", "x")
-			uri_template_string (ht, "x{?empty_list*|none}", "x?none")
+			uri_template_string (ht, "x{?empty_list*=none}", "x?none")
 			uri_template_string (ht, "x{?empty_list+}", "x")
-			uri_template_string (ht, "x{?empty_list+|none}", "x?empty_list.none")
+			uri_template_string (ht, "x{?empty_list+=none}", "x?empty_list.none")
 
 			uri_template_string (ht, "x{?empty_keys}", "x")
-			uri_template_string (ht, "x{?empty_keys|none}", "x?empty_keys=none")
+			uri_template_string (ht, "x{?empty_keys=none}", "x?empty_keys=none")
 			uri_template_string (ht, "x{?empty_keys*}", "x")
-			uri_template_string (ht, "x{?empty_keys*|none}", "x?none")
+			uri_template_string (ht, "x{?empty_keys*=none}", "x?none")
 			uri_template_string (ht, "x{?empty_keys+}", "x")
-			uri_template_string (ht, "x{?empty_keys+|none}", "x?empty_keys.none")
+			uri_template_string (ht, "x{?empty_keys+=none}", "x?empty_keys.none")
 
-			uri_template_string (ht, "x{;name|none}", "x;name=Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{;name=none}", "x;name=Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{;favs|none}", "x;favs=color,red,volume,high")
+			uri_template_string (ht, "x{;favs=none}", "x;favs=color,red,volume,high")
-			uri_template_string (ht, "x{;favs*|none}", "x;color=red;volume=high")
+			uri_template_string (ht, "x{;favs*=none}", "x;color=red;volume=high")
-			uri_template_string (ht, "x{;favs+|none}", "x;favs.color=red;favs.volume=high")
+			uri_template_string (ht, "x{;favs+=none}", "x;favs.color=red;favs.volume=high")
 			uri_template_string (ht, "x{;undef}", "x")
-			uri_template_string (ht, "x{;undef|none}", "x;undef=none")
+			uri_template_string (ht, "x{;undef=none}", "x;undef=none")
-			uri_template_string (ht, "x{;undef|none}", "x;none")
+			uri_template_string (ht, "x{;undef=none}", "x;none")
 			uri_template_string (ht, "x{;empty}", "x;empty")
-			uri_template_string (ht, "x{;empty|none}", "x;empty")
+			uri_template_string (ht, "x{;empty=none}", "x;empty")
 
 			uri_template_string (ht, "x{;empty_list}", "x")
-			uri_template_string (ht, "x{;empty_list|none}", "x;empty_list=none")
+			uri_template_string (ht, "x{;empty_list=none}", "x;empty_list=none")
 			uri_template_string (ht, "x{;empty_list*}", "x")
-			uri_template_string (ht, "x{;empty_list*|none}", "x;none")
+			uri_template_string (ht, "x{;empty_list*=none}", "x;none")
 			uri_template_string (ht, "x{;empty_list+}", "x")
-			uri_template_string (ht, "x{;empty_list+|none}", "x;empty_list.none")
+			uri_template_string (ht, "x{;empty_list+=none}", "x;empty_list.none")
 
 			uri_template_string (ht, "x{;empty_keys}", "x")
-			uri_template_string (ht, "x{;empty_keys|none}", "x;empty_keys=none")
+			uri_template_string (ht, "x{;empty_keys=none}", "x;empty_keys=none")
 			uri_template_string (ht, "x{;empty_keys*}", "x")
-			uri_template_string (ht, "x{;empty_keys*|none}", "x;none")
+			uri_template_string (ht, "x{;empty_keys*=none}", "x;none")
 			uri_template_string (ht, "x{;empty_keys+}", "x")
-			uri_template_string (ht, "x{;empty_keys+|none}", "x;empty_keys.none")
+			uri_template_string (ht, "x{;empty_keys+=none}", "x;empty_keys.none")
 
-			uri_template_string (ht, "x{/name|none}", "x/Fred,Wilma,Pebbles")
+			uri_template_string (ht, "x{/name=none}", "x/Fred,Wilma,Pebbles")
-			uri_template_string (ht, "x{/name*|none}", "x/Fred/Wilma/Pebbles")
+			uri_template_string (ht, "x{/name*=none}", "x/Fred/Wilma/Pebbles")
-			uri_template_string (ht, "x{/name+|none}", "x/name.Fred/name.Wilma/name.Pebbles")
+			uri_template_string (ht, "x{/name+=none}", "x/name.Fred/name.Wilma/name.Pebbles")
-			uri_template_string (ht, "x{/favs|none}", "x/color,red,volume,high")
+			uri_template_string (ht, "x{/favs=none}", "x/color,red,volume,high")
-			uri_template_string (ht, "x{/favs*|none}", "x/color/red/volume/high")
+			uri_template_string (ht, "x{/favs*=none}", "x/color/red/volume/high")
-			uri_template_string (ht, "x{/favs+|none}", "x/favs.color/red/favs.volume/high")
+			uri_template_string (ht, "x{/favs+=none}", "x/favs.color/red/favs.volume/high")
 
 			uri_template_string (ht, "x{/undef}", "x")
-			uri_template_string (ht, "x{/undef|none}", "x/none")
+			uri_template_string (ht, "x{/undef=none}", "x/none")
 			uri_template_string (ht, "x{/empty}", "x/")
-			uri_template_string (ht, "x{/empty|none}", "x/")
+			uri_template_string (ht, "x{/empty=none}", "x/")
 
 			uri_template_string (ht, "x{/empty_list}", "x")
-			uri_template_string (ht, "x{/empty_list|none}", "x/none")
+			uri_template_string (ht, "x{/empty_list=none}", "x/none")
 			uri_template_string (ht, "x{/empty_list*}", "x")
-			uri_template_string (ht, "x{/empty_list*|none}", "x/none")
+			uri_template_string (ht, "x{/empty_list*=none}", "x/none")
 			uri_template_string (ht, "x{/empty_list+}", "x")
-			uri_template_string (ht, "x{/empty_list+|none}", "x/empty_list.none")
+			uri_template_string (ht, "x{/empty_list+=none}", "x/empty_list.none")
 
 			uri_template_string (ht, "x{/empty_keys}", "x")
-			uri_template_string (ht, "x{/empty_keys|none}", "x/none")
+			uri_template_string (ht, "x{/empty_keys=none}", "x/none")
 			uri_template_string (ht, "x{/empty_keys*}", "x")
-			uri_template_string (ht, "x{/empty_keys*|none}", "x/none")
+			uri_template_string (ht, "x{/empty_keys*=none}", "x/none")
 			uri_template_string (ht, "x{/empty_keys+}", "x")
-			uri_template_string (ht, "x{/empty_keys+|none}", "x/empty_keys.none")
+			uri_template_string (ht, "x{/empty_keys+=none}", "x/empty_keys.none")
 
 				--| Simple expansion with comma-separated values
 			uri_template_string (ht, "{var}", "value")
-			uri_template_string (ht, "{hello}", "Hello+World%%21")
+			uri_template_string (ht, "{hello}", "Hello%%20World%%21")
 			uri_template_string (ht, "{path}/here", "%%2Ffoo%%2Fbar/here")
 			uri_template_string (ht, "{x,y}", "1024,768")
-			uri_template_string (ht, "{var|default}", "value")
+			uri_template_string (ht, "{var=default}", "value")
-			uri_template_string (ht, "{undef|default}", "default")
+			uri_template_string (ht, "{undef=default}", "default")
 			uri_template_string (ht, "{list}", "val1,val2,val3")
 			uri_template_string (ht, "{list*}", "val1,val2,val3")
 			uri_template_string (ht, "{list+}", "list.val1,list.val2,list.val3")
@@ -443,7 +406,7 @@ feature -- Test routines
 
 				--| Reserved expansion with comma-separated values
 			uri_template_string (ht, "{+var}", "value")
-			uri_template_string (ht, "{+hello}", "Hello+World!")
+			uri_template_string (ht, "{+hello}", "Hello%%20World!")
 			uri_template_string (ht, "{+path}/here", "/foo/bar/here")
 			uri_template_string (ht, "{+path,x}/here", "/foo/bar,1024/here")
 			uri_template_string (ht, "{+path}{x}/here", "/foo/bar1024/here")
@@ -463,16 +426,16 @@ feature -- Test routines
 			uri_template_string (ht, "{;list}", ";list=val1,val2,val3") -- DIFF
 			uri_template_string (ht, "{;list*}", ";val1;val2;val3")
 			uri_template_string (ht, "{;list+}", ";list=val1;list=val2;list=val3")
-			uri_template_string (ht, "{;keys}", ";key1,val1,key2,val2")
+			uri_template_string (ht, "{;keys}", ";keys=key1,val1,key2,val2")
 			uri_template_string (ht, "{;keys*}", ";key1=val1;key2=val2")
-			uri_template_string (ht, "{;keys+}", ";keys.key1=val1;keys.key2=val2")
+			uri_template_string (ht, "{;keys+}", ";key1=val1;key2=val2")
 
 				--| Form-style parameters, ampersand-separated
 			uri_template_string (ht, "{?x,y}", "?x=1024&y=768")
 			uri_template_string (ht, "{?x,y,empty}", "?x=1024&y=768&empty=")
 			uri_template_string (ht, "{?x,y,undef}", "?x=1024&y=768")
 			uri_template_string (ht, "{?list}", "?list=val1,val2,val3")
-			uri_template_string (ht, "{?list*}", "?val1&val2&val3")
+			uri_template_string (ht, "{?list*}", "?list=val1&list=val2&list=val3")
 			uri_template_string (ht, "{?list+}", "?list=val1&list=val2&list=val3")
 			uri_template_string (ht, "{?keys}", "?keys=key1,val1,key2,val2")
 			uri_template_string (ht, "{?keys*}", "?key1=val1&key2=val2")
@@ -487,8 +450,8 @@ feature -- Test routines
 			uri_template_string (ht, "{/list*,x}", "/val1/val2/val3/1024")
 			uri_template_string (ht, "{/list+}", "/list.val1/list.val2/list.val3")
 			uri_template_string (ht, "{/keys}", "/key1,val1,key2,val2")
-			uri_template_string (ht, "{/keys*}", "/key1/val1/key2/val2")
+			uri_template_string (ht, "{/keys*}", "/key1=val1/key2=val2")
-			uri_template_string (ht, "{/keys+}", "/keys.key1/val1/keys.key2/val2")
+			uri_template_string (ht, "{/keys+}", "/keys.key1=val1/keys.key2=val2")
 
 				--| Label expansion, dot-prefixed
 			uri_template_string (ht, "X{.var}", "X.value")
@@ -506,123 +469,17 @@ feature -- Test routines
 			uri_template_string (ht, "{foo}", "fred")
 			uri_template_string (ht, "{foo,foo}", "fred,fred")
 			uri_template_string (ht, "{bar,foo}", "fred")
-			uri_template_string (ht, "{bar|wilma}", "wilma")
+			uri_template_string (ht, "{bar=wilma}", "wilma")
 
 				--| Reserved  Expansion
-			uri_template_string (ht, "{foo2}", "That%%27s+right%%21")
+			uri_template_string (ht, "{foo2}", "That%%27s%%20right%%21")
-			uri_template_string (ht, "{+foo2}", "That%%27s+right!")
+			uri_template_string (ht, "{+foo2}", "That%%27s%%20right!")
 			uri_template_string (ht, "{base}index", "http%%3A%%2F%%2Fexample.com%%2Fhome%%2Findex")
 			uri_template_string (ht, "{+base}index", "http://example.com/home/index")
 
 			assert ("all strings built", uri_template_string_errors = Void or (attached uri_template_string_errors as err and then err.is_empty))
 		end
 
-	uri_template_string (a_ht: HASH_TABLE [detachable ANY, STRING]; a_expression: STRING; a_expected: STRING)
-		local
-			tpl: URI_TEMPLATE
-			s: STRING
-			m: STRING
-		do
-			create tpl.make (a_expression)
-			s := tpl.expanded_string (a_ht)
-			if not s.same_string (a_expected) then
-				m := "Expected string for %"" + a_expression + "%" expected=%""+ a_expected +"%" but got %"" + s + "%"%N"
-				if attached uri_template_string_errors as err then
-					print (m)
-					err.force (m)
-				else
-					assert (m, False)
-				end
-			end
-		end
-
-	uri_template_parse (s: STRING_8; path_vars: ARRAY [STRING]; query_vars: ARRAY [STRING])
-		local
-			u: URI_TEMPLATE
-			matched: BOOLEAN
-			i: INTEGER
-		do
-			create u.make (s)
-			if attached u.path_variable_names as vars then
-				matched := vars.count = path_vars.count
-				from
-					i := path_vars.lower
-					vars.start
-				until
-					not matched or i > path_vars.upper
-				loop
-					matched := vars.item.same_string (path_vars[i])
-					vars.forth
-					i := i + 1
-				end
-			else
-				matched := path_vars.is_empty
-			end
-			assert ("path variables matched", matched)
-
-			if attached u.query_variable_names as vars then
-				matched := vars.count = query_vars.count
-				from
-					i := query_vars.lower
-					vars.start
-				until
-					not matched or i > query_vars.upper
-				loop
-					matched := vars.item.same_string (query_vars[i])
-					vars.forth
-					i := i + 1
-				end
-			else
-				matched := query_vars.is_empty
-			end
-			assert ("query variables matched", matched)
-		end
-
-	uri_template_mismatch (a_uri_template: URI_TEMPLATE; a_uri: STRING)
-		local
-			l_match: detachable URI_TEMPLATE_MATCH_RESULT
-		do
-			l_match := a_uri_template.match (a_uri)
-			assert ("uri %"" + a_uri + "%" does not match template %"" + a_uri_template.template + "%"", l_match = Void)
-		end
-
-	uri_template_match (a_uri_template: URI_TEMPLATE; a_uri: STRING; path_res: ARRAY [TUPLE [name: STRING; value: STRING]]; query_res: ARRAY [TUPLE [name: STRING; value: STRING]])
-		local
-			b: BOOLEAN
-			i: INTEGER
-			l_match: detachable URI_TEMPLATE_MATCH_RESULT
-		do
-			l_match := a_uri_template.match (a_uri)
-			if l_match /= Void then
-				if attached l_match.path_variables as path_ht then
-					b := path_ht.count = path_res.count
-					from
-						i := path_res.lower
-					until
-						not b or i > path_res.upper
-					loop
-						b := attached path_ht.item (path_res[i].name) as s and then s.same_string (path_res[i].value)
-						i := i + 1
-					end
-					assert ("uri matched path variables", b)
-				end
-				if attached l_match.query_variables as query_ht then
-					b := query_ht.count >= query_res.count
-					from
-						i := query_res.lower
-					until
-						not b or i > query_res.upper
-					loop
-						b := attached query_ht.item (query_res[i].name) as s and then s.same_string (query_res[i].value)
-						i := i + 1
-					end
-					assert ("uri matched query variables", b)
-				end
-			else
-				assert ("uri matched", False)
-			end
-		end
-
 note
 	copyright: "2011-2011, Eiffel Software and others"
 	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"

library/protocol/uri_template/tests/test_uri_template_matcher.e

@@ -0,0 +1,142 @@
+note
+	description: "[
+		Eiffel tests that can be executed by testing tool.
+	]"
+	author: "EiffelStudio test wizard"
+	date: "$Date$"
+	revision: "$Revision$"
+	testing: "type/manual"
+
+class
+	TEST_URI_TEMPLATE_MATCHER
+
+inherit
+	TEST_URI_TEMPLATE
+
+feature -- Matcher
+
+	test_uri_template_matcher
+		note
+			testing:  "uri-template"
+		local
+			tpl: URI_TEMPLATE
+		do
+			create tpl.make ("/hello.{format}{/vars}")
+			uri_template_match (tpl, "/hello.json/foo/bar", <<["format", "json"], ["vars", "/foo/bar"], ["vars[1]", "foo"], ["vars[2]", "bar"]>>, <<>>)
+
+			create tpl.make ("/hello.{format}{?op}")
+			uri_template_match (tpl, "/hello.json?op=foobar", <<["format", "json"]>>, << ["op", "foobar"]>>)
+
+
+			create tpl.make ("{version}/{id}")
+			uri_template_match (tpl, "v2/123", <<["version", "v2"], ["id" , "123"]>>, <<>>)
+
+			create tpl.make ("api/{foo}{bar}/id/{id}")
+			uri_template_mismatch (tpl, "api/foobar/id/123")
+
+
+			create tpl.make ("api/foo/{foo_id}/{?id,extra}")
+			uri_template_match (tpl, "api/foo/bar/", <<["foo_id", "bar"]>>, <<>>)
+			uri_template_match (tpl, "api/foo/bar/?id=123", <<["foo_id", "bar"]>>, <<["id", "123"]>>)
+			uri_template_match (tpl, "api/foo/bar/?id=123&extra=test", <<["foo_id", "bar"]>>, <<["id", "123"], ["extra", "test"]>>)
+			uri_template_match (tpl, "api/foo/bar/?id=123&extra=test&one=more", <<["foo_id", "bar"]>>, <<["id", "123"], ["extra", "test"]>>)
+			uri_template_mismatch (tpl, "")
+			uri_template_mismatch (tpl, "/")
+			uri_template_mismatch (tpl, "foo/bar/?id=123")
+			uri_template_mismatch (tpl, "/api/foo/bar/")
+			uri_template_mismatch (tpl, "api/foo/bar")
+
+			create tpl.make ("weather/{state}/{city}?forecast={day}")
+			uri_template_match (tpl, "weather/California/Goleta?forecast=today", <<["state", "California"], ["city", "Goleta"]>>, <<["day", "today"]>>)
+
+			create tpl.make ("/hello")
+			uri_template_match (tpl, "/hello", <<>>, <<>>)
+			uri_template_mismatch (tpl, "/hello/Foo2") -- longer
+			uri_template_mismatch (tpl, "/hell") -- shorter
+
+			create tpl.make ("/hello.{format}")
+			uri_template_match (tpl, "/hello.xml", <<["format", "xml"]>>, <<>>)
+			uri_template_mismatch (tpl, "/hello.xml/Bar")
+
+
+			create tpl.make ("/hello.{format}/{name}")
+			uri_template_match (tpl, "/hello.xml/Joce", <<["format", "xml"], ["name", "Joce"]>>, <<>>)
+
+			create tpl.make ("/hello/{name}.{format}")
+			uri_template_match (tpl, "/hello/Joce.json", <<["name", "Joce"], ["format", "json"]>>, <<>>)
+
+			create tpl.make ("/hello/{name}.{format}/foo")
+			uri_template_match (tpl, "/hello/Joce.xml/foo", <<["name", "Joce"], ["format", "xml"]>>, <<>>)
+			uri_template_mismatch (tpl, "/hello/Joce.xml/fooBAR")
+
+			create tpl.make ("/hello{/vars}")
+			uri_template_match (tpl, "/hello/foo/bar", <<["vars", "/foo/bar"], ["vars[1]", "foo"], ["vars[2]", "bar"]>>, <<>>)
+
+
+--			create tpl.make ("/hello/{name}.{format}/foo{?foo};crazy={idea}")
+----			uri_template_match (tpl, "/hello/Joce.xml/foo", <<["name", "Joce"], ["format", "xml"]>>, <<>>)
+--			uri_template_match (tpl, "/hello/Joce.xml/foo?foo=FOO", <<["name", "Joce"], ["format", "xml"]>>, <<["foo", "FOO"]>>)
+--			uri_template_match (tpl, "/hello/Joce.xml/foo;crazy=IDEA",  <<["name", "Joce"], ["format", "xml"]>>, <<["idea", "IDEA"], ["crazy", "IDEA"]>>)
+
+		end
+
+feature {NONE} -- Implementations		
+
+	uri_template_mismatch (a_uri_template: URI_TEMPLATE; a_uri: STRING)
+		local
+			l_match: detachable URI_TEMPLATE_MATCH_RESULT
+		do
+			l_match := a_uri_template.match (a_uri)
+			assert ("uri %"" + a_uri + "%" does not match template %"" + a_uri_template.template + "%"", l_match = Void)
+		end
+
+	uri_template_match (a_uri_template: URI_TEMPLATE; a_uri: STRING; path_res: ARRAY [TUPLE [name: STRING; value: STRING]]; query_res: ARRAY [TUPLE [name: STRING; value: STRING]])
+		local
+			b: BOOLEAN
+			i: INTEGER
+			l_match: detachable URI_TEMPLATE_MATCH_RESULT
+		do
+			l_match := a_uri_template.match (a_uri)
+			if l_match /= Void then
+				if attached l_match.path_variables as path_ht then
+					b := path_ht.count = path_res.count
+					from
+						i := path_res.lower
+					until
+						not b or i > path_res.upper
+					loop
+						b := attached path_ht.item (path_res[i].name) as s and then s.same_string (path_res[i].value)
+						i := i + 1
+					end
+					assert ("uri %"" + a_uri + "%" matched path variables", b)
+				end
+				if attached l_match.query_variables as query_ht then
+					b := query_ht.count >= query_res.count
+					from
+						i := query_res.lower
+					until
+						not b or i > query_res.upper
+					loop
+						b := attached query_ht.item (query_res[i].name) as s and then s.same_string (query_res[i].value)
+						i := i + 1
+					end
+					assert ("uri %"" + a_uri + "%" matched query variables", b)
+				end
+			else
+				assert ("uri %"" + a_uri + "%" matched", False)
+			end
+		end
+
+note
+	copyright: "2011-2011, Eiffel Software and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+	source: "[
+			Eiffel Software
+			5949 Hollister Ave., Goleta, CA 93117 USA
+			Telephone 805-685-1006, Fax 805-685-6869
+			Website http://www.eiffel.com
+			Customer support http://support.eiffel.com
+		]"
+end
+
+

library/protocol/uri_template/tests/test_uri_template_parser.e

@@ -0,0 +1,87 @@
+note
+	description: "[
+		Eiffel tests that can be executed by testing tool.
+	]"
+	author: "EiffelStudio test wizard"
+	date: "$Date$"
+	revision: "$Revision$"
+	testing: "type/manual"
+
+class
+	TEST_URI_TEMPLATE_PARSER
+
+inherit
+	TEST_URI_TEMPLATE
+
+feature -- Parser
+
+	test_uri_template_parser
+		note
+			testing:  "uri-template"
+		do
+			uri_template_parse ("api/foo/{foo_id}/{?id,extra}", <<"foo_id">>, <<"id", "extra">>)
+			uri_template_parse ("weather/{state}/{city}?forecast={day}", <<"state", "city">>, <<"day">>)
+			uri_template_parse ("/hello/{name}.{format}", <<"name", "format">>, <<>>)
+			uri_template_parse ("/hello.{format}/{name}", <<"format", "name">>, <<>>)
+--			uri_template_parse ("/hello/{name}.{format}/foo{?foobar};crazy=IDEA",  <<"name", "format">>, <<"foobar">>)
+		end
+
+feature {NONE} -- Implementation
+
+	uri_template_parse (s: STRING_8; path_vars: ARRAY [STRING]; query_vars: ARRAY [STRING])
+		local
+			u: URI_TEMPLATE
+			matched: BOOLEAN
+			i: INTEGER
+		do
+			create u.make (s)
+			u.parse
+			assert ("Template %""+ s +"%" is valid", u.is_valid)
+			if attached u.path_variable_names as vars then
+				matched := vars.count = path_vars.count
+				from
+					i := path_vars.lower
+					vars.start
+				until
+					not matched or i > path_vars.upper
+				loop
+					matched := vars.item.same_string (path_vars[i])
+					vars.forth
+					i := i + 1
+				end
+			else
+				matched := path_vars.is_empty
+			end
+			assert ("path variables matched for %""+ s +"%"", matched)
+
+			if attached u.query_variable_names as vars then
+				matched := vars.count = query_vars.count
+				from
+					i := query_vars.lower
+					vars.start
+				until
+					not matched or i > query_vars.upper
+				loop
+					matched := vars.item.same_string (query_vars[i])
+					vars.forth
+					i := i + 1
+				end
+			else
+				matched := query_vars.is_empty
+			end
+			assert ("query variables matched %""+ s +"%"", matched)
+		end
+
+note
+	copyright: "2011-2011, Eiffel Software and others"
+	license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
+	source: "[
+			Eiffel Software
+			5949 Hollister Ave., Goleta, CA 93117 USA
+			Telephone 805-685-1006, Fax 805-685-6869
+			Website http://www.eiffel.com
+			Customer support http://support.eiffel.com
+		]"
+end
+
+

library/protocol/uri_template/tests/tests-safe.ecf

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-8-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-8-0 http://www.eiffel.com/developers/xml/configuration-1-8-0.xsd" name="test_uri_template_draft_05" uuid="6309455F-E0C7-4DCB-BF34-9C750EE4AC79" library_target="tests">
+<system xmlns="http://www.eiffel.com/developers/xml/configuration-1-10-0" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://www.eiffel.com/developers/xml/configuration-1-10-0 http://www.eiffel.com/developers/xml/configuration-1-10-0.xsd" name="test_uri_template_draft_05" uuid="C995E97E-BE7F-44BB-A38D-FE884CF837F5" library_target="tests">
 	<target name="tests">
 		<root class="ANY" feature="default_create"/>
 		<file_rule>
@@ -7,32 +7,12 @@
 			<exclude>/EIFGENs$</exclude>
 			<exclude>/.svn$</exclude>
 		</file_rule>
-		<option warning="true" full_class_checking="true" is_attached_by_default="true" void_safety="all">
+		<option warning="true" full_class_checking="true" is_attached_by_default="true" void_safety="all" syntax="transitional">
 			<assertions precondition="true"/>
 		</option>
 		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
 		<library name="testing" location="$ISE_LIBRARY\library\testing\testing-safe.ecf"/>
-		<library name="uri_template" location="../uri_template-safe.ecf"/>
+		<library name="uri_template" location="..\uri_template-safe.ecf" readonly="false"/>
-		<tests name="tests" location="." recursive="false"/>
+		<tests name="tests" location=".\"/>
-	</target>
-	<target name="tests_draft_05">
-		<root class="ANY" feature="default_create"/>
-		<file_rule>
-			<exclude>/.git$</exclude>
-			<exclude>/EIFGENs$</exclude>
-			<exclude>/.svn$</exclude>
-		</file_rule>
-		<option warning="true" full_class_checking="true" is_attached_by_default="true" void_safety="all">
-			<assertions precondition="true"/>
-		</option>
-		<variable name="uri_template" value="draft_05"/>
-		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
-		<library name="testing" location="$ISE_LIBRARY\library\testing\testing-safe.ecf"/>
-		<library name="uri_template" location="../uri_template-safe.ecf"/>
-		<tests name="tests" location="." recursive="true">
-			<file_rule>
-				<exclude>/test_uri_template.e$</exclude>
-			</file_rule>
-		</tests>
 	</target>
 </system>

library/protocol/uri_template/uri_template-safe.ecf

@@ -13,21 +13,6 @@
 		<library name="base" location="$ISE_LIBRARY\library\base\base-safe.ecf"/>
 		<library name="encoder" location="..\..\text\encoder\encoder-safe.ecf"/>
 		<library name="time" location="$ISE_LIBRARY\library\time\time-safe.ecf"/>
-		<cluster name="src" location="src\" recursive="true">
+		<cluster name="src" location="src\" recursive="true"/>
-			<file_rule>
-				<exclude>/draft_05$</exclude>
-			</file_rule>
-			<file_rule>
-				<exclude>/uri_template_constants.e</exclude>
-				<condition>
-					<custom name="uri_template" value="draft_05"/>
-				</condition>
-			</file_rule>
-		</cluster>
-		<cluster name="draft_05" location=".\src\draft_05\">
-			<condition>
-				<custom name="uri_template" value="draft_05"/>
-			</condition>
-		</cluster>
 	</target>
 </system>

library/protocol/uri_template/uri_template.ecf

@@ -16,21 +16,6 @@
 		<library name="base" location="$ISE_LIBRARY\library\base\base.ecf"/>
 		<library name="encoder" location="..\..\text\encoder\encoder.ecf"/>
 		<library name="time" location="$ISE_LIBRARY\library\time\time.ecf"/>
-		<cluster name="src" location="src\" recursive="true">
+		<cluster name="src" location="src\" recursive="true"/>
-			<file_rule>
-				<exclude>/draft_05$</exclude>
-			</file_rule>
-			<file_rule>
-				<exclude>/uri_template_constants.e</exclude>
-				<condition>
-					<custom name="uri_template" value="draft_05"/>
-				</condition>
-			</file_rule>
-		</cluster>
-		<cluster name="draft_05" location=".\src\draft_05\">
-			<condition>
-				<custom name="uri_template" value="draft_05"/>
-			</condition>
-		</cluster>
 	</target>
 </system>