summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2018-02-12 17:56:46 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2018-02-12 17:56:46 +0100
commitc29efc8f912f00db99edc98c113e68a9ef32b507 (patch)
tree9ddb67879451236a3c125af680bd8cf3e92d0925
parent551d2f1fe7ad797806ed51c63d45553ef1d6a777 (diff)
downloadorg-mode-c29efc8f912f00db99edc98c113e68a9ef32b507.tar.gz
Remove non-functional test
* testing/lisp/test-org.el (test-org/sort-entries): Remove a test.
-rw-r--r--testing/lisp/test-org.el17
1 files changed, 0 insertions, 17 deletions
diff --git a/testing/lisp/test-org.el b/testing/lisp/test-org.el
index a108b6c..510dec4 100644
--- a/testing/lisp/test-org.el
+++ b/testing/lisp/test-org.el
@@ -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"