[#221] print name of exception

src/babashka/main.clj

@@ -247,7 +247,9 @@ Everything after that is bound to *command-line-args*."))
       (if exit-code [nil exit-code]
           (do (if verbose?
                 (print-stack-trace e)
-                (println (.getMessage e)))
+                (println (str (.. e getClass getName)
+                              (when-let [m (.getMessage e)]
+                                (str ": " m)) )))
               (flush)
               [nil 1])))))
 

test/babashka/main_test.clj

@@ -21,6 +21,10 @@
     (is (thrown-with-msg? Exception #"does not exist" (bb nil "foo.clj")))
     (is (thrown-with-msg? Exception #"does not exist" (bb nil "-help")))))
 
+(deftest print-error-test
+  (is (thrown-with-msg? Exception #"java.lang.NullPointerException"
+                        (bb nil "(subs nil 0 0)"))))
+
 (deftest main-test
   (testing "-io behaves as identity"
     (= "foo\nbar\n" (test-utils/bb "foo\nbar\n" "-io" "*input*")))