Add CachedThreadPool interop test (#1811)

This commit is contained in:
Michiel Borkent 2025-04-19 17:29:38 +02:00 committed by GitHub
parent d7b0f9155d
commit 5f6befc577
No known key found for this signature in database
GPG key ID: B5690EEEBB952194

View file

@ -242,3 +242,9 @@
(bb nil (str "(.getMessage " return-throwable ")"))))))
(testing "jsoup Element"
(is (= "form" (bb nil "(.tagName (first (.getElementsByTag (org.jsoup.Jsoup/parseBodyFragment \"<form></form>\") \"form\")))")))))
(deftest cached-thread-pool
(is (= 3 (bb nil "(import '(java.util.concurrent Executors ExecutorService))
(let [fut (.submit ^ExecutorService (Executors/newCachedThreadPool)
^Callable (fn [] 3))]
(.get fut))"))))