Fix org-table-sort-lines test

* 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.
This commit is contained in:
Sebastian Reuße 2018-03-11 16:43:49 +01:00 committed by Nicolas Goaziou
parent 0d6ee386a1
commit 89ec5e198b
1 changed files with 5 additions and 5 deletions

View File

@ -1691,13 +1691,13 @@ See also `test-org-table/copy-field'."
(buffer-string)))) (buffer-string))))
;; Sort alphabetically. ;; Sort alphabetically.
(should (should
(equal "| a | x |\n| b | 4 |\n| c | 3 |\n" (equal "| a | x |\n| B | 4 |\n| c | 3 |\n"
(org-test-with-temp-text "| <point>a | x |\n| c | 3 |\n| b | 4 |\n" (org-test-with-temp-text "| <point>a | x |\n| c | 3 |\n| B | 4 |\n"
(org-table-sort-lines nil ?a) (org-table-sort-lines nil ?a)
(buffer-string)))) (buffer-string))))
(should (should
(equal "| c | 3 |\n| b | 4 |\n| a | x |\n" (equal "| c | 3 |\n| B | 4 |\n| a | x |\n"
(org-test-with-temp-text "| <point>a | x |\n| c | 3 |\n| b | 4 |\n" (org-test-with-temp-text "| <point>a | x |\n| c | 3 |\n| B | 4 |\n"
(org-table-sort-lines nil ?A) (org-table-sort-lines nil ?A)
(buffer-string)))) (buffer-string))))
;; Sort alphabetically with case. ;; Sort alphabetically with case.
@ -1707,7 +1707,7 @@ See also `test-org-table/copy-field'."
(org-table-sort-lines t ?a) (org-table-sort-lines t ?a)
(buffer-string)))) (buffer-string))))
(should (should
(equal "| b |\n| a |\n| C |\n" (equal "| C |\n| b |\n| a |\n"
(org-test-with-temp-text "| <point>a |\n| C |\n| b |\n" (org-test-with-temp-text "| <point>a |\n| C |\n| b |\n"
(org-table-sort-lines nil ?A) (org-table-sort-lines nil ?A)
(buffer-string)))) (buffer-string))))