/[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.4 by pfdietz, Wed Dec 8 14:42:26 2004 UTC revision 1.5 by pfdietz, Tue Dec 21 12:55:31 2004 UTC
# Line 59  Line 59 
59  (deftest formatter.cond.13  (deftest formatter.cond.13
60    (let ((fn (formatter "~V[a~;b~;c~;d~;e~;f~;g~;h~;i~]")))    (let ((fn (formatter "~V[a~;b~;c~;d~;e~;f~;g~;h~;i~]")))
61      (loop for i from -1 to 10      (loop for i from -1 to 10
62            collect (formatter-call-to-string fn i nil)))            collect (formatter-call-to-string fn i)))
63    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))    ("" "a" "b" "c" "d" "e" "f" "g" "h" "i" "" ""))
64    
65  (deftest format.cond.14  (deftest format.cond.14
# Line 124  Line 124 
124  (deftest formatter.cond\:.6  (deftest formatter.cond\:.6
125    (let ((fn (formatter "~v[a~;b~;c~;d~:;e~]")))    (let ((fn (formatter "~v[a~;b~;c~;d~:;e~]")))
126      (loop for i from -1 to 10      (loop for i from -1 to 10
127            collect (formatter-call-to-string fn i nil)))            collect (formatter-call-to-string fn i)))
128    ("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e"))    ("e" "a" "b" "c" "d" "e" "e" "e" "e" "e" "e" "e"))
129    
130  (deftest format.cond\:.7  (deftest format.cond\:.7

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