From 89ec5e198b07e21740d4e5080b64fd8fa2b35a53 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Sebastian=20Reu=C3=9Fe?= Date: Sun, 11 Mar 2018 16:43:49 +0100 Subject: [PATCH] Fix org-table-sort-lines test MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * test-org-table.el (test-org-table/sort-lines): Fix and improve testcase. Sorting and reversing «a C b» should result in «C b a», not in «b a C». This test did not fail previously only because org-table-sort-lines had an issue whereby sorts were always case-sensitive. --- testing/lisp/test-org-table.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el index 850080c7a..d90caa8e9 100644 --- a/testing/lisp/test-org-table.el +++ b/testing/lisp/test-org-table.el @@ -1691,13 +1691,13 @@ See also `test-org-table/copy-field'." (buffer-string)))) ;; Sort alphabetically. (should - (equal "| a | x |\n| b | 4 |\n| c | 3 |\n" - (org-test-with-temp-text "| a | x |\n| c | 3 |\n| b | 4 |\n" + (equal "| a | x |\n| B | 4 |\n| c | 3 |\n" + (org-test-with-temp-text "| a | x |\n| c | 3 |\n| B | 4 |\n" (org-table-sort-lines nil ?a) (buffer-string)))) (should - (equal "| c | 3 |\n| b | 4 |\n| a | x |\n" - (org-test-with-temp-text "| a | x |\n| c | 3 |\n| b | 4 |\n" + (equal "| c | 3 |\n| B | 4 |\n| a | x |\n" + (org-test-with-temp-text "| a | x |\n| c | 3 |\n| B | 4 |\n" (org-table-sort-lines nil ?A) (buffer-string)))) ;; Sort alphabetically with case. @@ -1707,7 +1707,7 @@ See also `test-org-table/copy-field'." (org-table-sort-lines t ?a) (buffer-string)))) (should - (equal "| b |\n| a |\n| C |\n" + (equal "| C |\n| b |\n| a |\n" (org-test-with-temp-text "| a |\n| C |\n| b |\n" (org-table-sort-lines nil ?A) (buffer-string))))