From d3fcf8d56122514c3dcbac004fcf105a4e899352 Mon Sep 17 00:00:00 2001
From: sostler <sbostler@gmail.com>
Date: Wed, 10 Feb 2010 01:08:44 -0500
Subject: Added custom compojure tree

---
 compojure-3.2/test/compojure/http/request_test.clj | 51 ++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100755 compojure-3.2/test/compojure/http/request_test.clj

(limited to 'compojure-3.2/test/compojure/http/request_test.clj')

diff --git a/compojure-3.2/test/compojure/http/request_test.clj b/compojure-3.2/test/compojure/http/request_test.clj
new file mode 100755
index 0000000..5b19dc3
--- /dev/null
+++ b/compojure-3.2/test/compojure/http/request_test.clj
@@ -0,0 +1,51 @@
+(ns compojure.http.request-test
+  (:use compojure.http.request
+        clojure.contrib.test-is
+        test.helpers))
+
+(deftest query-params
+  (are (= (parse-query-params {:query-string _1}) _2)
+    "a=1"     {:a "1"}
+    "a=1&b=2" {:a "1", :b "2"}))
+
+(deftest query-params-plus
+  (is (= (parse-query-params {:query-string "a=1+2"})
+         {:a "1 2"})))
+
+(deftest query-params-space
+  (is (= (parse-query-params {:query-string "a=1%202"})
+         {:a "1 2"})))
+
+(deftest query-params-invalid
+  (are (= (parse-query-params {:query-string _1}) _2)
+    ""      {}
+    "="     {}
+    "=1"    {}
+    "a=1&=" {:a "1"}))
+
+(deftest urlencoded-charset
+  (is (urlencoded-form?
+        {:content-type "application/x-www-form-urlencoded; charset=UTF8"})))
+
+(deftest form-params
+  (are (= (parse-form-params (form-request _1)) _2)
+    "a=1"     {:a "1"}
+    "a=1&b=2" {:a "1", :b "2"}))
+
+(deftest assoc-params-empty
+  (is (= (assoc-params {})
+         {:form-params {}, :query-params {}, :params {}})))
+
+(deftest assoc-params-merge
+  (let [request {:form-params {:a "1"}, :query-params {:b "2"}}]
+    (is (= (assoc-params request)
+           (assoc request :params {:a "1", :b "2"})))))
+
+(deftest assoc-params-twice
+  (let [request (form-request "a=1")]
+    (is (= (:form-params (-> request assoc-params assoc-params))
+           {:a "1"}))))
+
+(deftest request-cookies
+  (is (= (parse-cookies {:headers {"cookie" "a=1;b=2"}})
+         {:a "1", :b "2"})))
-- 
cgit v1.2.3-70-g09d2