From b5f65e10a617720d68d9208e51646bf7017e3f07 Mon Sep 17 00:00:00 2001 From: Michiel Borkent Date: Sun, 11 Oct 2020 17:02:50 +0200 Subject: [PATCH] [#611] pprint/print-table should write to sci/out --- src/babashka/impl/pprint.clj | 2 +- test/babashka/main_test.clj | 4 +++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/babashka/impl/pprint.clj b/src/babashka/impl/pprint.clj index 1c813192..06b6e6f5 100644 --- a/src/babashka/impl/pprint.clj +++ b/src/babashka/impl/pprint.clj @@ -72,7 +72,7 @@ (def pprint-namespace {'pprint (copy-var pprint pprint-ns) - 'print-table (copy-var pprint/print-table pprint-ns) + 'print-table (copy-var print-table pprint-ns) '*print-right-margin* print-right-margin 'cl-format (copy-var pprint/cl-format pprint-ns) }) diff --git a/test/babashka/main_test.clj b/test/babashka/main_test.clj index f5f3ffd0..e043b7cf 100644 --- a/test/babashka/main_test.clj +++ b/test/babashka/main_test.clj @@ -437,7 +437,9 @@ (is (= "(0 1 2 3 4 5 6 7 8 9)\n" (bb nil " (let [sw (java.io.StringWriter.)] (binding [clojure.pprint/*print-right-margin* 50] - (clojure.pprint/pprint (range 10) sw)) (str sw))"))))) + (clojure.pprint/pprint (range 10) sw)) (str sw))")))) + (testing "print-table writes to sci/out" + (is (str/includes? (test-utils/bb "(with-out-str (clojure.pprint/print-table [{:a 1} {:a 2}]))") "----")))) (deftest read-string-test (testing "namespaced keyword via alias"