mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

Extend org-sort-entries test 

* test-org.el (test-org/sort-entries): Test with empty headings.
This commit is contained in:
Sebastian Reuße 2018-03-13 17:51:44 +01:00 committed by Nicolas Goaziou
parent 55d807f348
commit 681f870b25
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
testing/lisp/test-org.el
View File

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