From b06fcde69b62a1e067e13fa6ede33e551e4e40e0 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 9 Aug 2004 02:43:51 +0000 Subject: [PATCH] Fixed some test names and made the stream in several tests be obviously not a pretty printing stream --- ansi-tests/format-underscore.lsp | 76 +++++++++++++++++--------------- 1 file changed, 41 insertions(+), 35 deletions(-) diff --git a/ansi-tests/format-underscore.lsp b/ansi-tests/format-underscore.lsp index 992ff4c1..fa307869 100644 --- a/ansi-tests/format-underscore.lsp +++ b/ansi-tests/format-underscore.lsp @@ -82,13 +82,15 @@ A A A A " :margin 10) (deftest format._.9 - (with-standard-io-syntax - (let ((*print-readably* nil) - (*print-escape* nil) - (*print-pretty* t) - (*print-right-margin* 4) - (*print-miser-width* nil)) - (format nil "A ~_A ~_A ~_A ~_A ~_"))) + (with-output-to-string + (s) + (with-standard-io-syntax + (let ((*print-readably* nil) + (*print-escape* nil) + (*print-pretty* t) + (*print-right-margin* 4) + (*print-miser-width* nil)) + (format s "A ~_A ~_A ~_A ~_A ~_")))) "A A A A A ") ;;; miser @@ -172,13 +174,15 @@ A A A A " :miser 8) (deftest format.@_.10 - (with-standard-io-syntax - (let ((*print-readably* nil) - (*print-escape* nil) - (*print-pretty* t) - (*print-right-margin* 4) - (*print-miser-width* 4)) - (format nil "A ~@_A ~@_A ~@_A ~@_A ~@_"))) + (with-output-to-string + (s) + (with-standard-io-syntax + (let ((*print-readably* nil) + (*print-escape* nil) + (*print-pretty* t) + (*print-right-margin* 4) + (*print-miser-width* 4)) + (format s "A ~@_A ~@_A ~@_A ~@_A ~@_")))) "A A A A A ") ;;; fill @@ -241,18 +245,20 @@ A :margin 12) (deftest format.\:_.7 - (with-standard-io-syntax - (let ((*print-readably* nil) - (*print-escape* nil) - (*print-right-margin* 4) - (*print-pretty* t) - (*print-miser-width* nil)) - (format nil "A ~:_A ~:_A ~:_A ~:_A ~:_"))) + (with-output-to-string + (s) + (with-standard-io-syntax + (let ((*print-readably* nil) + (*print-escape* nil) + (*print-right-margin* 4) + (*print-pretty* t) + (*print-miser-width* nil)) + (format s "A ~:_A ~:_A ~:_A ~:_A ~:_")))) "A A A A A ") ;;; mandatory -(def-ppblock-test format.\:@.1 +(def-ppblock-test format.\:@_.1 (format t "A ~:@_A ~:@_A ~:@_A ~:@_") "A A @@ -260,7 +266,7 @@ A A ") -(def-ppblock-test format.\:@.2 +(def-ppblock-test format.\:@_.2 (format t "A ~@:_A ~@:_A ~@:_A ~@:_") "A A @@ -269,25 +275,25 @@ A " :margin 10) -(def-ppblock-test format.\:@.3 +(def-ppblock-test format.\:@_.3 (format t "A ~@:_A ") "A A " :margin 1) -(def-ppblock-test format.\:@.4 +(def-ppblock-test format.\:@_.4 (format t "A ~@:_A ~@:_A ~@:_A ~@:_") "A A A A " :pretty nil) -(deftest format.\:@.5 - (with-standard-io-syntax - (let ((*print-readably* nil) - (*print-escape* nil) - (*print-pretty* t) - (*print-right-margin* 4) - (*print-miser-width* nil)) - (format nil "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_"))) +(deftest format.\:@_.5 + (with-output-to-string + (s) + (with-standard-io-syntax + (let ((*print-readably* nil) + (*print-escape* nil) + (*print-pretty* t) + (*print-right-margin* 4) + (*print-miser-width* nil)) + (format s "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_")))) "A A A A A ") - - -- GitLab