Don't require body for Toucan 1 style with-temp (#53)

camsaul · Jan 11, 2023 · 2661cf5 · 2661cf5
1 parent 503fb32
commit 2661cf5
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/toucan1/src/toucan/util/test.clj b/toucan1/src/toucan/util/test.clj
@@ -28,7 +28,7 @@
 (s/fdef with-temp*
   :args (s/cat :bindings (s/spec (s/+ (s/cat :model              some?
                                              :binding+properties ::binding+properties)))
-               :body     (s/+ any?))
+               :body     (s/* any?))
   :ret  any?)
 
 (defn with-temp-defaults

diff --git a/toucan1/test/toucan/util/test_test.clj b/toucan1/test/toucan/util/test_test.clj
@@ -15,4 +15,5 @@
     `(t1.u.test/with-temp* [model [{:keys [~'a]} {}]] :ok)
     `(t1.u.test/with-temp* [model [~'instance {}] model [~'instance]] :ok)
     `(t1.u.test/with-temp* [model [~'instance {}] model [~'_]] :ok)
-    `(t1.u.test/with-temp* [model [~'instance {}] model [~'instance]] :ok)))
+    `(t1.u.test/with-temp* [model [~'instance {}] model [~'instance]] :ok)
+    `(t1.u.test/with-temp* [model [~'instance {}] model [~'instance]])))