forked from mirrors/org-mode
TBLFM remote ref: Add ERT for summary table
* testing/lisp/test-org-table.el (test-org-table/remote-reference-indirect): Add a use case of summarizing two tables with a sum into one table for the total; as a preparation for remote reference indirection.
This commit is contained in:
parent
90884b9748
commit
3ab9b6b37d
|
@ -793,6 +793,86 @@ See also `test-org-table/copy-field'."
|
||||||
;; Do a calculation: Use Calc (or Lisp ) formula
|
;; Do a calculation: Use Calc (or Lisp ) formula
|
||||||
"$2 = 2 * remote(table, @1$2)")))
|
"$2 = 2 * remote(table, @1$2)")))
|
||||||
|
|
||||||
|
(ert-deftest test-org-table/remote-reference-indirect ()
|
||||||
|
"Access to remote reference with indirection of name or ID."
|
||||||
|
(let ((source-tables "
|
||||||
|
#+NAME: 2012
|
||||||
|
| amount |
|
||||||
|
|--------|
|
||||||
|
| 1 |
|
||||||
|
| 2 |
|
||||||
|
|--------|
|
||||||
|
| 3 |
|
||||||
|
#+TBLFM: @>$1 = vsum(@I..@II)
|
||||||
|
|
||||||
|
#+NAME: 2013
|
||||||
|
| amount |
|
||||||
|
|--------|
|
||||||
|
| 4 |
|
||||||
|
| 8 |
|
||||||
|
|--------|
|
||||||
|
| 12 |
|
||||||
|
#+TBLFM: @>$1 = vsum(@I..@II)
|
||||||
|
"))
|
||||||
|
|
||||||
|
;; Read several remote references from same column
|
||||||
|
(org-test-table-target-expect
|
||||||
|
(concat source-tables "
|
||||||
|
#+NAME: summary
|
||||||
|
| year | amount |
|
||||||
|
|-------+---------|
|
||||||
|
| 2012 | replace |
|
||||||
|
| 2013 | replace |
|
||||||
|
|-------+---------|
|
||||||
|
| total | replace |
|
||||||
|
")
|
||||||
|
(concat source-tables "
|
||||||
|
#+NAME: summary
|
||||||
|
| year | amount |
|
||||||
|
|-------+--------|
|
||||||
|
| 2012 | 3 |
|
||||||
|
| 2013 | 12 |
|
||||||
|
|-------+--------|
|
||||||
|
| total | 15 |
|
||||||
|
")
|
||||||
|
1
|
||||||
|
;; Calc formula
|
||||||
|
(concat "#+TBLFM: "
|
||||||
|
"@2$2 = remote(2012, @>$1) :: "
|
||||||
|
"@3$2 = remote(2013, @>$1) :: "
|
||||||
|
"@>$2 = vsum(@I..@II)")
|
||||||
|
;; Lisp formula
|
||||||
|
(concat "#+TBLFM: "
|
||||||
|
"@2$2 = '(identity remote(2012, @>$1)); N :: "
|
||||||
|
"@3$2 = '(identity remote(2013, @>$1)); N :: "
|
||||||
|
"@>$2 = '(+ @I..@II); N"))
|
||||||
|
|
||||||
|
;; Read several remote references from same row
|
||||||
|
(org-test-table-target-expect
|
||||||
|
(concat source-tables "
|
||||||
|
#+NAME: summary
|
||||||
|
| year | 2012 | 2013 | total |
|
||||||
|
|--------+---------+---------+---------|
|
||||||
|
| amount | replace | replace | replace |
|
||||||
|
")
|
||||||
|
(concat source-tables "
|
||||||
|
#+NAME: summary
|
||||||
|
| year | 2012 | 2013 | total |
|
||||||
|
|--------+------+------+-------|
|
||||||
|
| amount | 3 | 12 | 15 |
|
||||||
|
")
|
||||||
|
1
|
||||||
|
;; Calc formula
|
||||||
|
(concat "#+TBLFM: "
|
||||||
|
"@2$2 = remote(2012, @>$1) :: "
|
||||||
|
"@2$3 = remote(2013, @>$1) :: "
|
||||||
|
"@2$> = vsum($<<..$>>)")
|
||||||
|
;; Lisp formula
|
||||||
|
(concat "#+TBLFM: "
|
||||||
|
"@2$2 = '(identity remote(2012, @>$1)); N :: "
|
||||||
|
"@2$3 = '(identity remote(2013, @>$1)); N :: "
|
||||||
|
"@2$> = '(+ $<<..$>>); N"))))
|
||||||
|
|
||||||
(ert-deftest test-org-table/org-at-TBLFM-p ()
|
(ert-deftest test-org-table/org-at-TBLFM-p ()
|
||||||
(org-test-with-temp-text-in-file
|
(org-test-with-temp-text-in-file
|
||||||
"
|
"
|
||||||
|
|
Loading…
Reference in New Issue