[PATCH 3/6] Fix org-table-sort-lines test

["Sebastian Reuße" <seb@wirrsal.net>]

* 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 @@
 	    (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 @@
 	    (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))))
-- 
2.16.2