From 681f870b25a2005f76c99a929a0f5c9b3b481a6b Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sebastian=20Reu=C3=9Fe?= Date: Tue, 13 Mar 2018 17:51:44 +0100 Subject: [PATCH] Extend org-sort-entries test * test-org.el (test-org/sort-entries): Test with empty headings. --- testing/lisp/test-org.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el index 67337de76..e97dfe775 100644 --- a/testing/lisp/test-org.el +++ b/testing/lisp/test-org.el @@ -2745,6 +2745,11 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/" (org-test-with-temp-text "\n* def\n* xyz\n* abc\n" (org-sort-entries nil ?A) (buffer-string)))) + (should + (equal "\n* \n* klm\n* xyz\n" + (org-test-with-temp-text "\n* xyz\n* \n* klm\n" + (org-sort-entries nil ?a) + (buffer-string)))) ;; Sort numerically. (should (equal "\n* 1\n* 2\n* 10\n" @@ -2756,6 +2761,11 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/" (org-test-with-temp-text "\n* 10\n* 1\n* 2\n" (org-sort-entries nil ?N) (buffer-string)))) + (should + (equal "\n* \n* 1\n* 2\n" + (org-test-with-temp-text "\n* 1\n* \n* 2\n" + (org-sort-entries nil ?n) + (buffer-string)))) ;; Sort by custom function. (should (equal "\n* b\n* aa\n* ccc\n" -- 2.11.4.GIT