diff --git a/ansi-tests/pprint-tabular.lsp b/ansi-tests/pprint-tabular.lsp index e149bce3715638165624724c565d41f374387232..71d6ac241e9e1d14d834933e1014413c6c850b0c 100644 --- a/ansi-tests/pprint-tabular.lsp +++ b/ansi-tests/pprint-tabular.lsp @@ -46,28 +46,34 @@ (pprint-tabular s ,@args)))) ,expected-value)) +;;; +;;; Note +;;; The prefix and suffix "(" and ")" are not considered part of the +;;; logical block they enclose (see the spec page for pprint-logical-block. +;;; + (def-pprint-tabular-test pprint-tabular.3 ('(|M|)) "(M)") (def-pprint-tabular-test pprint-tabular.4 ('(|M|) t) "(M)") (def-pprint-tabular-test pprint-tabular.5 ('(|M|) nil) "M") -(def-pprint-tabular-test pprint-tabular.6 ('(|M| |M|)) "(M M)") +(def-pprint-tabular-test pprint-tabular.6 ('(|M| |M|)) "(M M)") (def-pprint-tabular-test pprint-tabular.7 ('(|M| |M|) t nil 1) "(M M)") -(def-pprint-tabular-test pprint-tabular.8 ('(|M| |M|) t t 3) "(M M)") -(def-pprint-tabular-test pprint-tabular.9 ('(|M| |M|) t nil 4) "(M M)") -(def-pprint-tabular-test pprint-tabular.10 ('(|MM| |MM|) t nil 4) "(MM MM)") -(def-pprint-tabular-test pprint-tabular.11 ('(|MM| |MM|) t nil 5) "(MM MM)") -(def-pprint-tabular-test pprint-tabular.12 ('(|M| |MM|) t nil 5) "(M MM)") +(def-pprint-tabular-test pprint-tabular.8 ('(|M| |M|) t t 3) "(M M)") +(def-pprint-tabular-test pprint-tabular.9 ('(|M| |M|) t nil 4) "(M M)") +(def-pprint-tabular-test pprint-tabular.10 ('(|MM| |MM|) t nil 4) "(MM MM)") +(def-pprint-tabular-test pprint-tabular.11 ('(|MM| |MM|) t nil 5) "(MM MM)") +(def-pprint-tabular-test pprint-tabular.12 ('(|M| |MM|) t nil 5) "(M MM)") (def-pprint-tabular-test pprint-tabular.13 ((let ((x (list '|A|))) (list x x)) t nil 1) "(#1=(A) #1#)" :circle t) -(def-pprint-tabular-test pprint-tabular.14 ('(|M| |M|) t t 4) "(M M)") +(def-pprint-tabular-test pprint-tabular.14 ('(|M| |M|) t t 4) "(M M)") (def-pprint-tabular-test pprint-tabular.15 ('(1 2 3 4) t t 1) "(1 2 3 4)") (def-pprint-tabular-test pprint-tabular.16 ('(10 20 30 40) t t 1) "(10 20 30 40)") (def-pprint-tabular-test pprint-tabular.17 ('(10 200 3000 40000) t t 1) "(10 200 3000 40000)") -(def-pprint-tabular-test pprint-tabular.18 ('(10 20 30 40) t t 2) "(10 20 30 40)") -(def-pprint-tabular-test pprint-tabular.19 ('(10 200 3000 40000) t t 2) "(10 200 3000 40000)") +(def-pprint-tabular-test pprint-tabular.18 ('(10 20 30 40) t t 2) "(10 20 30 40)") +(def-pprint-tabular-test pprint-tabular.19 ('(10 200 3000 40000) t t 2) "(10 200 3000 40000)") (def-pprint-tabular-test pprint-tabular.20 ('(1 2 3) t nil 1) " (1 2 3)" @@ -103,5 +109,3 @@ (with-open-stream (s (make-broadcast-stream)) (pprint-tabular s 10 nil nil 100)))) nil) - -