From de84c91d1aa1d1a205cf5b77b35d48c22f6c6fbe Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 28 Jun 2005 19:57:19 +0000 Subject: [PATCH] URI query tags case-sensitive svn: r262 --- collects/net/uri-codec-unit.ss | 1 - collects/tests/mzscheme/net.ss | 3 +++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/net/uri-codec-unit.ss b/collects/net/uri-codec-unit.ss index acbf0e3832..5c141f5127 100644 --- a/collects/net/uri-codec-unit.ss +++ b/collects/net/uri-codec-unit.ss @@ -247,7 +247,6 @@ (match (regexp-match-positions key-regexp str start) [((start . end)) (vector (let ([s (form-urlencoded-decode (substring str start end))]) - (string-lowercase! s) (string->symbol s)) (add1 end))] [#f #f]))) diff --git a/collects/tests/mzscheme/net.ss b/collects/tests/mzscheme/net.ss index 7f39274eae..9b2a482430 100644 --- a/collects/tests/mzscheme/net.ss +++ b/collects/tests/mzscheme/net.ss @@ -33,6 +33,9 @@ (test '((a . "hel+lo;b=good-bye")) form-urlencoded->alist (parameterize ([current-alist-separator-mode 'semi]) (alist->form-urlencoded '((a . "hel+lo") (b . "good-bye")))))) +(test "aNt=hi" alist->form-urlencoded '((aNt . "hi"))) +(test '((aNt . "hi")) form-urlencoded->alist (alist->form-urlencoded '((aNt . "hi")))) +(test "aNt=hi" alist->form-urlencoded (form-urlencoded->alist "aNt=hi")) (test 'amp-or-semi current-alist-separator-mode) (err/rt-test (current-alist-separator-mode 'bad))