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