From 772a6e65d0ae8641fc02c222e3d54614f77a1f1a Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Tue, 20 Feb 2024 11:19:29 +0100 Subject: [PATCH] SSLSocket test --- src/babashka/impl/classes.clj | 6 ++++-- test/babashka/interop_test.clj | 3 ++- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/src/babashka/impl/classes.clj b/src/babashka/impl/classes.clj index 84007a14..1cbdad93 100644 --- a/src/babashka/impl/classes.clj +++ b/src/babashka/impl/classes.clj @@ -729,8 +729,6 @@ java.net.URLClassLoader (instance? java.lang.ClassLoader v) java.lang.ClassLoader - (instance? java.io.Closeable v) - java.io.Closeable (instance? java.nio.file.attribute.BasicFileAttributes v) java.nio.file.attribute.BasicFileAttributes (instance? java.util.concurrent.Future v) @@ -745,6 +743,8 @@ javax.crypto.SecretKey (instance? javax.net.ssl.SSLSocketFactory v) javax.net.ssl.SSLSocketFactory + (instance? javax.net.ssl.SSLSocket v) + javax.net.ssl.SSLSocket (instance? java.lang.Thread v) java.lang.Thread (instance? java.security.cert.X509Certificate v) @@ -753,6 +753,8 @@ java.io.Console (instance? java.util.Set v) java.util.Set + (instance? java.io.Closeable v) + java.io.Closeable ;; keep commas for merge friendliness ))) m (assoc m (list 'quote 'clojure.lang.Var) 'sci.lang.Var) diff --git a/test/babashka/interop_test.clj b/test/babashka/interop_test.clj index 91a490fb..0f537d86 100644 --- a/test/babashka/interop_test.clj +++ b/test/babashka/interop_test.clj @@ -53,4 +53,5 @@ (deftest SSL-test (is (= :user/success - (bb nil "(try (.createSocket (javax.net.ssl.SSLSocketFactory/getDefault) \"localhost\" 4444) (catch java.net.ConnectException e ::success))")))) + (bb nil "(try (.createSocket (javax.net.ssl.SSLSocketFactory/getDefault) \"localhost\" 4444) (catch java.net.ConnectException e ::success))"))) + (is (bb nil " (.startHandshake (.createSocket (javax.net.ssl.SSLSocketFactory/getDefault) \"clojure.org\" 443)) ::success")))