added test for vetted fn in thread macro

onionpancakes · Feb 20, 2024 · 1a4e615 · 1a4e615
1 parent 685084c
commit 1a4e615
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/test/dev/onionpancakes/chassis/tests/test_compiler.clj b/test/dev/onionpancakes/chassis/tests/test_compiler.clj
@@ -127,6 +127,10 @@
   (cc/compile [:div (select-keys {} [:foo]) "foobar"])
   (cc/compile [:div (update-keys {} identity) "foobar"])
   (cc/compile [:div (update-vals {} identity) "foobar"])
+  ;; In threaded macro
+  (cc/compile [:div (-> {}
+                        (assoc :foo "bar"))
+               "foobar"])
   ;; LocalBinded attrs literals
   (let [attrs nil]
     (cc/compile [:div attrs "foobar"]))