ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-table: Add tests 

* testing/lisp/test-org-table.el (test-org-table/eval-formula):
(test-org-table/last-rc): New tests.
(test-org-table/first-rc): Add tests.
This commit is contained in:
Nicolas Goaziou 2016-03-26 00:20:08 +01:00
parent 28a8d2e24e
commit a737f20ca4
1 changed files with 61 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1673,7 +1673,41 @@ See also `test-org-table/copy-field'."
(buffer-string)))))
;;; Field formulas
;;; Formulas
(ert-deftest test-org-table/eval-formula ()
"Test `org-table-eval-formula' specifications."
;; Error when not on a table field.
(should-error
(org-test-with-temp-text "Text"
(org-table-eval-formula)))
(should-error
(org-test-with-temp-text "| a |\n|---|<point>"
(org-table-eval-formula)))
(should-error
(org-test-with-temp-text "| a |\n#+TBLFM:<point>"
(org-table-eval-formula)))
;; Handle @<, @>, $< and $>.
(should
(equal "| 1 |\n| 1 |"
(org-test-with-temp-text "| <point> |\n| 1 |"
(org-table-eval-formula nil "@>" nil nil t)
(buffer-string))))
(should
(equal "| 1 |\n| 1 |"
(org-test-with-temp-text "| 1 |\n| <point> |"
(org-table-eval-formula nil "@<" nil nil t)
(buffer-string))))
(should
(equal "| 1 | 1 |"
(org-test-with-temp-text "| <point> | 1 |"
(org-table-eval-formula nil "$>" nil nil t)
(buffer-string))))
(should
(equal "| 1 | 1 |"
(org-test-with-temp-text "| 1 | <point> |"
(org-table-eval-formula nil "$<" nil nil t)
(buffer-string)))))
(ert-deftest test-org-table/field-formula-outside-table ()
"If `org-table-formula-create-columns' is nil, then a formula
@ -1840,7 +1874,7 @@ is t, then new columns should be added as needed"
(buffer-string)))))
(ert-deftest test-org-table/first-rc ()
"Test \"$<\" constructs in formulas."
"Test \"$<\" and \"@<\" constructs in formulas."
(should
(org-string-match-p
"| 1 | 2 |"
@ -1848,6 +1882,31 @@ is t, then new columns should be added as needed"
"| | 2 |
<point>#+TBLFM: $<=1"
(org-table-calc-current-TBLFM)
(buffer-string))))
(should
(org-string-match-p
"| 2 |\n| 2 |"
(org-test-with-temp-text
"| 2 |\n| |
<point>#+TBLFM: @2$1=@<"
(org-table-calc-current-TBLFM)
(buffer-string)))))
(ert-deftest test-org-table/last-rc ()
"Test \"$>\" and \"@>\" constructs in formulas."
(should
(org-string-match-p
"| 2 | 1 |"
(org-test-with-temp-text
"| 2 | |\n<point>#+TBLFM: $>=1"
(org-table-calc-current-TBLFM)
(buffer-string))))
(should
(org-string-match-p
"| 2 |\n| 2 |"
(org-test-with-temp-text
"| 2 |\n| |\n<point>#+TBLFM: @>$1=@<"
(org-table-calc-current-TBLFM)
(buffer-string)))))