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

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

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

revision 1.1 by pfdietz, Sat Aug 7 23:02:26 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest format.&.1  (def-format-test format.&.1
9    (format nil "~0&")    "~0&" nil "")
10    "")  
11    (def-format-test format.&.2
12  (deftest format.&.2    "~&" nil "")
13    (format nil "~&")  
14    "")  (def-format-test format.&.3
15      "X~&" nil #.(concatenate 'string "X" (string #\Newline)))
16  (deftest format.&.3  
17    (format nil "X~&")  (def-format-test format.&.4
18    "X    "X~%~&" nil #.(concatenate 'string "X" (string #\Newline)))
 ")  
   
 (deftest format.&.4  
   (format nil "X~%~&")  
   "X  
 ")  
19    
20  (deftest format.&.5  (deftest format.&.5
21    (loop for i from 1 to 100    (loop for i from 1 to 100
# Line 41  Line 35 
35          collect i)          collect i)
36    nil)    nil)
37    
38  (deftest format.&.7  (def-format-test format.&.7
39    (format nil "~v&" nil)    "~v&" (nil) "")
40    "")  
41    (def-format-test format.&.8
42  (deftest format.&.8    "X~v&" (nil) #.(concatenate 'string "X" (string #\Newline)))
   (format nil "X~v&" nil)  
   "X  
 ")  
43    
44  (deftest format.&.9  (deftest format.&.9
45    (loop for i from 1 to 100    (loop for i from 1 to 100
# Line 67  Line 58 
58          collect i)          collect i)
59    nil)    nil)
60    
61  (deftest format.&.11  (def-format-test format.&.11
62    (format nil "X~V%" 0)    "X~V%" (0) "X")
   "X")  
   
 (deftest format.&.12  
   (format nil "X~#%")  
   "X")  
63    
64  (deftest format.&.13  (def-format-test format.&.12
65    (format nil "X~#%" 'a 'b 'c)    "X~#%" nil "X")
   "X  
66    
67    (def-format-test format.&.13
68      "X~#%" ('a 'b 'c) #.(let ((nl (string #\Newline)))
69                            (concatenate 'string "X" nl nl nl)))
70    
 ")  
71    
72    
73    

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