X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/69b79bdff07bff2174d782dc4c69cf2dadc8225b..846761e426ec4056b7d662adbe3ec4c80a7e8307:/test/src/fns-tests.el

diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el
index 848589692e..c533bad3cd 100644
--- a/test/src/fns-tests.el
+++ b/test/src/fns-tests.el
@@ -235,3 +235,13 @@
                    (backward-delete-char 1)
                    (buffer-hash))
                  (sha1 "foo"))))
+
+(ert-deftest fns-tests-mapcan ()
+  (should-error (mapcan))
+  (should-error (mapcan #'identity))
+  (should-error (mapcan #'identity (make-char-table 'foo)))
+  (should (equal (mapcan #'list '(1 2 3)) '(1 2 3)))
+  ;; `mapcan' is destructive
+  (let ((data '((foo) (bar))))
+    (should (equal (mapcan #'identity data) '(foo bar)))
+    (should (equal data                     '((foo bar) (bar))))))