瀏覽代碼

Remove non-functional test

* testing/lisp/test-org.el (test-org/sort-entries): Remove a test.
Nicolas Goaziou 7 年之前
父節點
當前提交
c29efc8f91
共有 1 個文件被更改,包括 0 次插入17 次删除
  1. 0 17
      testing/lisp/test-org.el

+ 0 - 17
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"