blob: 89ea7f46a98d63326c122c3d98df35d72f57a918 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
--- tests/seq.pure.lisp.orig 2021-07-30 08:42:10 UTC
+++ tests/seq.pure.lisp
@@ -584,3 +584,18 @@
;; Try all other numeric array types
(dolist (y arrays)
(assert (equalp x y)))))))
+
+;; lp#1938598
+(with-test (:name :vector-replace-self)
+ ;; example 1
+ (let ((string (make-array 0 :adjustable t :fill-pointer 0 :element-type 'character)))
+ (declare (notinline replace))
+ (vector-push-extend #\_ string)
+ ;; also test it indirectly
+ (replace string string :start1 1 :start2 0))
+ ;; example 2
+ (let ((string (make-array 0 :adjustable t :fill-pointer 0 :element-type 'character)))
+ (declare (notinline replace))
+ (loop for char across "tset" do (vector-push-extend char string))
+ (replace string string :start2 1 :start1 2)
+ (assert (string= string "tsse"))))
|
