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 @@ ...@@ -7,6 +7,9 @@
*print-lines* *print-lines*
nil) 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 (deftest print-lines.2
(with-standard-io-syntax (with-standard-io-syntax
(let ((*print-lines* 1) (let ((*print-lines* 1)
...@@ -16,23 +19,26 @@ ...@@ -16,23 +19,26 @@
(set-pprint-dispatch '(cons (eql 1) t) 'pprint-fill) (set-pprint-dispatch '(cons (eql 1) t) 'pprint-fill)
(apply (apply
#'values #'values
(loop for i from 1 to 10 (loop
collect for i from 1 to 10
(let ((*print-right-margin* i)) for s in '("(1 ..)"
(subseq "(1 ..)"
(with-output-to-string "(1 ..)"
(*standard-output*) "(1 ..)"
(terpri) "(1 2 ..)"
(pprint '(1 2 3 4 5 6 7 8 9))) "(1 2 ..)"
2)))))) "(1 2 3 ..)"
"(1 ..)" "(1 2 3 ..)"
"(1 ..)" "(1 2 3 4 ..)"
"(1 ..)" "(1 2 3 4 ..)")
"(1 ..)" collect
"(1 ..)" (let ((result
"(1 ..)" (let ((*print-right-margin* i))
"(1 ..)" (subseq
"(1 2 ..)" (with-output-to-string (*standard-output*)
"(1 2 ..)" (terpri)
"(1 2 3 ..)") (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