blob: 81909a564b1a5955dc397de403296cfa4da9f8bb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(use ../../../jurl)
(import spork/json)
(def one (->> "https://pie.dev/cookies"
(http :get)
(cookies {:a :b})))
(def two (->> one
(cookies {:a :c
:b :d})))
(def rone (one))
(assert (= 200 (rone :status)))
(def rtwo (two))
(assert (= 200 (rtwo :status)))
(def jone ((json/decode (rone :body) true) :cookies))
(def jtwo ((json/decode (rtwo :body) true) :cookies))
(assert (= (freeze jone) {:a "b"}))
(assert (= (freeze jtwo) {:a "c"
:b "d"}))
|
