meta: add tests for slurp and spit

2 files changed, 22 insertions, 0 deletions

diff --git a/test/03-api/04-slurpit/slurp.janet b/test/03-api/04-slurpit/slurp.janet
new file mode 100644
index 0000000..11768f3
--- /dev/null
+++ b/test/03-api/04-slurpit/slurp.janet
@@ -0,0 +1,8 @@
+(use ../../../jurl)
+(import spork/json)
+
+(def body (-> "https://pie.dev/get"
+              (slurp :opts {:headers {:a :b}})
+              (json/decode true)))
+(assert (= "b"
+           (get-in body [:headers :A] :not-b)))
diff --git a/test/03-api/04-slurpit/spit.janet b/test/03-api/04-slurpit/spit.janet
new file mode 100644
index 0000000..c67d179
--- /dev/null
+++ b/test/03-api/04-slurpit/spit.janet
@@ -0,0 +1,14 @@
+(use ../../../jurl)
+(import spork/json)
+
+(def data "data")
+(def body (-> "https://pie.dev/post"
+              (spit data)
+              (json/decode true)))
+(assert (= data (body :data)))
+
+(def data @{:a "b"})
+(def body (-> "https://pie.dev/post"
+              (spit (json/encode data) :content-type :application/json)
+              (json/decode true)))
+(assert (deep= data (body :json)))