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*]})))