* 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 33769aafa..8c98fce4d 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -2745,6 +2745,11 @@
          (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 @@
          (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.16.2


Reply via email to