srfi: 1: add tests for append! (and concatenate!)

ashinn · Jan 9, 2024 · 70989e0 · 70989e0
1 parent 7bf376b
commit 70989e0
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/lib/srfi/1/test.sld b/lib/srfi/1/test.sld
@@ -77,6 +77,10 @@
       (test 'a (append '() 'a))
       (test '(x y) (append '(x y)))
       (test '() (append))
+      (test (list 'a) (append! '() (list 'a)))
+      (test (list 'a 'b) (append! (list 'a) '() '() (list 'b)))
+      (test (list 'x 'y) (append! (list 'x 'y)))
+      (test '() (append!))
       (test '(c b a) (reverse '(a b c)))
       (test '((e (f)) d (b c) a) (reverse '(a (b c) d (e (f)))))
       (test '((one 1 odd) (two 2 even) (three 3 odd)) (zip '(one two three) '(1 2 3) '(odd even odd even odd even odd even)))