From 1a4e6156eced2c23bf59fd64843cbf755f1355d7 Mon Sep 17 00:00:00 2001
From: onionpancakes <639985+onionpancakes@users.noreply.github.com>
Date: Mon, 19 Feb 2024 16:28:44 -0800
Subject: [PATCH] added test for vetted fn in thread macro

---
 test/dev/onionpancakes/chassis/tests/test_compiler.clj | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/test/dev/onionpancakes/chassis/tests/test_compiler.clj b/test/dev/onionpancakes/chassis/tests/test_compiler.clj
index bb5978b..7e867cc 100644
--- 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"]))