Add CachedThreadPool interop test (#1811)
This commit is contained in:
parent
d7b0f9155d
commit
5f6befc577
1 changed files with 6 additions and 0 deletions
|
|
@ -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))"))))
|
||||
|
|
|
|||
Loading…
Reference in a new issue