ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
testing/lisp/test-org-table.el
View File

@ -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 "| <point>a | x |\n| c | 3 |\n| b | 4 |\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-table-sort-lines nil ?a)
(buffer-string))))
(should
(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"
(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-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 "| <point>a |\n| C |\n| b |\n"
(org-table-sort-lines nil ?A)
(buffer-string))))