/test/clj/reitit/pedestal_test.clj

https://github.com/metosin/reitit · Clojure · 43 lines · 40 code · 3 blank · 0 comment · 5 complexity · 5cc14fa9d1bbecf9e5be2c26bc8e4853 MD5 · raw file 

    

  1. (ns reitit.pedestal-test
    2. 

  2.   (:require [clojure.test :refer [deftest testing is]]
    3. 

  3.             [io.pedestal.test]
    4. 

  4.             [io.pedestal.http]
    5. 

  5.             [reitit.http :as http]
    6. 

  6.             [reitit.pedestal :as pedestal]
    7. 

  7.             [reitit.http.interceptors.exception :as exception]))
    8. 

  8. 

  9. (deftest arities-test
    10. 

  10.   (is (= #{0} (#'pedestal/arities (fn []))))
    11. 

  11.   (is (= #{1} (#'pedestal/arities (fn [_]))))
    12. 

  12.   (is (= #{0 1 2} (#'pedestal/arities (fn ([]) ([_]) ([_ _]))))))
    13. 

    14. 

  14. (deftest interceptor-test
    15. 

  15.   (testing "without :enter, :leave or :error are stripped"
    16. 

  16.     (is (nil? (pedestal/->interceptor {:name ::kikka}))))
    17. 

  17.   (testing ":error arities are wrapped"
    18. 

  18.     (let [has-2-arity-error? (fn [interceptor]
    19. 

  19.                                (-> interceptor
    20. 

  20.                                    (pedestal/->interceptor)
    21. 

  21.                                    (:error)
    22. 

  22.                                    (#'pedestal/arities)
    23. 

  23.                                    (contains? 2)))]
    24. 

  24.       (is (has-2-arity-error? {:error (fn [_])}))
    25. 

  25.       (is (has-2-arity-error? {:error (fn [_ _])}))
    26. 

  26.       (is (has-2-arity-error? {:error (fn [_ _ _])}))
    27. 

  27.       (is (has-2-arity-error? {:error (fn ([_]) ([_ _]))})))))
    28. 

  28. 

  29. (deftest pedestal-e2e-test
    30. 

  30.   (let [router (pedestal/routing-interceptor
    31. 

  31.                  (http/router
    32. 

  32.                    [""
    33. 

  33.                     {:interceptors [{:name :nop} (exception/exception-interceptor)]}
    34. 

  34.                     ["/ok" (fn [_] {:status 200, :body "ok"})]
    35. 

  35.                     ["/fail" (fn [_] (throw (ex-info "kosh" {})))]]))
    36. 

  36.         service (-> {:io.pedestal.http/request-logger nil
    37. 

  37.                      :io.pedestal.http/routes []}
    38. 

  38.                     (io.pedestal.http/default-interceptors)
    39. 

  39.                     (pedestal/replace-last-interceptor router)
    40. 

  40.                     (io.pedestal.http/create-servlet)
    41. 

  41.                     (:io.pedestal.http/service-fn))]
    42. 

  42.     (is (= "ok" (:body (io.pedestal.test/response-for service :get "/ok"))))
    43. 

  43.     (is (= 500 (:status (io.pedestal.test/response-for service :get "/fail"))))))
    44.