add teapot functionality

src/ring/util/http_response.clj

@@ -583,6 +583,32 @@
       :headers {}
       :body body})))
 
+(defn im-a-teapot
+  "418 I'm a teapot (ClientError)
+  Any attempt to brew coffee with a teapot should result in the error
+   code \"418 I'm a teapot\". The resulting entity body MAY be short and
+   stout. "
+  ([] (expectation-failed nil))
+  ([body]
+   {:status 418
+    :headers {}
+    :body body}))
+
+(defn im-a-teapot!
+  "418 I'm a teapot (ClientError)
+  Any attempt to brew coffee with a teapot should result in the error
+   code \"418 I'm a teapot\". The resulting entity body MAY be short and
+   stout.
+  Throws an exception with ex-info:
+  {:type :ring.util.http-response/response
+   :response response}"
+  ([] (expectation-failed! nil))
+  ([body]
+   (throw!
+    {:status 418
+     :headers {}
+     :body body})))
+
 (defn enhance-your-calm
   "420 Enhance Your Calm (ClientError)
   You are being rate-limited."
@@ -1122,7 +1148,7 @@
 
 (defn network-read-timeout!
   "598 Network read timeout (ServerError)
-  
+
   Throws an exception with ex-info:
   {:type :ring.util.http-response/response
    :response response}"
@@ -1144,7 +1170,7 @@
 
 (defn network-connect-timeout!
   "599 Network connect timeout (ServerError)
-  
+
   Throws an exception with ex-info:
   {:type :ring.util.http-response/response
    :response response}"
@@ -1228,4 +1254,3 @@
 (if-not (ns-resolve 'ring.util.response 'get-charset)
   (println "Can't import ring.util.response/get-charset, try updating to Ring 1.6.0+"))
 (p/import-vars [ring.util.response get-charset])
-

test/ring/util/http_response_test.clj

@@ -51,6 +51,7 @@
     (is (= {:status 415 :headers {} :body "body"} (unsupported-media-type "body")))
     (is (= {:status 416 :headers {} :body "body"} (requested-range-not-satisfiable "body")))
     (is (= {:status 417 :headers {} :body "body"} (expectation-failed "body")))
+    (is (= {:status 418 :headers {} :body "body"} (im-a-teapot "body")))
     (is (= {:status 420 :headers {} :body "body"} (enhance-your-calm "body")))
     (is (= {:status 422 :headers {} :body "body"} (unprocessable-entity "body")))
     (is (= {:status 423 :headers {} :body "body"} (locked "body")))
@@ -120,6 +121,7 @@
     (is (slingshots? {:status 415 :headers {} :body "body"} (unsupported-media-type! "body")))
     (is (slingshots? {:status 416 :headers {} :body "body"} (requested-range-not-satisfiable! "body")))
     (is (slingshots? {:status 417 :headers {} :body "body"} (expectation-failed! "body")))
+    (is (slingshots? {:status 418 :headers {} :body "body"} (im-a-teapot! "body")))
     (is (slingshots? {:status 420 :headers {} :body "body"} (enhance-your-calm! "body")))
     (is (slingshots? {:status 422 :headers {} :body "body"} (unprocessable-entity! "body")))
     (is (slingshots? {:status 423 :headers {} :body "body"} (locked! "body")))