File tree Expand file tree Collapse file tree 2 files changed +6
-4
lines changed
test/clojure/test_clojure Expand file tree Collapse file tree 2 files changed +6
-4
lines changed Original file line number Diff line number Diff line change 10
10
11
11
(ns clojure.test-clojure.pprint
12
12
(:refer-clojure :exclude [format])
13
+ (:require [clojure.string :as str])
13
14
(:use [clojure.test :only (deftest is are run-tests )]
14
15
[clojure.test-helper :only [platform-newlines]]
15
16
clojure.test-clojure.pprint.test-helper
Original file line number Diff line number Diff line change @@ -130,10 +130,11 @@ Usage: *hello*
130
130
`(simple-tests ~test-name
131
131
~@(apply concat
132
132
(for [block blocks]
133
- `[(with-out-str
134
- (with-pprint-dispatch code-dispatch
135
- (pprint (read-string ~block))))
136
- (str ~block " \n " )]))))
133
+ `[(str/split-lines
134
+ (with-out-str
135
+ (with-pprint-dispatch code-dispatch
136
+ (pprint (read-string ~block)))))
137
+ (str/split-lines ~block)]))))
137
138
138
139
(code-block code-block-tests
139
140
" (defn cl-format
You can’t perform that action at this time.
0 commit comments