/[gcl]/gcl/ansi-tests/fill.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/fill.lsp

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

revision 1.5 by pfdietz, Sat Nov 2 03:55:07 2002 UTC revision 1.6 by pfdietz, Sun Nov 3 11:07:16 2002 UTC
# Line 194  Line 194 
194    (classify-error (array-unsigned-byte-fill-test-fn 8 17 :end 'a))    (classify-error (array-unsigned-byte-fill-test-fn 8 17 :end 'a))
195    type-error)    type-error)
196    
197    ;;; Tests on arrays with fill pointers
198    
199    (deftest array-fill-pointer-fill.1
200      (let ((s1 (make-array '(10) :fill-pointer 5 :initial-element nil)))
201        (fill s1 'a)
202        (loop for i from 0 to 9 collect (aref s1 i)))
203      (a a a a a nil nil nil nil nil))
204    
205    (deftest array-fill-pointer-fill.2
206      (let ((s1 (make-array '(10) :fill-pointer 5 :initial-element nil)))
207        (fill s1 'a :end nil)
208        (loop for i from 0 to 9 collect (aref s1 i)))
209      (a a a a a nil nil nil nil nil))
210    
211    ;;; Tests on strings
212    
213    (deftest fill.string.1
214      (let* ((s1 (copy-seq "abcde"))
215             (s2 (fill s1 #\z)))
216        (values (eqt s1 s2) s2))
217      t
218      "zzzzz")
219    
220    (deftest fill.string.2
221      (let* ((s1 (copy-seq "abcde"))
222             (s2 (fill s1 #\z :start 0 :end 1)))
223        (values (eqt s1 s2) s2))
224      t
225      "zbcde")
226    
227    (deftest fill.string.3
228      (let* ((s1 (copy-seq "abcde"))
229             (s2 (fill s1 #\z :end 2)))
230        (values (eqt s1 s2) s2))
231      t
232      "zzcde")
233    
234    (deftest fill.string.4
235      (let* ((s1 (copy-seq "abcde"))
236             (s2 (fill s1 #\z :end nil)))
237        (values (eqt s1 s2) s2))
238      t
239      "zzzzz")
240    
241    
242    
243    
244    
245            
246      

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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