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

Diff of /gcl/ansi-tests/format-page.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.page.1  (def-format-test format.page.1
9    (format nil "~0|")    "~0|" nil "")
   "")  
10    
11  (deftest format.page.2  (deftest format.page.2
12    (let ((s (format nil "~|")))    (let ((s (format nil "~|")))
# Line 37  Line 36 
36                collect i)))))                collect i)))))
37    nil)    nil)
38    
39  (deftest format.page.4  (def-format-test format.page.4
40    (format nil "~V|" 0)    "~V|" (0) "")
   "")  
   
 (deftest format.page.5  
   (string=t (format nil "~v|" nil)  
             (format nil "~|"))  
   t)  
41    
42      (def-format-test format.page.5
43              "~v|" (nil) #.(format 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