Add clojure clj-http tests

Author: tggreene

test/fixtures/available-targets.json

@@ -221,6 +221,20 @@
       }
     ]
   },
+  {
+    "key": "clojure",
+    "title": "Clojure",
+    "extname": ".clj",
+    "default": "clj_http",
+    "clients": [
+      {
+        "key": "clj_http",
+        "title": "clj-http",
+        "link": "https://github.com/dakrone/clj-http",
+        "description": "An idiomatic clojure http client wrapping the apache client."
+      }
+    ]
+  },
   {
     "key": "c",
     "title": "C",

test/fixtures/output/clojure/clj_http/application-form-encoded.clj

@@ -0,0 +1,4 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:form-params {:foo "bar"
+                                                     :hello "world"}})

test/fixtures/output/clojure/clj_http/application-json.clj

@@ -0,0 +1,9 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:content-type :json
+                                       :form-params {:number 1
+                                                     :string "f\"oo"
+                                                     :arr [1 2 3]
+                                                     :nested {:a "b"}
+                                                     :arr_mix [1 "a" {:arr_mix_nested {}}]
+                                                     :boolean false}})

test/fixtures/output/clojure/clj_http/cookies.clj

@@ -0,0 +1,3 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:headers {:cookie "foo=bar; bar=baz"}})

test/fixtures/output/clojure/clj_http/custom-method.clj

@@ -0,0 +1 @@
+Method not supported

test/fixtures/output/clojure/clj_http/full.clj

@@ -0,0 +1,8 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:headers {:cookie "foo=bar; bar=baz"}
+                                       :query-params {:foo ["bar" "baz"]
+                                                      :baz "abc"
+                                                      :key "value"}
+                                       :form-params {:foo "bar"}
+                                       :accept :json})

test/fixtures/output/clojure/clj_http/headers.clj

@@ -0,0 +1,4 @@
+(require '[clj-http.client :as client])
+
+(client/get "http://mockbin.com/har" {:headers {:x-foo "Bar"}
+                                      :accept :json})

test/fixtures/output/clojure/clj_http/https.clj

@@ -0,0 +1,3 @@
+(require '[clj-http.client :as client])
+
+(client/get "https://mockbin.com/har")

test/fixtures/output/clojure/clj_http/multipart-data.clj

@@ -0,0 +1,4 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:multipart [{:name "foo"
+                                                    :content "Hello World"}]})

test/fixtures/output/clojure/clj_http/multipart-file.clj

@@ -0,0 +1,4 @@
+(require '[clj-http.client :as client])
+
+(client/post "http://mockbin.com/har" {:multipart [{:name "foo"
+                                                    :content (clojure.java.io/file "test/fixtures/files/hello.txt")}]})