wip

babashka · Nov 2, 2023 · 7b9e0c7 · 7b9e0c7
1 parent 8f70bfe
commit 7b9e0c7
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 3 deletions.
diff --git a/src-squint/babashka/cli/test_macros.cljc b/src-squint/babashka/cli/test_macros.cljc
@@ -70,3 +70,8 @@
 
 (defmacro is [& args]
   `(do ~@args))
+
+(defmacro thrown-with-msg? [ex-type regex body]
+  `(try ~body
+        (catch ~ex-type ~'e
+          (is (re-matches ~regex (.-message ~'e))))))
diff --git a/src/babashka/cli.cljc b/src/babashka/cli.cljc
@@ -64,7 +64,8 @@
     (nth arg 1 nil)))
 
 #?(:squint (do (def keyword identity)
-               (def symbol identity)))
+               (def symbol identity)
+               (def name identity)))
 
 (defn parse-keyword
   "Parse keyword from `s`. Ignores leading `:`."

diff --git a/test/babashka/cli_test.cljc b/test/babashka/cli_test.cljc
@@ -7,10 +7,12 @@
    #?@(:squint [["assert" :as assert]]
        :clj [[clojure.edn :as edn]]
        :cljs [[cljs.reader :as edn]]))
-  #?(:squint (:require-macros [babashka.cli.test-macros :refer [deftest is testing]])))
+  #?(:squint (:require-macros [babashka.cli.test-macros :refer [deftest is testing
+                                                                thrown-with-msg?]])))
 
 #?(:squint (do (def keyword identity)
-               (def symbol identity)))
+               (def symbol identity)
+               (def name identity)))
 
 (defn normalize-filename [s]
   (str/replace s "\\" "/"))