blob: 2a82b0524f8837bb26fb07cf259d12ef1d2865de (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
(use ../../../jurl)
(import spork/json)
(defn test
[url queries expect]
(def r ((->> url
(http :get)
(query queries))))
(assert (= 200 (r :status)))
(def j (json/decode (r :body) true))
(def c (freeze (j :args)))
(assert (= c expect)))
(test "https://pie.dev/get" {:a :b} {:a "b"})
(test "https://pie.dev/get?c=d" {:a :b} {:a "b" :c "d"})
(test "https://pie.dev/get?a=b" {:a :c} {:a ["b" "c"]})
|
