Skip to content

Commit

Permalink
fix tests
Browse files Browse the repository at this point in the history
  • Loading branch information
borkdude committed Oct 3, 2024
1 parent f6a9bb6 commit 5202712
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions test/sci/core_test.cljc
Original file line number Diff line number Diff line change
Expand Up @@ -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*]})))
Expand Down

0 comments on commit 5202712

Please sign in to comment.