/[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.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 s = (make-string i :initial-element #\~)          for s = (make-string i :initial-element #\~)
15          for s2 = (format nil (format nil "~~~D~~" i))          for format-string = (format nil "~~~D~~" i)
16            for s2 = (format nil format-string)
17            unless (string= s s2)
18            collect (list i s s2))
19      nil)
20    
21    (deftest formatter.~.2
22      (loop for i from 0 to 100
23            for s = (make-string i :initial-element #\~)
24            for format-string = (format nil "~~~D~~" i)
25            for fn = (eval `(formatter ,format-string))
26            for s2 = (formatter-call-to-string fn)
27          unless (string= s s2)          unless (string= s s2)
28          collect (list i s s2))          collect (list i s s2))
29    nil)    nil)
# Line 28  Line 39 
39          collect (list i s s2))          collect (list i s s2))
40    nil)    nil)
41    
42    (deftest formatter.~.4
43      (let ((fn (formatter "~v~")))
44        (loop for i from 0 to 100
45              for s = (make-string i :initial-element #\~)
46              for s2 = (formatter-call-to-string fn i)
47              unless (string= s s2)
48              collect (list i s s2)))
49      nil)
50    
51  (deftest format.~.5  (deftest format.~.5
52    (loop for i from 0 to (min (- call-arguments-limit 3) 100)    (loop for i from 0 to (min (- call-arguments-limit 3) 100)
53          for s = (make-string i :initial-element #\~)          for s = (make-string i :initial-element #\~)
# Line 36  Line 56 
56          unless (string= s s2)          unless (string= s s2)
57          collect (list i s s2))          collect (list i s s2))
58    nil)    nil)
59    
60    (deftest formatter.~.5
61      (let ((fn (formatter "~#~")))
62        (loop for i from 0 to (min (- call-arguments-limit 3) 100)
63              for s = (make-string i :initial-element #\~)
64              for args = (make-list i)
65              for s2 = (with-output-to-string
66                         (stream)
67                         (assert (equal (apply fn stream args) args)))
68              unless (string= s s2)
69              collect (list i s s2)))
70      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