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

Fix lib-tests

Browse source
This commit is contained in:
Michiel Borkent 2020-06-27 11:31:05 +02:00
parent 3631dba590
commit ede2916c6b
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
test-resources/lib_tests/babashka/run_all_libtests.clj
View file

@ -1,6 +1,6 @@
(ns babashka.run-all-libtests
(:require [clojure.test :as t]
[clojure.java.io :as io]))
(:require [clojure.java.io :as io]
[clojure.test :as t]))
(def status (atom {}))
@ -16,23 +16,25 @@
(require '[clj-http.lite.client :as client])
(require '[cheshire.core :as json])
(prn (:status (client/get "https://www.clojure.org")))
(prn (:status (client/get "https://www.clojure.org" {:throw-exceptions false})))
(prn (:status (client/get "https://postman-echo.com/get?foo1=bar1&foo2=bar2")))
(prn (:status (client/get "https://postman-echo.com/get?foo1=bar1&foo2=bar2" {:throw-exceptions false})))
(prn (:status (client/post "https://postman-echo.com/post")))
(prn (:status (client/post "https://postman-echo.com/post" {:throw-exceptions false})))
(prn (:status (client/post "https://postman-echo.com/post"
{:body (json/generate-string {:a 1})
:headers {"X-Hasura-Role" "admin"}
:content-type :json
:accept :json})))
:accept :json
:throw-exceptions false})))
(prn (:status (client/put "https://postman-echo.com/put"
{:body (json/generate-string {:a 1})
:headers {"X-Hasura-Role" "admin"}
:content-type :json
:accept :json})))
:accept :json
:throw-exceptions false})))
;;;; spartan.spec