[#312 allow .getMessage on ex-info (#313)

src/babashka/impl/classes.clj

@@ -13,7 +13,8 @@
 ;;                     (identical? os :mac)))
 
 (def classes
-  '{:all [java.io.BufferedReader
+  '{:all [clojure.lang.ExceptionInfo
+          java.io.BufferedReader
           java.io.BufferedWriter
           java.io.ByteArrayInputStream
           java.io.ByteArrayOutputStream
@@ -112,8 +113,7 @@
     :methods [borkdude.graal.LockFix ;; support for locking
               ]
     :fields [clojure.lang.PersistentQueue]
-    :instance-checks [clojure.lang.ExceptionInfo
-                      clojure.lang.IObj
+    :instance-checks [clojure.lang.IObj
                       clojure.lang.IEditableCollection]
     :custom {clojure.lang.LineNumberingPushbackReader {:allPublicConstructors true
                                                        :allPublicMethods true}

test/babashka/main_test.clj

@@ -378,6 +378,9 @@
 (deftest download-and-extract-test
   (is (= 6 (bb nil (io/file "test" "babashka" "scripts" "download_and_extract_zip.bb")))))
 
+(deftest get-message-on-exception-info-test
+  (is "foo" (bb nil "(try (throw (ex-info \"foo\" {})) (catch Exception e (.getMessage e)))")))
+
 ;;;; Scratch
 
 (comment