[Ticket dc50cc65ea]: Accept schema names case-insensitively. Report
and patch by Harald Oehlmann. Version bumped to 1.2.3. Extended
testsuite (uri-11.0).

Author: andreas-kupries

modules/uri/ChangeLog

@@ -1,3 +1,10 @@
+2013-11-07  Andreas Kupries  <[email protected]>
+
+	* uri.tcl: [Ticket dc50cc65ea]: Accept schema names
+	* uri.test: case-insensitively. Report and patch by Harald
+	* pkgIndex.tcl: Oehlmann. Version bumped to 1.2.3. Extended
+	  testsuite (uri-11.0).
+
 2013-02-01  Andreas Kupries  <[email protected]>
 
 	*

modules/uri/pkgIndex.tcl

@@ -2,5 +2,5 @@ if {![package vsatisfies [package provide Tcl] 8.2]} {
     # FRINK: nocheck
     return
 }
-package ifneeded uri      1.2.2 [list source [file join $dir uri.tcl]]
+package ifneeded uri      1.2.3 [list source [file join $dir uri.tcl]]
 package ifneeded uri::urn 1.0.2 [list source [file join $dir urn-scheme.tcl]]

modules/uri/uri.tcl

@@ -166,7 +166,7 @@ proc ::uri::split {url {defaultscheme http}} {
     set scheme {}
 
     # RFC 1738:	scheme = 1*[ lowalpha | digit | "+" | "-" | "." ]
-    regexp -- {^([a-z0-9+.-][a-z0-9+.-]*):} $url dummy scheme
+    regexp -- {^([A-Za-z0-9+.-][A-Za-z0-9+.-]*):} $url dummy scheme
 
     if {$scheme == {}} {
 	set scheme $defaultscheme
@@ -181,7 +181,7 @@ proc ::uri::split {url {defaultscheme http}} {
 
     regsub -- "^${scheme}:" $url {} url
 
-    set       parts(scheme) $scheme
+    set       parts(scheme) [string tolower $scheme]
     array set parts [Split[string totitle $scheme] $url]
 
     # should decode all encoded characters!
@@ -1035,4 +1035,4 @@ uri::register ldap {
     variable	url		"ldap:$schemepart"
 }
 
-package provide uri 1.2.2
+package provide uri 1.2.3

modules/uri/uri.test

@@ -474,6 +474,12 @@ test uri-10.1 {uri::join bug #3235340, fragments after queries} {
 
 # -------------------------------------------------------------------------
 
+test uri-11.0 {uri::split, case-insensitive schemata, ticket dc50cc65ea} {
+    dictsort [uri::split hTTp://foo:[email protected]:80/bla/]
+} {fragment {} host baz.com path bla/ port 80 pwd bar query {} scheme http user foo}
+
+# -------------------------------------------------------------------------
+
 
 testsuiteCleanup
 return