ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove non-functional test 

* testing/lisp/test-org.el (test-org/sort-entries): Remove a test.
This commit is contained in:
Nicolas Goaziou 2018-02-12 17:56:46 +01:00
parent 551d2f1fe7
commit c29efc8f91
1 changed files with 0 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2745,23 +2745,6 @@ http://article.gmane.org/gmane.emacs.orgmode/21459/"
(org-test-with-temp-text "\n* def\n* xyz\n* abc\n" (org-test-with-temp-text "\n* def\n* xyz\n* abc\n"
(org-sort-entries nil ?A) (org-sort-entries nil ?A)
(buffer-string)))) (buffer-string))))
;; Sort alphabetically (with non-ASCII input). Rebinds
;; `string-collate-lessp' to enforce a canonical locale during
;; testing.
(let ((original-string-collate-lessp (symbol-function 'string-collate-lessp)))
(cl-letf (((symbol-function 'string-collate-lessp)
(lambda (s1 s2)
(funcall original-string-collate-lessp s1 s2 "C"))))
(should
(equal "\n* ¥\n* §\n"
(org-test-with-temp-text "\n* §\n* ¥"
(org-sort-entries nil ?a)
(buffer-string))))
(should
(equal "\n* §\n* ¥\n"
(org-test-with-temp-text "\n* §\n* ¥"
(org-sort-entries nil ?A)
(buffer-string))))))
;; Sort numerically. ;; Sort numerically.
(should (should
(equal "\n* 1\n* 2\n* 10\n" (equal "\n* 1\n* 2\n* 10\n"