forked from mirrors/org-mode
Fix tests wrt commit 0c31a4fc
This commit is contained in:
parent
c5abc7e0ba
commit
838e421bf5
|
@ -808,7 +808,7 @@ reference (with row). Mode string N."
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(should (equal (org-at-TBLFM-p) nil))))
|
(should (equal (org-at-TBLFM-p) nil))))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-TBLFM-begin ()
|
(ert-deftest test-org-table/org-table-TBLFM-begin ()
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
| 1 |
|
| 1 |
|
||||||
|
@ -817,27 +817,27 @@ reference (with row). Mode string N."
|
||||||
|
|
||||||
"
|
"
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 1)
|
(forward-line 1)
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 3)
|
(forward-line 3)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
))
|
))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-TBLFM-begin-for-multiple-TBLFM-lines ()
|
(ert-deftest test-org-table/org-table-TBLFM-begin-for-multiple-TBLFM-lines ()
|
||||||
"For multiple #+TBLFM lines."
|
"For multiple #+TBLFM lines."
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
|
@ -848,32 +848,32 @@ reference (with row). Mode string N."
|
||||||
|
|
||||||
"
|
"
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 1)
|
(forward-line 1)
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 3)
|
(forward-line 3)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 5)
|
(forward-line 5)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
))
|
))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-TBLFM-begin-for-pultiple-TBLFM-lines-blocks ()
|
(ert-deftest test-org-table/org-table-TBLFM-begin-for-pultiple-TBLFM-lines-blocks ()
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
| 1 |
|
| 1 |
|
||||||
|
@ -888,50 +888,50 @@ reference (with row). Mode string N."
|
||||||
|
|
||||||
"
|
"
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 1)
|
(forward-line 1)
|
||||||
(should (equal (org-TBLFM-begin)
|
(should (equal (org-table-TBLFM-begin)
|
||||||
nil))
|
nil))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 3)
|
(forward-line 3)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 5)
|
(forward-line 5)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 6)
|
(forward-line 6)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
14))
|
14))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 8)
|
(forward-line 8)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
61))
|
61))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 9)
|
(forward-line 9)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
61))
|
61))
|
||||||
|
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 10)
|
(forward-line 10)
|
||||||
(should (= (org-TBLFM-begin)
|
(should (= (org-table-TBLFM-begin)
|
||||||
61))))
|
61))))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-calc-current-TBLFM ()
|
(ert-deftest test-org-table/org-table-calc-current-TBLFM ()
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
| 1 | |
|
| 1 | |
|
||||||
|
@ -942,7 +942,7 @@ reference (with row). Mode string N."
|
||||||
"
|
"
|
||||||
(let ((got (progn (goto-char (point-min))
|
(let ((got (progn (goto-char (point-min))
|
||||||
(forward-line 3)
|
(forward-line 3)
|
||||||
(org-calc-current-TBLFM)
|
(org-table-calc-current-TBLFM)
|
||||||
(buffer-string)))
|
(buffer-string)))
|
||||||
(expect "
|
(expect "
|
||||||
| 1 | 1 |
|
| 1 | 1 |
|
||||||
|
@ -956,7 +956,7 @@ reference (with row). Mode string N."
|
||||||
|
|
||||||
(let ((got (progn (goto-char (point-min))
|
(let ((got (progn (goto-char (point-min))
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(org-calc-current-TBLFM)
|
(org-table-calc-current-TBLFM)
|
||||||
(buffer-string)))
|
(buffer-string)))
|
||||||
(expect "
|
(expect "
|
||||||
| 1 | 2 |
|
| 1 | 2 |
|
||||||
|
@ -968,8 +968,8 @@ reference (with row). Mode string N."
|
||||||
(should (string= got
|
(should (string= got
|
||||||
expect)))))
|
expect)))))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-calc-current-TBLFM-when-stop-because-of-error ()
|
(ert-deftest test-org-table/org-table-calc-current-TBLFM-when-stop-because-of-error ()
|
||||||
"org-calc-current-TBLFM should preserve the input as it was."
|
"org-table-calc-current-TBLFM should preserve the input as it was."
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
| 1 | 1 |
|
| 1 | 1 |
|
||||||
|
@ -987,7 +987,7 @@ reference (with row). Mode string N."
|
||||||
"))
|
"))
|
||||||
(goto-char (point-min))
|
(goto-char (point-min))
|
||||||
(forward-line 4)
|
(forward-line 4)
|
||||||
(should-error (org-calc-current-TBLFM))
|
(should-error (org-table-calc-current-TBLFM))
|
||||||
(setq got (buffer-string))
|
(setq got (buffer-string))
|
||||||
(message "%s" got)
|
(message "%s" got)
|
||||||
(should (string= got
|
(should (string= got
|
||||||
|
|
Loading…
Reference in a new issue