From 5f6befc577b46bbbe3cd034a37e320e2656accdd Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sat, 19 Apr 2025 17:29:38 +0200 Subject: [PATCH] Add CachedThreadPool interop test (#1811) --- test/babashka/interop_test.clj | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/test/babashka/interop_test.clj b/test/babashka/interop_test.clj index 570da854..94d03aae 100644 --- a/test/babashka/interop_test.clj +++ b/test/babashka/interop_test.clj @@ -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\")))"))))) + +(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))"))))