Clojure - test a Проход по пьедесталу

Question

Я хотел бы написать тесты для веб-сервиса Pedestal.

Если у меня есть:

(defn pong 
    [request] 
    (ring-resp/response "pong")) 

(defroutes routes[[["/" {:get pong}]]]) 

Как бы я написать тест для этого?

(deftest alive-system 
    (testing "ping-pong route" 
    ;; How do I test my route ? 
    ;; If possible : 
    ;; - I would like to have direct access to it 
    ;; ie. no need to bind pedestal to a port would be nice 
    ;; - The ability to omit some interceptors would be nice also, 
    ;; as it would allow me to receive plain Clojure data structures 
    ;; instead of, for instance, JSON which I would have to parse. 
    ...) 

Edit: Вот что я пробовал:

(deftest alive-system 
    (testing "ping-pong route" 
    (let [response (my-other.ns/routes (mock/request :get "/ping"))] 
     (is (= (:status response) 200)) 
     (is (= (:body response) "pong"))))) 

Но я получаю исключение:

ERROR in (alive-system) (service_test.clj:13) 
Uncaught exception, not in assertion. 
expected: nil 
    actual: java.lang.ClassCastException: clojure.lang.LazySeq cannot be cast to clojure.lang.IFn 

Answer 1

Так спросив по этому вопросу я связался ohpaulez ответил:

@nha - Спасибо за использование пьедестала! Извините, что ваш вопрос не получил ответ на StackOverflow - я не думаю, что кто-то следит за SO за Вопросы по пьедесталу. Лучшее место, чтобы задать такие вопросы на mailing list.

Пьедестал поставляется с собственной утилитой для создания запросов непосредственно сервлета (по аналогии с кольцом/издеваться, хотя я никогда не использовал макет сами) называется response-for. Шаблон службы пьедестала автоматически создает для вас тест . Проверьте один из samples на примере .

Также отметим, что сказал response-for еще не поддерживает асинхронных ответов (так мои маршруты, которые использует асинхронные перехватчики с core.async не удалось - я должен был сделать их синхронно).