luciano/babashka
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix test

Browse source
This commit is contained in:
Michiel Borkent 2020-12-21 15:00:08 +01:00
parent d1550794a3
commit 728e935973
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/babashka/main_test.clj
View file

@ -429,10 +429,10 @@
(deftest unrestricted-access
(testing "babashka is allowed to mess with built-in vars"
(is (= 1 (bb nil "
(def inc2 inc) (alter-var-root #'clojure.core/inc (constantly dec))
(let [res (inc 2)]
(alter-var-root #'clojure.core/inc (constantly inc2))
(is (= {} (bb nil "
(def assoc2 assoc) (alter-var-root #'clojure.core/assoc (constantly dissoc))
(let [res (assoc {:a 1} :a 2)]
(alter-var-root #'clojure.core/assoc (constantly assoc2))
res)")))))
(deftest pprint-test