Add recur tail tests

babashka · Oct 11, 2024 · 09589dd · 09589dd
1 parent 9aebc2b
commit 09589dd
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/test/sci/core_test.cljc b/test/sci/core_test.cljc
@@ -715,7 +715,9 @@
     (it-works '(fn [] (and 1 2 3 (recur))))
     (is (thrown-with-msg?
          Exception #"Cannot recur across try"
-         (sci/eval-string "(defn foo [] (try (recur)))")))))
+         (sci/eval-string "(defn foo [] (try (recur)))")))
+    #?(:clj (do (throws-tail-ex '(String/new (recur)))
+                (throws-tail-ex '(String/.length (recur)))))))
 
 (deftest loop-test
   (is (= 2 (tu/eval* "(loop [[x y] [1 2]] (if (= x 3) y (recur [(inc x) y])))" {})))