mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

One more flatten-tree test

Browse Source 
* test/lisp/subr-tests.el (subr-tests-flatten-tree):
Add a test for lots of nothing.
This commit is contained in:
Paul Eggert 2018-12-17 10:19:48 -08:00
parent ef144113f3
commit 3621593616
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/lisp/subr-tests.el
View File

@ -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))))