luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix babashka.curl test

Browse source
This commit is contained in:
Michiel Borkent 2020-04-04 12:39:07 +02:00
parent 58de38c073
commit 62014c0e74
3 changed files with 22 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
script/lib_tests/babashka_curl_test
View file

@ -11,23 +11,23 @@ else
fi fi
$BB_CMD -e " $BB_CMD -e "
(require '[babashka.curl :as curl]) (require '[babashka.curl :as curl] :reload-all)
(prn (subs (curl/get \"https://www.clojure.org\") 0 10)) (prn (:status (curl/get \"https://www.clojure.org\")))
(prn (subs (curl/get \"https://postman-echo.com/get?foo1=bar1&foo2=bar2\") 0 10)) (prn (:status (curl/get \"https://postman-echo.com/get?foo1=bar1&foo2=bar2\")))
(prn (subs (curl/post \"https://postman-echo.com/post\") 0 10)) (prn (:status (curl/post \"https://postman-echo.com/post\")))
(prn (subs (curl/post \"https://postman-echo.com/post\" (prn (:status (curl/post \"https://postman-echo.com/post\"
{:body (json/generate-string {:a 1}) {:body (json/generate-string {:a 1})
:headers {\"X-Hasura-Role\" \"admin\"} :headers {\"X-Hasura-Role\" \"admin\"}
:content-type :json :content-type :json
:accept :json}) 0 10)) :accept :json})))
(prn (subs (curl/put \"https://postman-echo.com/put\" (prn (:status (curl/put \"https://postman-echo.com/put\"
{:body (json/generate-string {:a 1}) {:body (json/generate-string {:a 1})
:headers {\"X-Hasura-Role\" \"admin\"} :headers {\"X-Hasura-Role\" \"admin\"}
:content-type :json :content-type :json
:accept :json}) 0 10)) :accept :json})))
" "

1
src/babashka/impl/classes.clj
View file

@ -23,6 +23,7 @@
java.io.IOException java.io.IOException
java.io.OutputStream java.io.OutputStream
java.io.FileReader java.io.FileReader
java.io.PushbackInputStream
java.io.Reader java.io.Reader
java.io.StringReader java.io.StringReader
java.io.StringWriter java.io.StringWriter

20
src/babashka/impl/curl.clj
View file

@ -1,12 +1,16 @@
(ns babashka.impl.curl (ns babashka.impl.curl
{:no-doc true} {:no-doc true}
(:require [babashka.curl :as curl])) (:require [babashka.curl :as curl]
[sci.impl.namespaces :refer [copy-var]]
[sci.impl.vars :as vars]))
(def tns (vars/->SciNamespace 'babashka.curl nil))
(def curl-namespace (def curl-namespace
{'request curl/request {'request (copy-var curl/request tns)
'get curl/get 'get (copy-var curl/get tns)
'patch curl/patch 'patch (copy-var curl/patch tns)
'post curl/post 'post (copy-var curl/post tns)
'put curl/put 'put (copy-var curl/put tns)
'head curl/head 'head (copy-var curl/head tns)
'curl-command curl/curl-command}) 'curl-command (copy-var curl/curl-command tns)})