Made header-seq test more concise

mmcgrana · 1d75558a3357821b2f3e3e0056d127833f4da883 · weavejester committed Jan 14, 2012 · Jan 14, 2012 · 1d75558
1 parent 771706c
commit 1d75558a3357821b2f3e3e0056d127833f4da883
Unified Split

Showing with 4 additions and 12 deletions.

+4 −12 ring-core/test/ring/util/test/request.clj
@@ -3,15 +3,7 @@
         ring.util.request))
 
 (deftest test-header-seq
-  (are [r k hs] (= (header-seq r k) hs)
-    {:headers {"accept" "text/html, text/xml"}}
-    "accept"
-    ["text/html" "text/xml"]
-
-    {:headers {"content-type" "text/html"}}
-    "content-type"
-    ["text/html"]
-
-    {:headers {}}
-    "x-foo"
-    nil))
+  (are [k v hs] (= (header-seq {:headers {k v}} k) hs)
+    "accept" "text/html, text/xml" ["text/html" "text/xml"]
+    "content-type" "text/html" ["text/html"]
+    "x-foo" nil nil))