[#754] Fix interop with System/out
This commit is contained in:
parent
686a72e1b4
commit
04cd32b84b
1 changed files with 4 additions and 0 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in a new issue