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) |