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

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

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

revision 1.3 by pfdietz, Sat Nov 27 21:55:26 2004 UTC revision 1.4 by pfdietz, Mon Dec 6 14:04:21 2004 UTC
# Line 12  Line 12 
12  (deftest format.%.2  (deftest format.%.2
13    (loop for i from 0 to 100    (loop for i from 0 to 100
14          for s1 = (make-string i :initial-element #\Newline)          for s1 = (make-string i :initial-element #\Newline)
15          for s2 = (format nil (format nil "~~~D%" i))          for format-string = (format nil "~~~D%" i)
16          unless (string= s1 s2)          for s2 = (format nil format-string)
17            for fn = (eval `(formatter ,s2))
18            for s3 = (formatter-call-to-string fn)
19            unless (and (string= s1 s2) (string= s1 s3))
20          collect i)          collect i)
21    nil)    nil)
22    
# Line 31  Line 34 
34          collect i)          collect i)
35    nil)    nil)
36    
37    (deftest formatter.%.5
38      (let ((fn (formatter "~v%")))
39        (loop for i from 0 to 100
40              for s1 = (make-string i :initial-element #\Newline)
41              for s2 = (formatter-call-to-string fn i)
42              unless (string= s1 s2)
43              collect i))
44      nil)
45    
46  (deftest format.%.6  (deftest format.%.6
47    (loop for i from 0 to (min (- call-arguments-limit 3) 100)    (loop for i from 0 to (min (- call-arguments-limit 3) 100)
48          for args = (make-list i)          for args = (make-list i)
# Line 39  Line 51 
51          unless (string= s1 s2)          unless (string= s1 s2)
52          collect i)          collect i)
53    nil)    nil)
54    
55    (deftest formatter.%.6
56      (let ((fn (formatter "~#%")))
57        (loop for i from 0 to (min (- call-arguments-limit 3) 100)
58              for args = (make-list i)
59              for s1 = (make-string i :initial-element #\Newline)
60              for s2 = (with-output-to-string
61                         (stream)
62                         (assert (equal (apply fn stream args) args)))
63              unless (string= s1 s2)
64              collect i))
65      nil)

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

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