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

TODO: disable :flaky tests on master branch:

Browse source
This commit is contained in:
Michiel Borkent 2023-02-01 23:00:13 +01:00
parent 76e779d0d3
commit 72dbf53df7
2 changed files with 12 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
project.clj
View file

@ -17,7 +17,8 @@
:java-source-paths ["src-java"]
:resource-paths ["resources" "sci/resources"]
:test-selectors {:default (complement :windows-only)
:windows (complement :skip-windows)}
:windows (complement :skip-windows)
:non-flaky (complement :flaky)}
:dependencies [[org.clojure/clojure "1.11.1"]
[borkdude/edamame "1.1.17"]
[borkdude/graal.locking "0.0.2"]

20
test/babashka/java_net_http_test.clj
View file

@ -62,7 +62,7 @@
;; HttpClient options
(deftest authenticator-test
(deftest ^:flaky authenticator-test
(is (= [401 200]
(bb
'(do
@ -89,7 +89,7 @@
auth-res (.send auth-client req handler)]
[(.statusCode no-auth-res) (.statusCode auth-res)]))))))
(deftest cookie-test
(deftest ^:flaky cookie-test
(is (= []
(bb '(do (ns net
(:import [java.net CookieManager]))
@ -121,7 +121,7 @@
first
(.getDomain))))))))
(deftest connect-timeout-test
(deftest ^:flaky connect-timeout-test
(is (str/includes?
(bb
'(do
@ -150,7 +150,7 @@
;; can be either java.net.http.HttpConnectTimeoutException or java.net.http.HttpTimeoutException
"TimeoutException")))
(deftest executor-test
(deftest ^:flaky executor-test
(is (= 200
(bb
'(do
@ -172,7 +172,7 @@
res (.send client req (HttpResponse$BodyHandlers/discarding))]
(.statusCode res)))))))
(deftest proxy-test
(deftest ^:flaky proxy-test
(is (= true
(bb
'(do
@ -210,7 +210,7 @@
res (.send client req (HttpResponse$BodyHandlers/discarding))]
(.statusCode res)))))))
(deftest redirect-test
(deftest ^:flaky redirect-test
(let [redirect-prog
(fn [redirect-kind]
(str/replace (str '(do
@ -244,7 +244,7 @@
(println "Testing redirect never")
(is (= 302 (bb (redirect-prog :never))))))
(deftest ssl-context-test
(deftest ^:flaky ssl-context-test
(let [result
(bb
'(do
@ -336,7 +336,7 @@
;; HttpRequest
(deftest body-publishers-test
(deftest ^:flaky body-publishers-test
(is (= true
(bb
'(do
@ -428,7 +428,7 @@
:data)))))))))
(deftest request-timeout-test
(deftest ^:flaky request-timeout-test
(is (str/includes?
(bb
'(do
@ -455,7 +455,7 @@
name))))))
"TimeoutException")))
(deftest body-handlers-test
(deftest ^:flaky body-handlers-test
(is (= true
(bb
'(do