shithub: sl

Info  •  Files  •  Log  •  Branches

append: add missing unit test

--- a/test/unittest.sl

+++ b/test/unittest.sl

@@ -386,6 +386,15 @@

 (assert (equal? (append NIL NIL) NIL))

 (assert (equal? (append '(1 2)) '(1 2)))

 (assert (equal? (append '(1 2) '(3 4)) '(1 2 3 4)))

+(let* {[l1 '(0 1)]

+       [l2 '(2 3)]

+       [a (append l1 l2)]}

+  (assert (equal? a (iota 4)))

+  (aset! l1 1 "hi")

+  (assert (equal? a (iota 4)))

+  (aset! l2 1 "blah")

+  (assert (equal? a '(0 1 2 "blah"))))

+

 ;; infinite list

 (def a '(1))