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

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

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

revision 1.1 by pfdietz, Sat Aug 7 23:02:26 2004 UTC revision 1.2 by pfdietz, Sat Nov 27 19:36:18 2004 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8  (deftest format.~.1  (def-format-test format.~.1
9    (format nil "~~")    "~~" nil "~")
   "~")  
10    
11  (deftest format.~.2  (deftest format.~.2
12    (loop for i from 0 to 100    (loop for i from 0 to 100
# Line 17  Line 16 
16          collect (list i s s2))          collect (list i s s2))
17    nil)    nil)
18    
19  (deftest format.~.3  (def-format-test format.~.3
20    (format nil "~v~" 0)    "~v~" (0) "")
   "")  
21    
22  (deftest format.~.4  (deftest format.~.4
23    (loop for i from 0 to 100    (loop for i from 0 to 100
# Line 37  Line 35 
35          unless (string= s s2)          unless (string= s s2)
36          collect (list i s s2))          collect (list i s s2))
37    nil)    nil)
   

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