                  :ssl-client-cert cert
                  :body            body}
           response (atom {})]
-    (testing "request"
-      (letfn [(handler [r]
-               (are [k v] (= (r k) v)
-                 :server-port    8080
-                 :server-name    "foobar"
-                 :remote-addr    "127.0.0.1"
-                 :uri            "/foo"
-                 :query-string   "a=b"
-                 :scheme         :http
-                 :request-method :get
-                 :headers        {"x-client" "Foo,Bar"
-                                  "x-server" "Baz"}
-                 :content-type   "text/plain"
-                 :content-length 10
-                 :character-encoding "UTF-8"
-                 :servlet-context-path "/foo"
-                 :ssl-client-cert cert
-                 :body            body)
-               {:status 200, :headers {}})]
-        (run-servlet handler request response)))
+    (letfn [(handler [r]
+             (are [k v] (= (r k) v)
+               :server-port    8080
+               :server-name    "foobar"
+               :remote-addr    "127.0.0.1"
+               :uri            "/foo"
+               :query-string   "a=b"
+               :scheme         :http
+               :request-method :get
+               :headers        {"x-client" "Foo,Bar"
+                                "x-server" "Baz"
+                                "x-capital-i" "Qux"}
+               :content-type   "text/plain"
+               :content-length 10
+               :character-encoding "UTF-8"
+               :servlet-context-path "/foo"
+               :ssl-client-cert cert
+               :body            body)
+             {:status 200, :headers {}})]
+      (testing "request"
+        (run-servlet handler request response))
+      (testing "mapping request header names to lower case"
+        (with-locale (Locale. "tr")
+          (run-servlet handler request response))))
     (testing "response"
       (letfn [(handler [r]
                {:status  200

(ns ring.util.test.servlet
  (:use clojure.test
        ring.util.servlet))

(defn- enumeration [coll]
  (let [e (atom coll)]

                 :scheme         :http
                 :request-method :get
                 :headers        {"X-Client" ["Foo", "Bar"]
                                  "X-Server" ["Baz"]
                                  "X-Capital-I" ["Qux"]}
                 :content-type   "text/plain"
                 :content-length 10
                 :character-encoding "UTF-8"
