/[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.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC revision 1.3 by pfdietz, Sat Nov 27 21:55:26 2004 UTC
# Line 31  Line 31 
31    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))
32    
33  (def-format-test format.cond.8  (def-format-test format.cond.8
34    "~0[a~;b~;c~;d~]" (3) "a")    "~0[a~;b~;c~;d~]" (3) "a" 1)
35    
36  (def-format-test format.cond.9  (def-format-test format.cond.9
37    "~-1[a~;b~;c~;d~]" (3) "")    "~-1[a~;b~;c~;d~]" (3) "" 1)
38    
39  (def-format-test format.cond.10  (def-format-test format.cond.10
40    "~1[a~;b~;c~;d~]" (3) "b")    "~1[a~;b~;c~;d~]" (3) "b" 1)
41    
42  (def-format-test format.cond.11  (def-format-test format.cond.11
43    "~4[a~;b~;c~;d~]" (3) "")    "~4[a~;b~;c~;d~]" (3) "" 1)
44    
45  (def-format-test format.cond.12  (def-format-test format.cond.12
46    "~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "")    "~100000000000000000000000000000000[a~;b~;c~;d~]" (3) "" 1)
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 59  Line 59 
59    "~#[A~;B~]" nil "A")    "~#[A~;B~]" nil "A")
60    
61  (def-format-test format.cond.16  (def-format-test format.cond.16
62    "~#[A~;B~]" (nil) "B")    "~#[A~;B~]" (nil) "B" 1)
63    
64  ;;; ~[ .~:;  ~]  ;;; ~[ .~:;  ~]
65    
# Line 98  Line 98 
98    "~#[A~:;B~]" nil "A")    "~#[A~:;B~]" nil "A")
99    
100  (def-format-test format.cond\:.9  (def-format-test format.cond\:.9
101    "~#[A~:;B~]" (nil nil) "B")    "~#[A~:;B~]" (nil nil) "B" 2)
102    
103  ;;; ~:[...~]  ;;; ~:[...~]
104    

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

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