mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 18:36:26 +00:00
Code Releases Activity

Table formula: Add ERT for Lisp return values

Browse source 
* testing/lisp/test-org-table.el (test-org-table/lisp-return-value):
Add test with TODO.
This commit is contained in:
Michael Brand 2014-09-14 10:43:37 +02:00
parent 3f88821f01
commit 551891e2ad
1 changed files with 38 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
testing/lisp/test-org-table.el
View file

@ -393,6 +393,44 @@ reference (with row). Mode string N."
"
1 calc)))
(ert-deftest test-org-table/lisp-return-value ()
"Basic: Return value of Lisp formulas."
(org-test-table-target-expect
"
| | nil | (list) | '() |
|-------------------------+-------------+--------+-----|
| type-of, no L | replace (r) | r | r |
| type-of identity, no L | r | r | r |
| identity, no L | r | r | r |
|-------------------------+-------------+--------+-----|
| type-of \"@1\" | r | r | r |
| type-of (identity \"@1\") | r | r | r |
| identity \"@1\" | r | r | r |
|-------------------------+-------------+--------+-----|
| type-of @1 | r | r | r |
| type-of (identity @1) | r | r | r |
| identity @1 | r | r | r |
"
;; TODO Fix "#ERROR".
"
| | nil | (list) | '() |
|-------------------------+--------+--------+--------|
| type-of, no L | string | string | string |
| type-of identity, no L | string | string | string |
| identity, no L | nil | (list) | '() |
|-------------------------+--------+--------+--------|
| type-of \"@1\" | string | string | string |
| type-of (identity \"@1\") | string | string | string |
| identity \"@1\" | nil | (list) | '() |
|-------------------------+--------+--------+--------|
| type-of @1 | symbol | symbol | symbol |
| type-of (identity @1) | symbol | symbol | symbol |
| identity @1 | #ERROR | #ERROR | #ERROR |
"
1 (concat "#+TBLFM: @2$<<..@2$> = '(type-of @1) :: "
"@3$<<..@3$> = '(type-of (identity @1)) :: "
"@4$<<..@4$> = '(identity @1) :: @5$<<..@>$> = '(@0$1); L")))
(ert-deftest test-org-table/compare ()
"Basic: Compare field references in Calc."
(org-test-table-target-expect