From 9b98caa995fe542521c232ae016a411eeb86fea8 Mon Sep 17 00:00:00 2001 From: David Williams Date: Thu, 7 Jan 2016 14:23:49 +0000 Subject: [PATCH] Fixes #19 - Prevent sorting of query params blowing up when string and keyword keys are used. Add test case. --- src/cemerick/url.cljx | 2 +- test/cemerick/test_url.cljx | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cemerick/url.cljx b/src/cemerick/url.cljx index 75ff53d..9ffb88c 100644 --- a/src/cemerick/url.cljx +++ b/src/cemerick/url.cljx @@ -29,11 +29,11 @@ (defn map->query [m] (some->> (seq m) - sort ; sorting makes testing a lot easier :-) (map (fn [[k v]] [(url-encode (name k)) "=" (url-encode (str v))])) + sort ; sorting makes testing a lot easier :-) (interpose "&") flatten (apply str))) diff --git a/test/cemerick/test_url.cljx b/test/cemerick/test_url.cljx index fe2e6d1..1cde4a1 100644 --- a/test/cemerick/test_url.cljx +++ b/test/cemerick/test_url.cljx @@ -11,6 +11,7 @@ (deftest test-map-to-query-str (are [x y] (= x (map->query y)) "a=1&b=2&c=3" {:a 1 :b 2 :c 3} + "a=1&b=2&c=3" {:a 1 "b" 2 :c 3} "a=1&b=2&c=3" {:a "1" :b "2" :c "3"} "a=1&b=2" {"a" "1" "b" "2"} "a=" {"a" ""}))