2
;;;; Author: Paul Dietz
3
;;;; Created: Sat Aug 17 08:04:27 2002
4
;;;; Contains: Test cases for FILL on strings
8
(deftest array-string-fill.1
9
(array-string-fill-test-fn "abcde" #\Z)
12
(deftest array-string-fill.2
13
(array-string-fill-test-fn "abcde" #\Z :start 2)
16
(deftest array-string-fill.3
17
(array-string-fill-test-fn "abcde" #\Z :end 3)
20
(deftest array-string-fill.4
21
(array-string-fill-test-fn "abcde" #\Z :start 1 :end 4)
24
(deftest array-string-fill.5
25
(array-string-fill-test-fn "abcde" #\Z :start 2 :end 3)