blob: 6a4c395ba7f43dfd93fb17dfa5b63ec40924dc5d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
|
(use ../../../jurl)
(import spork/json)
(def body "hi")
(def res ((->> "https://pie.dev/anything"
(http :delete)
(body-plain body))))
(assert (= 200 (res :status)))
(def bres (json/decode (res :body) true))
(assert (= "DELETE" (bres :method)))
(assert (= body (bres :data)))
(assert (= "text/plain" (get-in bres [:headers :Content-Type])))
|
