diff --git a/project.clj b/project.clj index 6e99e405..c4aa233f 100644 --- a/project.clj +++ b/project.clj @@ -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"] diff --git a/test/babashka/java_net_http_test.clj b/test/babashka/java_net_http_test.clj index bed2b2c9..dfa8b94f 100644 --- a/test/babashka/java_net_http_test.clj +++ b/test/babashka/java_net_http_test.clj @@ -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