diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-02-12 17:56:46 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-02-12 17:56:46 +0100 |
commit | c29efc8f912f00db99edc98c113e68a9ef32b507 (patch) | |
tree | 9ddb67879451236a3c125af680bd8cf3e92d0925 | |
parent | 551d2f1fe7ad797806ed51c63d45553ef1d6a777 (diff) | |
download | org-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.el | 17 |
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" |