Remove non-functional test
* testing/lisp/test-org.el (test-org/sort-entries): Remove a test.
This commit is contained in:
parent
551d2f1fe7
commit
c29efc8f91
|
@ -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-sort-entries nil ?A)
|
||||
(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.
|
||||
(should
|
||||
(equal "\n* 1\n* 2\n* 10\n"
|
||||
|
|
Loading…
Reference in New Issue