blob: ea015d2c5c66bd0c03f3572c604369329080fdfd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
(use ../../../jurl)
(import spork/json)
(def fone "file 1")
(def ftwo "file 2")
# POST
(def one (->> "https://pie.dev/post"
(http :post)
# the way to do file uploads in post is with mime/multipart
(body [{:name "one"
:data fone
:filename "remote.file"}
{:name "two"
:data ftwo
:filename "other.remote"}])))
(def two (->> one
# multipart mimes come as a bundle, so this overwrites
(body [{:name "one"
:data fone
:filename "remote.file"}])))
(def rone (one))
(assert (= 200 (rone :status)))
(def rtwo (two))
(assert (= 200 (rtwo :status)))
(def jone ((json/decode (rone :body) true) :files))
(def jtwo ((json/decode (rtwo :body) true) :files))
(assert (= fone (jone :one)))
(assert (= ftwo (jone :two)))
(assert (= fone (jtwo :one)))
(assert (= :nothing (get jtwo :two :nothing)))
# PUT
(def pst (->> "https://pie.dev/put"
(http :put)
(body-plain fone)))
(def rpst (pst))
(assert (= 200 (rpst :status)))
(def jpst (json/decode (rpst :body) true))
(assert (= fone (jpst :data)))
|
