From: Paul Eggert <eggert@cs.ucla.edu>
Date: Mon, 17 Dec 2018 18:19:48 +0000 (-0800)
Subject: One more flatten-tree test
X-Git-Tag: emacs-27.0.90~3973
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3621593616c1c4ae880c72e8d3de8fac8fc9c581;p=emacs.git

One more flatten-tree test

* test/lisp/subr-tests.el (subr-tests-flatten-tree):
Add a test for lots of nothing.
---

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 08f9a697a3c..b7df7186836 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -383,9 +383,11 @@ See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=19350."
   (should (equal (flatten-tree 42)
                  '(42)))
   (should (equal (flatten-tree t)
-               '(t)))
+                 '(t)))
   (should (equal (flatten-tree nil)
-               nil))
+                 nil))
+  (should (equal (flatten-tree '((nil) ((((nil)))) nil))
+                 nil))
   (should (equal (flatten-tree '(1 ("foo" "bar") 2))
                  '(1 "foo" "bar" 2))))