From a008e736a5cbce52dbb7f2dc481f3afaa3369998 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Tue, 13 Jul 2004 13:42:39 +0000 Subject: [PATCH] Add TODOs for more pprint-newline tests. --- ansi-tests/pprint-newline.lsp | 68 +++++++++++++++++------------------ 1 file changed, 34 insertions(+), 34 deletions(-) diff --git a/ansi-tests/pprint-newline.lsp b/ansi-tests/pprint-newline.lsp index 3d9b6cca..b025af7f 100644 --- a/ansi-tests/pprint-newline.lsp +++ b/ansi-tests/pprint-newline.lsp @@ -64,7 +64,7 @@ A A A " ;;; :linear -(def-pprint-newline-test pprint-newline.linear.1 +(def-ppblock-test pprint-newline.linear.1 (progn (dotimes (i 2) (write "A ") (pprint-newline :fill)) (write "B ") (pprint-newline :linear) @@ -73,7 +73,7 @@ A A A " A A A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.2 +(def-ppblock-test pprint-newline.linear.2 (progn (dotimes (i 2) (write "A ") (pprint-newline :fill)) (write "B ") (pprint-newline :linear) @@ -85,24 +85,24 @@ C C D A A A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.3 +(def-ppblock-test pprint-newline.linear.3 (dotimes (i 4) (write "A ") (pprint-newline :linear)) "A A A A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.4 +(def-ppblock-test pprint-newline.linear.4 (dotimes (i 4) (write "A ") (pprint-newline :linear)) "A A A A " :margin 10 :miser 10) -(def-pprint-newline-test pprint-newline.linear.5 +(def-ppblock-test pprint-newline.linear.5 (dotimes (i 10) (write "A ") (pprint-newline :linear)) "A A A A A A A A A A " :margin 10 :pretty nil) -(def-pprint-newline-test pprint-newline.linear.6 +(def-ppblock-test pprint-newline.linear.6 (dotimes (i 4) (write "A ") (pprint-newline :linear)) "A A @@ -111,7 +111,7 @@ A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.7 +(def-ppblock-test pprint-newline.linear.7 (progn (dotimes (i 4) (write "A ") (pprint-newline :linear)) (terpri) @@ -128,7 +128,7 @@ A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.8 +(def-ppblock-test pprint-newline.linear.8 (progn (pprint-logical-block (*standard-output* nil) (dotimes (i 4) @@ -143,7 +143,7 @@ A A A A A " :margin 10) -(def-pprint-newline-test pprint-newline.linear.9 +(def-ppblock-test pprint-newline.linear.9 (dotimes (i 10) (write "A ") (let ((*print-pretty* nil)) (pprint-newline :linear))) "A A A A A A A A A A " :margin 10) @@ -162,24 +162,24 @@ A A A A " ;;; :miser -(def-pprint-newline-test pprint-newline.miser.1 +(def-ppblock-test pprint-newline.miser.1 (dotimes (i 10) (write "A ") (pprint-newline :miser)) "A A A A A A A A A A " :margin 10) -(def-pprint-newline-test pprint-newline.miser.2 +(def-ppblock-test pprint-newline.miser.2 (dotimes (i 10) (write "A ") (pprint-newline :miser)) "A A A A A A A A A A " :margin 10 :miser 0) -(def-pprint-newline-test pprint-newline.miser.3 +(def-ppblock-test pprint-newline.miser.3 (dotimes (i 10) (write "A ") (pprint-newline :miser)) "A A A A A A A A A A " :margin 10 :miser 9) -(def-pprint-newline-test pprint-newline.miser.4 +(def-ppblock-test pprint-newline.miser.4 (dotimes (i 10) (write "A ") (pprint-newline :miser)) "A A @@ -195,14 +195,14 @@ A :margin 10 :miser 10) -(def-pprint-newline-test pprint-newline.miser.5 +(def-ppblock-test pprint-newline.miser.5 (dotimes (i 10) (write "A ") (pprint-newline :miser)) "A A A A A A A A A A " :margin 10 :miser 10 :pretty nil) -(def-pprint-newline-test pprint-newline.miser.6 +(def-ppblock-test pprint-newline.miser.6 (progn (terpri) (write "A") @@ -213,7 +213,7 @@ A :margin 20 :miser 20) -(def-pprint-newline-test pprint-newline.miser.7 +(def-ppblock-test pprint-newline.miser.7 (progn (pprint-newline :miser) (write "A") @@ -224,7 +224,7 @@ A :margin 20 :miser 20) -(def-pprint-newline-test pprint-newline.miser.8 +(def-ppblock-test pprint-newline.miser.8 (progn (write "AAAA ") (pprint-newline :linear) @@ -236,7 +236,7 @@ A A A A " :margin 10 :miser 8) -(def-pprint-newline-test pprint-newline.miser.9 +(def-ppblock-test pprint-newline.miser.9 (progn (write "AAAA ") (pprint-newline :fill) @@ -248,7 +248,7 @@ A A A A " :margin 10 :miser 8) -(def-pprint-newline-test pprint-newline.miser.10 +(def-ppblock-test pprint-newline.miser.10 (pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")") (write "A") (pprint-newline :miser) @@ -259,7 +259,7 @@ A A A A " :margin 20 :miser 20) -(def-pprint-newline-test pprint-newline.miser.11 +(def-ppblock-test pprint-newline.miser.11 (pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")") (write "A") (pprint-newline :miser) @@ -270,7 +270,7 @@ A A A A " :margin 20 :miser 19) -(def-pprint-newline-test pprint-newline.miser.12 +(def-ppblock-test pprint-newline.miser.12 (pprint-logical-block (*standard-output* nil :prefix "(" :suffix ")") (write "A") (pprint-newline :miser) @@ -294,13 +294,13 @@ A A A A " ;;; :fill -(def-pprint-newline-test pprint-newline.fill.1 +(def-ppblock-test pprint-newline.fill.1 (dotimes (i 10) (write "A ") (pprint-newline :fill)) "A A A A A A A A A A " :margin 10) -(def-pprint-newline-test pprint-newline.fill.2 +(def-ppblock-test pprint-newline.fill.2 (dotimes (i 10) (write "A ") (pprint-newline :fill)) "A A A A A A @@ -308,7 +308,7 @@ A A A A " :margin 6) -(def-pprint-newline-test pprint-newline.fill.3 +(def-ppblock-test pprint-newline.fill.3 (dotimes (i 10) (write "A ") (pprint-newline :fill)) "A A A A A A @@ -316,14 +316,14 @@ A A A A " :margin 7) -(def-pprint-newline-test pprint-newline.fill.4 +(def-ppblock-test pprint-newline.fill.4 (dotimes (i 10) (write "A ") (pprint-newline :fill)) "A A A A A A A A A A " :margin 10 :miser 9) -(def-pprint-newline-test pprint-newline.fill.5 +(def-ppblock-test pprint-newline.fill.5 (dotimes (i 10) (write "A ") (pprint-newline :fill)) "A A @@ -339,7 +339,7 @@ A :margin 10 :miser 10) -(def-pprint-newline-test pprint-newline.fill.6 +(def-ppblock-test pprint-newline.fill.6 (dotimes (i 5) (write '(A B)) (write #\Space) @@ -349,7 +349,7 @@ A (A B) " :margin 12) -(def-pprint-newline-test pprint-newline.fill.7 +(def-ppblock-test pprint-newline.fill.7 (dolist (x '(A (A B) (A A A A A A A A) X (C D) (E F))) (pprint-fill nil x) (write #\Space) @@ -361,7 +361,7 @@ X (C D) (E F) " :margin 12) -(def-pprint-newline-test pprint-newline.fill.8 +(def-ppblock-test pprint-newline.fill.8 (dotimes (i 5) (write '(A B) :pretty nil) (write #\Space) @@ -396,7 +396,7 @@ X (C D) ;;; :mandatory -(def-pprint-newline-test pprint-newline.mandatory.1 +(def-ppblock-test pprint-newline.mandatory.1 (dotimes (i 4) (write "A ") (pprint-newline :mandatory)) "A A @@ -404,7 +404,7 @@ A A ") -(def-pprint-newline-test pprint-newline.mandatory.2 +(def-ppblock-test pprint-newline.mandatory.2 (dotimes (i 4) (write "A ") (pprint-newline :mandatory)) "A A @@ -413,7 +413,7 @@ A " :margin 10) -(def-pprint-newline-test pprint-newline.mandatory.3 +(def-ppblock-test pprint-newline.mandatory.3 (progn (write "A ") (pprint-newline :mandatory) @@ -422,12 +422,12 @@ A A " :margin 1) -(def-pprint-newline-test pprint-newline.mandatory.4 +(def-ppblock-test pprint-newline.mandatory.4 (dotimes (i 4) (write "A ") (pprint-newline :mandatory)) "A A A A " :pretty nil) -(def-pprint-newline-test pprint-newline.mandatory.5 +(def-ppblock-test pprint-newline.mandatory.5 (pprint-logical-block (*standard-output* nil :prefix "<<<" :suffix ">>>") (dotimes (i 4) (write "A ") (pprint-newline :mandatory)) -- GitLab