3 ;; Copyright (c) ߛ David Maus
6 ;; Released under the GNU General Public License version 3
7 ;; see: http://www.gnu.org/licenses/gpl-3.0.html
11 ;; Template test file for Org-mode tests
15 (let ((load-path (cons (expand-file-name
16 ".." (file-name-directory
17 (or load-file-name buffer-file-name
)))
20 (require 'org-test-ob-consts
))
24 (ert-deftest test-org-table
/org-table-convert-refs-to-an
/1 ()
25 "Simple reference @1$1."
27 (string= "A1" (org-table-convert-refs-to-an "@1$1"))))
30 ;; (ert-deftest test-org-table/org-table-convert-refs-to-an/2 ()
31 ;; "Self reference @1$1."
33 ;; (string= "A1 = $0" (org-table-convert-refs-to-an "@1$1 = $0"))))
35 (ert-deftest test-org-table
/org-table-convert-refs-to-an
/3 ()
38 (string= "C& = remote(FOO, @@#B&)" (org-table-convert-refs-to-an "$3 = remote(FOO, @@#$2)"))))
40 (ert-deftest test-org-table
/org-table-convert-refs-to-rc
/1 ()
41 "Simple reference @1$1."
43 (string= "@1$1" (org-table-convert-refs-to-rc "A1"))))
45 (ert-deftest test-org-table
/org-table-convert-refs-to-rc
/2 ()
48 (string= "@1$1 = $0" (org-table-convert-refs-to-rc "A1 = $0"))))
51 ;; (ert-deftest test-org-table/org-table-convert-refs-to-rc/3 ()
52 ;; "Remote reference."
54 ;; (string= "$3 = remote(FOO, @@#$2)" (org-table-convert-refs-to-rc "C& = remote(FOO, @@#B&)"))))
56 (provide 'test-org-table
)
58 ;;; test-org-table.el ends here