0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 21:37:50 +00:00

ERT: Spreadsheet references more sensitive

* testing/lisp/test-org-table.el:
(test-org-table/org-table-convert-refs-to-an/1):
(test-org-table/org-table-convert-refs-to-rc/1): Row and column number
different.
This commit is contained in:
Michael Brand 2016-06-25 17:06:12 +02:00
parent e4baab8e10
commit 4b2aa43ce6

View file

@ -877,9 +877,9 @@ See also http://orgmode.org/worg/org-tutorials/org-lookups.html ."
(should (equal "[0,1]" (f '( "inf" "1") nil t nil))))
(ert-deftest test-org-table/org-table-convert-refs-to-an/1 ()
"Simple reference @1$1."
"Simple reference @2$1."
(should
(string= "A1" (org-table-convert-refs-to-an "@1$1"))))
(string= "A2" (org-table-convert-refs-to-an "@2$1"))))
;; TODO: Test broken
;; (ert-deftest test-org-table/org-table-convert-refs-to-an/2 ()
@ -893,9 +893,9 @@ See also http://orgmode.org/worg/org-tutorials/org-lookups.html ."
(string= "C& = remote(FOO, @@#B&)" (org-table-convert-refs-to-an "$3 = remote(FOO, @@#$2)"))))
(ert-deftest test-org-table/org-table-convert-refs-to-rc/1 ()
"Simple reference @1$1."
"Simple reference @2$1."
(should
(string= "@1$1" (org-table-convert-refs-to-rc "A1"))))
(string= "@2$1" (org-table-convert-refs-to-rc "A2"))))
(ert-deftest test-org-table/org-table-convert-refs-to-rc/2 ()
"Self reference $0."