tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

Fix tests wrt commit 0c31a4fc

This commit is contained in:
Bastien Guerry 2013-05-15 16:31:44 +02:00
parent c5abc7e0ba
commit 838e421bf5
1 changed files with 27 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
testing/lisp/test-org-table.el
View File

@ -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