From 04cd32b84bc5209fb6f08189e34ecd1f3a8d153f Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Fri, 12 Mar 2021 10:57:43 +0100 Subject: [PATCH] [#754] Fix interop with System/out --- test/babashka/main_test.clj | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj index c590d89a..d48dea65 100644 --- a/test/babashka/main_test.clj +++ b/test/babashka/main_test.clj @@ -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