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