From 3621593616c1c4ae880c72e8d3de8fac8fc9c581 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 17 Dec 2018 10:19:48 -0800 Subject: [PATCH] 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 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)))) -- 2.39.5