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:
parent
0d6ee386a1
commit
89ec5e198b
|
@ -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))))
|
||||||
|
|
Loading…
Reference in New Issue