Test append on dotted lists. I broked it.

diff --git a/tests/runtime/test-list.scm b/tests/runtime/test-list.scm
index 8fe5c174dd0c3f41623898ed18eb9568adddcf50..22120405b2da55705a00bfd92c8019e94ef81a2b 100644 (file)
--- a/tests/runtime/test-list.scm
+++ b/tests/runtime/test-list.scm
@@ -36,6 +36,22 @@ USA.
       (let ((n-bytes (- stack-end stack-start)))
        (quotient n-bytes bytes-per-word)))))
 
+(define-test 'append-dotted
+  (lambda ()
+    (assert-equal (append 'x) 'x)
+    (assert-equal (append '(x) 'y) '(x . y))
+    (expect-error
+     (lambda ()
+       (assert-equal (append '(x) '(y) 'z) '(x y . z))))))
+
+(define-test 'append!-dotted
+  (lambda ()
+    (assert-equal (append! 'x) 'x)
+    (assert-equal (append! (list 'x) 'y) '(x . y))
+    (expect-error
+     (lambda ()
+       (assert-equal (append! (list 'x) (list 'y) 'z) '(x y . z))))))
+
 (define-test 'map-long
   (lambda ()
     (let* ((n (words-in-stack))