This commit is contained in:
Michiel Borkent 2021-03-12 10:52:11 +01:00
parent 45faf1ec63
commit 38c7bc1c17

View file

@ -565,7 +565,8 @@
(deftest var-print-method-test
(when test-utils/native?
(is (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1) (= \":foouser/x\" (pr-str #'x))"))))
(is (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1) (= \":foouser/x\" (pr-str #'x))"))
(is (= :foouser/x (bb nil "(defmethod print-method sci.lang.IVar [o w] (.write w (str :foo (symbol o)))) (def x 1)")))))
;;;; Scratch