[#754] Fix interop with System/out

This commit is contained in:
Michiel Borkent 2021-03-12 10:57:43 +01:00
parent 686a72e1b4
commit 04cd32b84b

View file

@ -568,6 +568,10 @@
(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)")))))
(deftest stdout-interop-test
(when test-utils/native?
(is (= 'Something (bb nil "(.print (System/out) \"Something\")")))))
;;;; Scratch
(comment