forked from mirrors/org-mode
de42649f7b
e85080 is the last correct commit in the maint branch before releasing 7.8.04. The 7.8.05 release should be done from this commit.
67 lines
1.9 KiB
EmacsLisp
67 lines
1.9 KiB
EmacsLisp
;;; test-org-table.el
|
||
|
||
;; Copyright (c) ߛ David Maus
|
||
;; Authors: David Maus
|
||
|
||
;; Released under the GNU General Public License version 3
|
||
;; see: http://www.gnu.org/licenses/gpl-3.0.html
|
||
|
||
;;;; Comments:
|
||
|
||
;; Template test file for Org-mode tests
|
||
|
||
|
||
;;; Code:
|
||
(let ((load-path (cons (expand-file-name
|
||
".." (file-name-directory
|
||
(or load-file-name buffer-file-name)))
|
||
load-path)))
|
||
(require 'org-test)
|
||
(require 'org-test-ob-consts))
|
||
|
||
|
||
;;; Tests
|
||
(ert-deftest test-org-table/org-table-convert-refs-to-an/1 ()
|
||
"Simple reference @1$1."
|
||
(should
|
||
(string= "A1" (org-table-convert-refs-to-an "@1$1"))))
|
||
|
||
;; TODO: Test broken
|
||
;; (ert-deftest test-org-table/org-table-convert-refs-to-an/2 ()
|
||
;; "Self reference @1$1."
|
||
;; (should
|
||
;; (string= "A1 = $0" (org-table-convert-refs-to-an "@1$1 = $0"))))
|
||
|
||
(ert-deftest test-org-table/org-table-convert-refs-to-an/3 ()
|
||
"Remote reference."
|
||
(should
|
||
(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."
|
||
(should
|
||
(string= "@1$1" (org-table-convert-refs-to-rc "A1"))))
|
||
|
||
(ert-deftest test-org-table/org-table-convert-refs-to-rc/2 ()
|
||
"Self reference $0."
|
||
(should
|
||
(string= "@1$1 = $0" (org-table-convert-refs-to-rc "A1 = $0"))))
|
||
|
||
;; TODO: Test Broken
|
||
;; (ert-deftest test-org-table/org-table-convert-refs-to-rc/3 ()
|
||
;; "Remote reference."
|
||
;; (should
|
||
;; (string= "$3 = remote(FOO, @@#$2)" (org-table-convert-refs-to-rc "C& = remote(FOO, @@#B&)"))))
|
||
|
||
(ert-deftest test-org-table/simple-formula ()
|
||
(org-test-at-id "563523f7-3f3e-49c9-9622-9216cc9a5d95"
|
||
(re-search-forward (regexp-quote "#+tblname: simple-formula") nil t)
|
||
(forward-line 1)
|
||
(should (org-at-table-p))
|
||
(should (org-table-recalculate 'all))
|
||
(should (string= "10" (first (nth 5 (org-table-to-lisp)))))))
|
||
|
||
(provide 'test-org-table)
|
||
|
||
;;; test-org-table.el ends here
|