77768cec67
We can now use the dynamic var `*print-namespace-maps*` to control how maps with namespaced keys are printed using `pprint`. Fixes: #1381
22 lines
931 B
Clojure
22 lines
931 B
Clojure
(ns babashka.pprint-test
|
|
(:require
|
|
[babashka.test-utils :as test-utils]
|
|
[clojure.string :as str]
|
|
[clojure.test :as test :refer [deftest is]]))
|
|
|
|
(defn bb [& args]
|
|
(str/trim (apply test-utils/bb (map str args))))
|
|
|
|
(deftest print-length-test
|
|
(is (= "(0 1 2 3 4 5 6 7 8 9 ...)"
|
|
(bb "-e" "(set! *print-length* 10) (clojure.pprint/pprint (range 20))"))))
|
|
|
|
(deftest print-namespaced-map-test
|
|
(test/testing
|
|
"Testing disabling of printing namespace maps..."
|
|
(is (= "{:a/x 1, :a/y 2, :a/z {:b/x 10, :b/y 20}}"
|
|
(bb "-e" "(binding [*print-namespace-maps* false] (clojure.pprint/pprint {:a/x 1 :a/y 2 :a/z {:b/x 10 :b/y 20}}))"))))
|
|
(test/testing
|
|
"Testing manually enabling printing namespace maps..."
|
|
(is (= "#:a{:x 1, :y 2, :z #:b{:x 10, :y 20}}"
|
|
(bb "-e" "(binding [*print-namespace-maps* true] (clojure.pprint/pprint {:a/x 1 :a/y 2 :a/z {:b/x 10 :b/y 20}}))")))))
|