From 5202712fc8e8aa6515674a9d3d5e90caecf3b488 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Thu, 3 Oct 2024 21:05:36 +0200 Subject: [PATCH] fix tests --- test/sci/core_test.cljc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test/sci/core_test.cljc b/test/sci/core_test.cljc index d9a0b0e6..c361593e 100644 --- a/test/sci/core_test.cljc +++ b/test/sci/core_test.cljc @@ -469,8 +469,8 @@ (is (= 3 ((tu/eval* "(fn [x] (if (> x 1) (inc x)))" {:allow '[fn fn* if > inc]}) 2)))) (is (tu/eval* (str (list `#(inc %) 10)) {:allow '[fn* inc]})) (is (tu/eval* (str (list `#(let [x %] x) 10)) {:allow '[fn* let let*]})) - (is (tu/eval* "(impl/mapv inc [1 2 3])" {:allow '[impl/mapv inc] - :namespaces {'impl {'mapv mapv}}})) + (is (= [2 3 4] (sci/eval-string "(impl/mapv inc [1 2 3])" {:allow '[impl/mapv inc] + :namespaces {'impl {'mapv mapv}}}))) (is (thrown-with-msg? #?(:clj Exception :cljs js/Error) #"allowed" (tu/eval* "(loop [] (recur))" {:deny '[loop*]})))