From ff382680f26c554e94c189d0632723f9094bd538 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu> Date: Thu, 3 Sep 2015 11:25:14 +0200 Subject: [PATCH] tests: print-lines: disable print-lines.2 test --- printer/print-lines.lsp | 46 +++++++++++++++++++++++------------------ 1 file changed, 26 insertions(+), 20 deletions(-) diff --git a/printer/print-lines.lsp b/printer/print-lines.lsp index 5e8c2431..8e7da38d 100644 --- a/printer/print-lines.lsp +++ b/printer/print-lines.lsp @@ -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) -- GitLab