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

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

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

revision 1.4 by pfdietz, Tue Nov 9 01:12:15 2004 UTC revision 1.5 by pfdietz, Wed Nov 10 13:21:48 2004 UTC
# Line 13  Line 13 
13    "")    "")
14    
15  (deftest format.{.1a  (deftest format.{.1a
16    (format nil "~{~}" nil)    (format nil "~{~}" "" nil)
17    "")    "")
18    
19  (deftest format.{.1b  (deftest format.{.1b
20    (format nil "~0{~}" '(1 2 3))    (format nil "~0{~}" "" '(1 2 3))
21    "")    "")
22    
23  (deftest format.{.2  (deftest format.{.2
# Line 72  Line 72 
72    (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))    (format nil "~{X ~A~^ Y ~A~^ ~}" '(1 2 3 4))
73    "X 1 Y 2 X 3 Y 4")    "X 1 Y 2 X 3 Y 4")
74    
75    (deftest format.{.12
76      (format nil "~1{~A~^~A~}" '(1))
77      "1")
78    
79    (deftest format.{.13
80      (format nil "~0{~A~^~A~}" '(1))
81      "")
82    
83    (deftest format.{.14
84      (format nil "~1{~A~^~A~}" '(1 2 3))
85      "12")
86    
87    (deftest format.{.15
88      (format nil "~0{~}" "~A" '(1 2 3))
89      "")
90    
91    (deftest format.{.16
92      (format nil "~1{~}" "~A" '(4 5 6))
93      "4")
94    
95    
96    
97    
98  ;;; Tests of ~@{ ... ~}  ;;; Tests of ~@{ ... ~}
99    
100  (deftest format.@{.1  (deftest format.@{.1
101    (format nil "~@{~}")    (format nil "~@{~
102    ~}")
103      "")
104    
105    (deftest format.@{.1A
106      (format nil "~@{~}" "")
107    "")    "")
108    
109  (deftest format.@{.2  (deftest format.@{.2

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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