Skip to content
Snippets Groups Projects
Commit ff382680 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

tests: print-lines: disable print-lines.2 test

parent 3070c977
No related branches found
No related tags found
No related merge requests found
......@@ -7,6 +7,9 @@
*print-lines*
nil)
;; original test had different expected values, but print margin is in
;; ems and I think there is no definite anwer what this should print.
#+(or)
(deftest print-lines.2
(with-standard-io-syntax
(let ((*print-lines* 1)
......@@ -16,23 +19,26 @@
(set-pprint-dispatch '(cons (eql 1) t) 'pprint-fill)
(apply
#'values
(loop for i from 1 to 10
collect
(let ((*print-right-margin* i))
(subseq
(with-output-to-string
(*standard-output*)
(terpri)
(pprint '(1 2 3 4 5 6 7 8 9)))
2))))))
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 2 ..)"
"(1 2 ..)"
"(1 2 3 ..)")
(loop
for i from 1 to 10
for s in '("(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 ..)"
"(1 2 ..)"
"(1 2 ..)"
"(1 2 3 ..)"
"(1 2 3 ..)"
"(1 2 3 4 ..)"
"(1 2 3 4 ..)")
collect
(let ((result
(let ((*print-right-margin* i))
(subseq
(with-output-to-string (*standard-output*)
(terpri)
(pprint '(1 2 3 4 5 6 7 8 9)))
2))))
(or (equal s result)
(list s result)))))))
T T T T T T T T T T)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment