/[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.15 by pfdietz, Tue Sep 21 13:07:11 2004 UTC revision 1.16 by pfdietz, Sat Sep 25 15:08:58 2004 UTC
# Line 568  Line 568 
568     (assert (eq s (fill s #\x  :start 1 :end 4)))     (assert (eq s (fill s #\x  :start 1 :end 4)))
569     (assert (string= s "axxxe")))     (assert (string= s "axxxe")))
570    nil)    nil)
571    
572    ;;; Specialized vector tests
573    
574    (deftest fill.specialized-vectors.1
575      (do-special-integer-vectors
576       (v #(0 1 1 0 1) nil)
577       (let ((etype (array-element-type v)))
578         (assert (eq v (fill v 0)))
579         (assert (equal (array-element-type v) etype)))
580       (assert (equalp v #(0 0 0 0 0))))
581      nil)
582    
583    (deftest fill.specialized-vectors.2
584      (do-special-integer-vectors
585       (v #(0 -1 1 0 -1) nil)
586       (let ((etype (array-element-type v)))
587         (assert (eq v (fill v 1)))
588         (assert (equal (array-element-type v) etype)))
589       (assert (equalp v #(1 1 1 1 1))))
590      nil)
591    
592    (deftest fill.specialized-vectors.3
593      (do-special-integer-vectors
594       (v #(1 1 1 1 0) nil)
595       (let ((etype (array-element-type v)))
596         (assert (eq v (fill v 0 :start 1 :end 3)))
597         (assert (equal (array-element-type v) etype)))
598       (assert (equalp v #(1 0 0 1 0))))
599      nil)

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

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