Add util test

r0man · bbatsov · commit 1b5bc33d6344 · 2022-11-24T12:06:13.000+02:00
diff --git a/test/haystack/parser/util_test.clj b/test/haystack/parser/util_test.clj
@@ -0,0 +1,11 @@
+(ns haystack.parser.util-test
+  (:require
+   [clojure.test :refer [deftest is]]
+   [haystack.parser.util :as util]))
+
+(deftest safe-read-edn-test
+  (is (= nil (util/safe-read-edn "[")))
+  (is (= [1 2 3] (util/safe-read-edn "[1 2 3]")))
+  (let [{:keys [form tag]} (util/safe-read-edn "#error {:a 1}")]
+    (is (= 'error tag))
+    (is (= {:a 1} form))))
