/[gcl]/gcl/ansi-tests/format-underscore.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/format-underscore.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Mon Aug 9 02:43:51 2004 UTC revision 1.3 by pfdietz, Wed Dec 8 14:34:27 2004 UTC
# Line 93  A A A A " Line 93  A A A A "
93         (format s "A ~_A ~_A ~_A ~_A ~_"))))         (format s "A ~_A ~_A ~_A ~_A ~_"))))
94    "A A A A A ")    "A A A A A ")
95    
96    (deftest formatter._.9
97      (with-standard-io-syntax
98       (let ((*print-readably* nil)
99             (*print-escape* nil)
100             (*print-pretty* t)
101             (*print-right-margin* 4)
102             (*print-miser-width* nil))
103         (formatter-call-to-string
104          (formatter "A ~_A ~_A ~_A ~_A ~_"))))
105      "A A A A A ")
106    
107  ;;; miser  ;;; miser
108    
109  (def-ppblock-test format.@_.1  (def-ppblock-test format.@_.1
# Line 185  A A A A " Line 196  A A A A "
196         (format s "A ~@_A ~@_A ~@_A ~@_A ~@_"))))         (format s "A ~@_A ~@_A ~@_A ~@_A ~@_"))))
197    "A A A A A ")    "A A A A A ")
198    
199    (deftest formatter.@_.10
200      (with-standard-io-syntax
201       (let ((*print-readably* nil)
202             (*print-escape* nil)
203             (*print-pretty* t)
204             (*print-right-margin* 4)
205             (*print-miser-width* 4))
206         (formatter-call-to-string
207          (formatter "A ~@_A ~@_A ~@_A ~@_A ~@_"))))
208      "A A A A A ")
209    
210  ;;; fill  ;;; fill
211    
212  (def-ppblock-test format.\:_.1  (def-ppblock-test format.\:_.1
# Line 256  A Line 278  A
278         (format s "A ~:_A ~:_A ~:_A ~:_A ~:_"))))         (format s "A ~:_A ~:_A ~:_A ~:_A ~:_"))))
279    "A A A A A ")    "A A A A A ")
280    
281    (deftest formatter.\:_.7
282      (with-standard-io-syntax
283       (let ((*print-readably* nil)
284             (*print-escape* nil)
285             (*print-right-margin* 4)
286             (*print-pretty* t)
287             (*print-miser-width* nil))
288         (formatter-call-to-string
289          (formatter "A ~:_A ~:_A ~:_A ~:_A ~:_"))))
290      "A A A A A ")
291    
292  ;;; mandatory  ;;; mandatory
293    
294  (def-ppblock-test format.\:@_.1  (def-ppblock-test format.\:@_.1
# Line 297  A " Line 330  A "
330             (*print-miser-width* nil))             (*print-miser-width* nil))
331         (format s "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_"))))         (format s "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_"))))
332    "A A A A A ")    "A A A A A ")
333    
334    (deftest formatter.\:@_.5
335      (with-standard-io-syntax
336       (let ((*print-readably* nil)
337             (*print-escape* nil)
338             (*print-pretty* t)
339             (*print-right-margin* 4)
340             (*print-miser-width* nil))
341         (formatter-call-to-string (formatter "A ~:@_A ~:@_A ~:@_A ~:@_A ~:@_"))))
342      "A A A A A ")

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26