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

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

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

revision 1.1 by pfdietz, Mon Oct 18 02:52:18 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 30  Line 30 
30          collect it)          collect it)
31    nil)    nil)
32    
33  (deftest format.paren.3  (def-format-test format.paren.3
34    (format nil "~@(this is a TEST.~)")    "~@(this is a TEST.~)" nil "This is a test.")
35    "This is a test.")  
36    (def-format-test format.paren.4
37  (deftest format.paren.4    "~@(!@#$%^&*this is a TEST.~)" nil "!@#$%^&*This is a test.")
38    (format nil "~@(!@#$%^&*this is a TEST.~)")  
39    "!@#$%^&*This is a test.")  (def-format-test format.paren.5
40      "~:(this is a TEST.~)" nil "This Is A Test.")
 (deftest format.paren.5  
   (format nil "~:(this is a TEST.~)")  
   "This Is A Test.")  
41                                                    
42  (deftest format.paren.6  (def-format-test format.paren.6
43    (format nil "~:(this is7a TEST.~)")    "~:(this is7a TEST.~)" nil "This Is7a Test.")
44    "This Is7a Test.")  
45    (def-format-test format.paren.7
46  (deftest format.paren.7    "~:@(this is AlSo A teSt~)" nil "THIS IS ALSO A TEST")
   (format nil "~:@(this is AlSo A teSt~)")  
   "THIS IS ALSO A TEST")  
47    
48  (deftest format.paren.8  (deftest format.paren.8
49    (loop for i from 0 below (min char-code-limit (ash 1 16))    (loop for i from 0 below (min char-code-limit (ash 1 16))
# Line 70  Line 65 
65    
66  ;;; Nested conversion  ;;; Nested conversion
67    
68  (deftest format.paren.9  (def-format-test format.paren.9
69    (format nil "~(aBc ~:(def~) GHi~)")    "~(aBc ~:(def~) GHi~)" nil "abc def ghi")
70    "abc def ghi")  
71    (def-format-test format.paren.10
72  (deftest format.paren.10    "~(aBc ~(def~) GHi~)" nil "abc def ghi")
73    (format nil "~(aBc ~(def~) GHi~)")  
74    "abc def ghi")  (def-format-test format.paren.11
75      "~@(aBc ~:(def~) GHi~)" nil "Abc def ghi")
76  (deftest format.paren.11  
77    (format nil "~@(aBc ~:(def~) GHi~)")  (def-format-test format.paren.12
78    "Abc def ghi")    "~(aBc ~@(def~) GHi~)" nil "abc def ghi")
79    
80  (deftest format.paren.12  (def-format-test format.paren.13
81    (format nil "~(aBc ~@(def~) GHi~)")    "~(aBc ~:(def~) GHi~)" nil "abc def ghi")
82    "abc def ghi")  
83    (def-format-test format.paren.14
84  (deftest format.paren.13    "~:(aBc ~(def~) GHi~)" nil "Abc Def Ghi")
85    (format nil "~(aBc ~:(def~) GHi~)")  
86    "abc def ghi")  (def-format-test format.paren.15
87      "~:(aBc ~:(def~) GHi~)" nil "Abc Def Ghi")
88  (deftest format.paren.14  
89    (format nil "~:(aBc ~(def~) GHi~)")  (def-format-test format.paren.16
90    "Abc Def Ghi")    "~:(aBc ~@(def~) GHi~)" nil "Abc Def Ghi")
91    
92  (deftest format.paren.15  (def-format-test format.paren.17
93    (format nil "~:(aBc ~:(def~) GHi~)")    "~:(aBc ~@:(def~) GHi~)" nil "Abc Def Ghi")
94    "Abc Def Ghi")  
95    (def-format-test format.paren.18
96  (deftest format.paren.16    "~@(aBc ~(def~) GHi~)" nil "Abc def ghi")
97    (format nil "~:(aBc ~@(def~) GHi~)")  
98    "Abc Def Ghi")  (def-format-test format.paren.19
99      "~@(aBc ~:(def~) GHi~)" nil "Abc def ghi")
100  (deftest format.paren.17  
101    (format nil "~:(aBc ~@:(def~) GHi~)")  (def-format-test format.paren.20
102    "Abc Def Ghi")    "~@(aBc ~@(def~) GHi~)" nil "Abc def ghi")
103    
104  (deftest format.paren.18  (def-format-test format.paren.21
105    (format nil "~@(aBc ~(def~) GHi~)")    "~@(aBc ~@:(def~) GHi~)" nil "Abc def ghi")
106    "Abc def ghi")  
107    (def-format-test format.paren.22
108  (deftest format.paren.19    "~:@(aBc ~(def~) GHi~)" nil "ABC DEF GHI")
109    (format nil "~@(aBc ~:(def~) GHi~)")  
110    "Abc def ghi")  (def-format-test format.paren.23
111      "~@:(aBc ~:(def~) GHi~)" nil "ABC DEF GHI")
112  (deftest format.paren.20  
113    (format nil "~@(aBc ~@(def~) GHi~)")  (def-format-test format.paren.24
114    "Abc def ghi")    "~:@(aBc ~@(def~) GHi~)" nil "ABC DEF GHI")
115    
116  (deftest format.paren.21  (def-format-test format.paren.25
117    (format nil "~@(aBc ~@:(def~) GHi~)")    "~@:(aBc ~@:(def~) GHi~)" nil "ABC DEF GHI")
   "Abc def ghi")  
   
 (deftest format.paren.22  
   (format nil "~:@(aBc ~(def~) GHi~)")  
   "ABC DEF GHI")  
   
 (deftest format.paren.23  
   (format nil "~@:(aBc ~:(def~) GHi~)")  
   "ABC DEF GHI")  
   
 (deftest format.paren.24  
   (format nil "~:@(aBc ~@(def~) GHi~)")  
   "ABC DEF GHI")  
   
 (deftest format.paren.25  
   (format nil "~@:(aBc ~@:(def~) GHi~)")  
   "ABC DEF GHI")  

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