[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3621593 4/4: One more flatten-tree test
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 3621593 4/4: One more flatten-tree test |
Date: |
Mon, 17 Dec 2018 13:26:22 -0500 (EST) |
branch: master
commit 3621593616c1c4ae880c72e8d3de8fac8fc9c581
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
One more flatten-tree test
* test/lisp/subr-tests.el (subr-tests-flatten-tree):
Add a test for lots of nothing.
---
test/lisp/subr-tests.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 08f9a69..b7df718 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))))