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
|
||||
"$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 ()
|
||||
(org-test-with-temp-text-in-file
|
||||
"
|
||||
|
|
Loading…
Reference in New Issue