/[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.14 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.15 by pfdietz, Tue Sep 21 13:07:11 2004 UTC
# Line 534  Line 534 
534             :start (progn (setf w (incf i)) 0))             :start (progn (setf w (incf i)) 0))
535       i x y z p q r s w))       i x y z p q r s w))
536    #(a z z a) 8 1 2 3 4 5 6 7 8)    #(a z z a) 8 1 2 3 4 5 6 7 8)
537    
538    ;;; Specialized strings
539    
540    (deftest fill.specialized-strings.1
541      (do-special-strings
542       (s (copy-seq "abcde") nil)
543       (assert (string= s "abcde"))
544       (assert (eq s (fill s #\x)))
545       (assert (string= s "xxxxx")))
546      nil)
547    
548    (deftest fill.specialized-strings.2
549      (do-special-strings
550       (s (copy-seq "abcde") nil)
551       (assert (string= s "abcde"))
552       (assert (eq s (fill s #\x  :start 2)))
553       (assert (string= s "abxxx")))
554      nil)
555    
556    (deftest fill.specialized-strings.3
557      (do-special-strings
558       (s (copy-seq "abcde") nil)
559       (assert (string= s "abcde"))
560       (assert (eq s (fill s #\x  :end 3)))
561       (assert (string= s "xxxde")))
562      nil)
563    
564    (deftest fill.specialized-strings.4
565      (do-special-strings
566       (s (copy-seq "abcde") nil)
567       (assert (string= s "abcde"))
568       (assert (eq s (fill s #\x  :start 1 :end 4)))
569       (assert (string= s "axxxe")))
570      nil)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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