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

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

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

revision 1.1 by pfdietz, Thu Aug 26 03:07:08 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 7  Line 7 
7    
8  (compile-and-load "printer-aux.lsp")  (compile-and-load "printer-aux.lsp")
9    
10  (deftest format.cond.1  (def-format-test format.cond.1
11    (format nil "~[~]" 0)    "~[~]" (0) "")
12    "")  
13    (def-format-test format.cond.2
14  (deftest format.cond.2    "~[a~]" (0) "a")
15    (format nil "~[a~]" 0)  
16    "a")  (def-format-test format.cond.3
17      "~[a~]" (-1) "")
18  (deftest format.cond.3  
19    (format nil "~[a~]" -1)  (def-format-test format.cond.4
20    "")    "~[a~]" ((1- most-negative-fixnum)) "")
21    
22  (deftest format.cond.4  (def-format-test format.cond.5
23    (format nil "~[a~]" (1- most-negative-fixnum))    "~[a~]" (1) "")
24    "")  
25    (def-format-test format.cond.6
26  (deftest format.cond.5    "~[a~]" ((1+ most-positive-fixnum)) "")
   (format nil "~[a~]" 1)  
   "")  
   
 (deftest format.cond.6  
   (format nil "~[a~]" (1+ most-positive-fixnum))  
   "")  
27    
28  (deftest format.cond.7  (deftest format.cond.7
29    (loop for i from -1 to 10    (loop for i from -1 to 10
30          collect (format nil "~[a~;b~;c~;d~;e~;f~;g~;h~;i~]" i))          collect (format nil "~[a~;b~;c~;d~;e~;f~;g~;h~;i~]" i))
31    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))
32    
33  (deftest format.cond.8  (def-format-test format.cond.8
34    (format nil "~0[a~;b~;c~;d~]" 3)    "~0[a~;b~;c~;d~]" (3) "a")
35    "a")  
36    (def-format-test format.cond.9
37  (deftest format.cond.9    "~-1[a~;b~;c~;d~]" (3) "")
38    (format nil "~-1[a~;b~;c~;d~]" 3)  
39    "")  (def-format-test format.cond.10
40      "~1[a~;b~;c~;d~]" (3) "b")
41  (deftest format.cond.10  
42    (format nil "~1[a~;b~;c~;d~]" 3)  (def-format-test format.cond.11
43    "b")    "~4[a~;b~;c~;d~]" (3) "")
44    
45  (deftest format.cond.11  (def-format-test format.cond.12
46    (format nil "~4[a~;b~;c~;d~]" 3)    "~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "")
   "")  
   
 (deftest format.cond.12  
   (format nil "~100000000000000000000000000000000[a~;b~;c~;d~]" 3)  
   "")  
47    
48  (deftest format.cond.13  (deftest format.cond.13
49    (loop for i from -1 to 10    (loop for i from -1 to 10
# Line 66  Line 55 
55          collect (format nil "~v[a~;b~;c~;d~;e~;f~;g~;h~;i~]" nil i))          collect (format nil "~v[a~;b~;c~;d~;e~;f~;g~;h~;i~]" nil i))
56    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))
57    
58  (deftest format.cond.15  (def-format-test format.cond.15
59    (format nil "~#[A~;B~]")    "~#[A~;B~]" nil "A")
60    "A")  
61    (def-format-test format.cond.16
62  (deftest format.cond.16    "~#[A~;B~]" (nil) "B")
   (format nil "~#[A~;B~]" nil)  
   "B")  
63    
64  ;;; ~[ .~:;  ~]  ;;; ~[ .~:;  ~]
65    
# Line 83  Line 70 
70          collect (list i s))          collect (list i s))
71    nil)    nil)
72    
73  (deftest format.cond\:.2  (def-format-test format.cond\:.2
74    (format nil "~[a~:;b~]" 0)    "~[a~:;b~]" (0) "a")
75    "a")  
76    (def-format-test format.cond\:.3
77  (deftest format.cond\:.3    "~[a~:;b~]" ((1- most-negative-fixnum)) "b")
78    (format nil "~[a~:;b~]" (1- most-negative-fixnum))  
79    "b")  (def-format-test format.cond\:.4
80      "~[a~:;b~]" ((1+ most-positive-fixnum)) "b")
 (deftest format.cond\:.4  
   (format nil "~[a~:;b~]" (1+ most-positive-fixnum))  
   "b")  
81    
82  (deftest format.cond\:.5  (deftest format.cond\:.5
83    (loop for i from -1 to 10    (loop for i from -1 to 10
# Line 110  Line 94 
94          collect (format nil "~v[a~;b~;c~;d~:;e~]" nil i))          collect (format nil "~v[a~;b~;c~;d~:;e~]" nil i))
95    ("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e"))    ("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e"))
96    
97  (deftest format.cond\:.8  (def-format-test format.cond\:.8
98    (format nil "~#[A~:;B~]")    "~#[A~:;B~]" nil "A")
99    "A")  
100    (def-format-test format.cond\:.9
101  (deftest format.cond\:.9    "~#[A~:;B~]" (nil nil) "B")
   (format nil "~#[A~:;B~]" nil nil)  
   "B")  
102    
103  ;;; ~:[...~]  ;;; ~:[...~]
104    
105  (deftest format.\:cond.1  (def-format-test format.\:cond.1
106    (format nil "~:[a~;b~]" nil)    "~:[a~;b~]" (nil) "a")
   "a")  
107    
108  (deftest format.\:cond.2  (deftest format.\:cond.2
109    (loop for x in *mini-universe*    (loop for x in *mini-universe*
# Line 133  Line 114 
114    
115  ;;; ~@[ ... ~]  ;;; ~@[ ... ~]
116    
117  (deftest format.@cond.1  (def-format-test format.@cond.1
118    (format nil "~@[X~]Y~A" 1)    "~@[X~]Y~A" (1) "XY1")
119    "XY1")  
120    (def-format-test format.@cond.2
121  (deftest format.@cond.2    "~@[X~]Y~A" (nil 2) "Y2")
   (format nil "~@[X~]Y~A" nil 2)  
   "Y2")  

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