|
@@ -0,0 +1,56 @@
|
|
|
|
+;;; 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"))))
|
|
|
|
+
|
|
|
|
+(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"))))
|
|
|
|
+
|
|
|
|
+(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&)"))))
|
|
|
|
+
|
|
|
|
+(provide 'test-org-table)
|
|
|
|
+
|
|
|
|
+;;; test-org-table.el ends here
|