janet: improve query handling, add part-appending

also tests

2 files changed, 25 insertions, 0 deletions

diff --git a/test/03-api/03-fields/append-path.janet b/test/03-api/03-fields/append-path.janet
new file mode 100644
index 0000000..a79443a
--- /dev/null
+++ b/test/03-api/03-fields/append-path.janet
@@ -0,0 +1,9 @@
+(use ../../../jurl)
+
+(def base (http :get "https://pie.dev/status"))
+(defn- check-code
+  [code]
+  (def out ((append-path (string code) base)))
+  (assert (out :status) code) code)
+(loop [code :range [200 210]]
+  (check-code code))
diff --git a/test/03-api/03-fields/query.janet b/test/03-api/03-fields/query.janet
new file mode 100644
index 0000000..2a82b05
--- /dev/null
+++ b/test/03-api/03-fields/query.janet
@@ -0,0 +1,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"]})