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

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

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

revision 1.1 by pfdietz, Sat Nov 27 14:14:51 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 6  Line 6 
6  (in-package :cl-test)  (in-package :cl-test)
7  (compile-and-load "printer-aux.lsp")  (compile-and-load "printer-aux.lsp")
8    
9  (deftest format.newline.1  (def-format-test format.newline.1
10    (let ((nl (string #\Newline)))    (concatenate 'string "~" (string #\Newline) "   X")
11      (format nil (concatenate 'string "~" nl "   X")))    nil "X")
   "X")  
12    
13  (deftest format.newline.2  (def-format-test format.newline.2
14    (let ((nl (string #\Newline)))    (concatenate 'string "A~:" (string #\Newline) " X")
15      (format nil (concatenate 'string "A~:" nl " X")))    nil "A X")
   "A X")  
   
 (deftest format.newline.3  
   (let ((nl (string #\Newline)))  
     (format nil (concatenate 'string "A~@" nl " X")))  
   #.(concatenate 'string "A" (string #\Newline) "X"))  
16    
17    (def-format-test format.newline.3
18      (concatenate 'string "A~@" (string #\Newline) " X")
19      nil #.(concatenate 'string "A" (string #\Newline) "X"))
20    

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

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