luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Adapt httpkit test

Browse source
This commit is contained in:
Michiel Borkent 2024-08-10 12:54:17 +02:00
parent ed282f452e
commit 1266988547
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test-resources/lib_tests/httpkit/client_test.clj
View file

@ -1,5 +1,6 @@
(ns httpkit.client-test (ns httpkit.client-test
(:require [cheshire.core :as json] (:require [cheshire.core :as json]
[clojure.string :as str]
[clojure.test :refer [deftest is testing #_*report-counters*]] [clojure.test :refer [deftest is testing #_*report-counters*]]
[org.httpkit.client :as client])) [org.httpkit.client :as client]))
@ -16,12 +17,13 @@
(deftest get-test (deftest get-test
(is (= 200 (:status @(client/get "https://postman-echo.com/get")))) (is (= 200 (:status @(client/get "https://postman-echo.com/get"))))
(is (= "https://postman-echo.com/get" (is (str/includes?
(-> @(client/get "https://postman-echo.com/get" (-> @(client/get "https://postman-echo.com/get"
{:headers {"Accept" "application/json"}}) {:headers {"Accept" "application/json"}})
:body :body
(json/parse-string true) (json/parse-string true)
:url))) :url)
"postman-echo.com/get"))
(testing "query params" (testing "query params"
(is (= {:foo1 "bar1", :foo2 "bar2"} (is (= {:foo1 "bar1", :foo2 "bar2"}
(-> @(client/get "https://postman-echo.com/get" {:query-params {"foo1" "bar1" "foo2" "bar2"}}) (-> @(client/get "https://postman-echo.com/get" {:query-params {"foo1" "bar1" "foo2" "bar2"}})