Add ERTs for basic spreadsheet functionality
* doc/org.texi (Formula syntax for Calc): Extend explanations of format specifiers. * testing/lisp/test-org-table.el: Various new ert-deftest, mark with TODO what needs to be fixed.
This commit is contained in:
parent
0ce406151f
commit
f5dd9a8a7a
11
doc/org.texi
11
doc/org.texi
|
@ -2616,9 +2616,12 @@ n3 s3 e2 f4 @r{Normal, scientific, engineering, or fixed}
|
|||
@r{long as the Calc calculation precision is greater.}
|
||||
D R @r{angle modes: degrees, radians}
|
||||
F S @r{fraction and symbolic modes}
|
||||
N @r{interpret all fields as numbers, use 0 for non-numbers}
|
||||
E @r{keep empty fields in ranges}
|
||||
L @r{literal}
|
||||
E @r{keep empty fields in ranges; else suppress empty fields in}
|
||||
@r{range references and use 0 for empty field references, see}
|
||||
@r{also the notes for `Range references' in @pxref{References}}
|
||||
N @r{interpret all fields as numbers, use 0 for non-numbers;}
|
||||
@r{N has higher precedence than E (for the value of the field)}
|
||||
L @r{literal, for Lisp formulas only}
|
||||
@end example
|
||||
|
||||
@noindent
|
||||
|
@ -2642,7 +2645,7 @@ $0;%.1f @r{Reformat current cell to 1 decimal}
|
|||
$c/$1/$cm @r{Hz -> cm conversion, using @file{constants.el}}
|
||||
tan($1);Dp3s1 @r{Compute in degrees, precision 3, display SCI 1}
|
||||
sin($1);Dp3%.1e @r{Same, but use printf specifier for display}
|
||||
vmean($2..$7) @r{Compute column range mean, using vector function}
|
||||
vmean($2..$7) @r{Compute column range mean, suppress empty fields}
|
||||
vmean($2..$7);EN @r{Same, but treat empty fields as 0}
|
||||
taylor($3,x=7,2) @r{Taylor series of $3, at x=7, second degree}
|
||||
@end example
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
;;; test-org-table.el --- tests for org-table.el
|
||||
|
||||
;; Copyright (c) David Maus
|
||||
;; Authors: David Maus
|
||||
;; Authors: David Maus, Michael Brand
|
||||
|
||||
;; This file is not part of GNU Emacs.
|
||||
|
||||
|
@ -20,10 +20,141 @@
|
|||
|
||||
;;;; Comments:
|
||||
|
||||
;; Template test file for Org-mode tests
|
||||
;; Template test file for Org-mode tests. First the tests that are
|
||||
;; also a howto example collection as a user documentation, more or
|
||||
;; less all those using `org-test-table-target-expect'. Then the
|
||||
;; internal and more abstract tests. See also the doc string of
|
||||
;; `org-test-table-target-expect'.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(require 'org-table) ; `org-table-make-reference'
|
||||
|
||||
(ert-deftest test-org-table/simple-formula/no-grouping/no-title-row ()
|
||||
"Simple sum without grouping rows, without title row."
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
| replace |
|
||||
"
|
||||
"
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
| 14 |
|
||||
"
|
||||
1
|
||||
;; Calc formula
|
||||
"#+TBLFM: @>$1 = vsum(@<..@>>)"
|
||||
;; Lisp formula
|
||||
"#+TBLFM: @>$1 = '(+ @<..@>>); N"))
|
||||
|
||||
(ert-deftest test-org-table/simple-formula/no-grouping/with-title-row ()
|
||||
"Simple sum without grouping rows, with title row."
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| foo |
|
||||
|---------|
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
| replace |
|
||||
"
|
||||
"
|
||||
| foo |
|
||||
|-----|
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
| 14 |
|
||||
"
|
||||
1
|
||||
;; Calc formula
|
||||
"#+TBLFM: @>$1 = vsum(@I..@>>)"
|
||||
;; Lisp formula
|
||||
"#+TBLFM: @>$1 = '(+ @I..@>>); N"))
|
||||
|
||||
(ert-deftest test-org-table/simple-formula/with-grouping/no-title-row ()
|
||||
"Simple sum with grouping rows, how not to do."
|
||||
;; The first example has a problem, see the second example in this
|
||||
;; ert-deftest.
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
|---------|
|
||||
| replace |
|
||||
"
|
||||
"
|
||||
| 2 |
|
||||
| 4 |
|
||||
| 8 |
|
||||
|----|
|
||||
| 14 |
|
||||
"
|
||||
1
|
||||
;; Calc formula
|
||||
"#+TBLFM: $1 = vsum(@<..@>>)"
|
||||
;; Lisp formula
|
||||
"#+TBLFM: $1 = '(+ @<..@>>); N")
|
||||
|
||||
;; The problem is that the first three rows with the summands are
|
||||
;; considered the header and therefore column formulas are not
|
||||
;; applied on them as shown below. Also export behaves unexpected.
|
||||
;; See next ert-deftest how to group rows right.
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| 2 | replace |
|
||||
| 4 | replace |
|
||||
| 8 | replace |
|
||||
|---------+---------|
|
||||
| replace | replace |
|
||||
"
|
||||
"
|
||||
| 2 | replace |
|
||||
| 4 | replace |
|
||||
| 8 | replace |
|
||||
|----+---------|
|
||||
| 14 | 28 |
|
||||
"
|
||||
2
|
||||
;; Calc formula
|
||||
"#+TBLFM: @>$1 = vsum(@<..@>>) :: $2 = 2 * $1"
|
||||
;; Lisp formula
|
||||
"#+TBLFM: @>$1 = '(+ @<..@>>); N :: $2 = '(* 2 $1); N"))
|
||||
|
||||
(ert-deftest test-org-table/simple-formula/with-grouping/with-title-row ()
|
||||
"Simple sum with grouping rows, how to do it right."
|
||||
;; Always add a top row with the column names separated by hline to
|
||||
;; get the desired header when you want to group rows.
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| foo | bar |
|
||||
|---------+---------|
|
||||
| 2 | replace |
|
||||
| 4 | replace |
|
||||
| 8 | replace |
|
||||
|---------+---------|
|
||||
| replace | replace |
|
||||
"
|
||||
"
|
||||
| foo | bar |
|
||||
|-----+-----|
|
||||
| 2 | 4 |
|
||||
| 4 | 8 |
|
||||
| 8 | 16 |
|
||||
|-----+-----|
|
||||
| 14 | 28 |
|
||||
"
|
||||
2
|
||||
;; Calc formula
|
||||
"#+TBLFM: @>$1 = vsum(@I..@>>) :: $2 = 2 * $1"
|
||||
;; Lisp formula
|
||||
"#+TBLFM: @>$1 = '(+ @I..@>>); N :: $2 = '(* 2 $1); N"))
|
||||
|
||||
(ert-deftest test-org-table/align ()
|
||||
"Align columns within Org buffer, depends on `org-table-number-regexp'."
|
||||
(org-test-table-target-expect "
|
||||
|
@ -37,6 +168,453 @@
|
|||
| ab | ab | ab | ab | ab | ab |
|
||||
"))
|
||||
|
||||
(defconst references/target-normal "
|
||||
| 0 | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| z | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| | | replace | replace | replace | replace | replace | replace |
|
||||
"
|
||||
"Normal numbers and non-numbers for Lisp and Calc formula.")
|
||||
|
||||
(defconst references/target-special "
|
||||
| nan | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| uinf | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| -inf | 1 | replace | replace | replace | replace | replace | replace |
|
||||
| inf | 1 | replace | replace | replace | replace | replace | replace |
|
||||
"
|
||||
"Special numbers for Calc formula.")
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-EL ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). Format specifier EL."
|
||||
;; Empty fields are kept during parsing field but lost as list
|
||||
;; elements within Lisp formula syntactically when used literally
|
||||
;; and not enclosed with " within fields, see last columns with len.
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
;; All the #ERROR show that for Lisp calculations N has to be used.
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| | 1 | | 1 | 1 | 1 | 1 | 1 |
|
||||
| | | | 0 | 0 | 0 | 0 | 0 |
|
||||
"
|
||||
1 (concat
|
||||
"#+TBLFM: $3 = '(identity \"$1\"); EL :: $4 = '(+ $1 $2); EL :: "
|
||||
"$5 = '(+ $1..$2); EL :: $6 = '(+ @0$1..@0$2); EL :: "
|
||||
"$7 = '(length '($1..$2)); EL :: $8 = '(length '(@0$1..@0$2)); EL"))
|
||||
|
||||
;; Empty fields are kept during parsing field _and_ as list elements
|
||||
;; within Lisp formula syntactically even when used literally when
|
||||
;; enclosed with " within fields, see last columns with len.
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| \"0\" | \"1\" | repl | repl | repl | repl | repl | repl |
|
||||
| \"z\" | \"1\" | repl | repl | repl | repl | repl | repl |
|
||||
| \"\" | \"1\" | repl | repl | repl | repl | repl | repl |
|
||||
| \"\" | \"\" | repl | repl | repl | repl | repl | repl |
|
||||
"
|
||||
"
|
||||
| \"0\" | \"1\" | \"0\" | 1 | #ERROR | #ERROR | 2 | 2 |
|
||||
| \"z\" | \"1\" | \"z\" | 1 | #ERROR | #ERROR | 2 | 2 |
|
||||
| \"\" | \"1\" | \"\" | 1 | #ERROR | #ERROR | 2 | 2 |
|
||||
| \"\" | \"\" | \"\" | 0 | #ERROR | #ERROR | 2 | 2 |
|
||||
"
|
||||
1 (concat
|
||||
"#+TBLFM: $3 = '(concat \"\\\"\" $1 \"\\\"\"); EL :: "
|
||||
"$4 = '(+ (string-to-number $1) (string-to-number $2)); EL :: "
|
||||
"$5 = '(+ $1..$2); EL :: $6 = '(+ @0$1..@0$2); EL :: "
|
||||
"$7 = '(length '($1..$2)); EL :: $8 = '(length '(@0$1..@0$2)); EL")))
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-E ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). Format specifier E."
|
||||
(let ((lisp
|
||||
(concat
|
||||
"#+TBLFM: $3 = '(identity $1); E :: $4 = '(+ $1 $2); E :: "
|
||||
"$5 = '(+ $1..$2); E :: $6 = '(+ @0$1..@0$2); E :: "
|
||||
"$7 = '(length '($1..$2)); E :: $8 = '(length '(@0$1..@0$2)); E"))
|
||||
(calc
|
||||
(concat
|
||||
"#+TBLFM: $3 = $1; E :: $4 = $1 + $2; E :: "
|
||||
"$5 = vsum($1..$2); E :: $6 = vsum(@0$1..@0$2); E :: "
|
||||
"$7 = vlen($1..$2); E :: $8 = vlen(@0$1..@0$2); E")))
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
;; All the #ERROR show that for Lisp calculations N has to be used.
|
||||
"
|
||||
| 0 | 1 | 0 | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| | 1 | | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| | | | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
"
|
||||
1 lisp)
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 |
|
||||
| | 1 | 0 | 1 | #ERROR | #ERROR | #ERROR | #ERROR |
|
||||
| | | 0 | 0 | #ERROR | #ERROR | #ERROR | #ERROR |
|
||||
"
|
||||
1 calc)
|
||||
(org-test-table-target-expect
|
||||
references/target-special
|
||||
"
|
||||
| nan | 1 | nan | nan | nan | nan | 2 | 2 |
|
||||
| uinf | 1 | uinf | uinf | uinf | uinf | 2 | 2 |
|
||||
| -inf | 1 | -inf | -inf | -inf | -inf | 2 | 2 |
|
||||
| inf | 1 | inf | inf | inf | inf | 2 | 2 |
|
||||
"
|
||||
1 calc)))
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-EN ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). Format specifier EN."
|
||||
(let ((lisp (concat
|
||||
"#+TBLFM: $3 = '(identity $1); EN :: $4 = '(+ $1 $2); EN :: "
|
||||
"$5 = '(+ $1..$2); EN :: $6 = '(+ @0$1..@0$2); EN :: "
|
||||
"$7 = '(length '($1..$2)); EN :: "
|
||||
"$8 = '(length '(@0$1..@0$2)); EN"))
|
||||
(calc (concat
|
||||
"#+TBLFM: $3 = $1; EN :: $4 = $1 + $2; EN :: "
|
||||
"$5 = vsum($1..$2); EN :: $6 = vsum(@0$1..@0$2); EN :: "
|
||||
"$7 = vlen($1..$2); EN :: $8 = vlen(@0$1..@0$2); EN")))
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| | | 0 | 0 | 0 | 0 | 2 | 2 |
|
||||
"
|
||||
1 lisp calc)
|
||||
(org-test-table-target-expect
|
||||
references/target-special
|
||||
"
|
||||
| nan | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| uinf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| -inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
"
|
||||
1 calc)))
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-L ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). Format specifier L."
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
;; All the #ERROR show that for Lisp calculations N has to be used.
|
||||
;; TODO: Len for range reference with only empty fields should be 0.
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| | 1 | | 1 | 1 | 1 | 1 | 1 |
|
||||
| | | | 0 | 0 | 0 | 1 | 1 |
|
||||
"
|
||||
1 (concat
|
||||
"#+TBLFM: $3 = '(identity \"$1\"); L :: $4 = '(+ $1 $2); L :: "
|
||||
"$5 = '(+ $1..$2); L :: $6 = '(+ @0$1..@0$2); L :: "
|
||||
"$7 = '(length '($1..$2)); L :: $8 = '(length '(@0$1..@0$2)); L")))
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-none ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). No format specifier."
|
||||
(let ((lisp (concat
|
||||
"#+TBLFM: $3 = '(identity $1) :: $4 = '(+ $1 $2) :: "
|
||||
"$5 = '(+ $1..$2) :: $6 = '(+ @0$1..@0$2) :: "
|
||||
"$7 = '(length '($1..$2)) :: $8 = '(length '(@0$1..@0$2))"))
|
||||
(calc (concat
|
||||
"#+TBLFM: $3 = $1 :: $4 = $1 + $2 :: "
|
||||
"$5 = vsum($1..$2) :: $6 = vsum(@0$1..@0$2) :: "
|
||||
"$7 = vlen($1..$2) :: $8 = vlen(@0$1..@0$2)")))
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
;; All the #ERROR show that for Lisp calculations N has to be used.
|
||||
"
|
||||
| 0 | 1 | 0 | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| z | 1 | z | #ERROR | #ERROR | #ERROR | 2 | 2 |
|
||||
| | 1 | | #ERROR | #ERROR | #ERROR | 1 | 1 |
|
||||
| | | | #ERROR | #ERROR | #ERROR | 1 | 1 |
|
||||
"
|
||||
1 lisp)
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | z | z + 1 | z + 1 | z + 1 | 2 | 2 |
|
||||
| | 1 | 0 | 1 | 1 | 1 | 1 | 1 |
|
||||
| | | 0 | 0 | 0 | 0 | 1 | 1 |
|
||||
"
|
||||
1 calc)
|
||||
(org-test-table-target-expect
|
||||
references/target-special
|
||||
"
|
||||
| nan | 1 | nan | nan | nan | nan | 2 | 2 |
|
||||
| uinf | 1 | uinf | uinf | uinf | uinf | 2 | 2 |
|
||||
| -inf | 1 | -inf | -inf | -inf | -inf | 2 | 2 |
|
||||
| inf | 1 | inf | inf | inf | inf | 2 | 2 |
|
||||
"
|
||||
1 calc)))
|
||||
|
||||
(ert-deftest test-org-table/references/format-specifier-N ()
|
||||
"Basic: Assign field reference, sum of field references, sum
|
||||
and len of simple range reference (no row) and complex range
|
||||
reference (with row). Format specifier N."
|
||||
(let ((lisp
|
||||
(concat
|
||||
"#+TBLFM: $3 = '(identity $1); N :: $4 = '(+ $1 $2); N :: "
|
||||
"$5 = '(+ $1..$2); N :: $6 = '(+ @0$1..@0$2); N :: "
|
||||
"$7 = '(length '($1..$2)); N :: $8 = '(length '(@0$1..@0$2)); N"))
|
||||
(calc
|
||||
(concat
|
||||
"#+TBLFM: $3 = $1; N :: $4 = $1 + $2; N :: "
|
||||
"$5 = vsum($1..$2); N :: $6 = vsum(@0$1..@0$2); N :: "
|
||||
"$7 = vlen($1..$2); N :: $8 = vlen(@0$1..@0$2); N")))
|
||||
(org-test-table-target-expect
|
||||
references/target-normal
|
||||
;; TODO: Len for simple range reference with empty field should
|
||||
;; also be 1
|
||||
"
|
||||
| 0 | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| z | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| | 1 | 0 | 1 | 1 | 1 | 2 | 1 |
|
||||
| | | 0 | 0 | 0 | 0 | 2 | 1 |
|
||||
"
|
||||
1 lisp calc)
|
||||
(org-test-table-target-expect
|
||||
references/target-special
|
||||
"
|
||||
| nan | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| uinf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| -inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
| inf | 1 | 0 | 1 | 1 | 1 | 2 | 2 |
|
||||
"
|
||||
1 calc)))
|
||||
|
||||
(ert-deftest test-org-table/compare ()
|
||||
"Basic: Compare field references in Calc."
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| | 0 | z | nan | uinf | -inf | inf |
|
||||
|------+------+------+------+------+------+------|
|
||||
| 0 | repl | repl | repl | repl | repl | repl |
|
||||
| z | repl | repl | repl | repl | repl | repl |
|
||||
| nan | repl | repl | repl | repl | repl | repl |
|
||||
| uinf | repl | repl | repl | repl | repl | repl |
|
||||
| -inf | repl | repl | repl | repl | repl | repl |
|
||||
| inf | repl | repl | repl | repl | repl | repl |
|
||||
"
|
||||
"
|
||||
| | 0 | z | nan | uinf | -inf | inf |
|
||||
|------+---+---+-----+------+------+-----|
|
||||
| 0 | x | | | | | |
|
||||
| z | | x | | | | |
|
||||
| nan | | | x | | | |
|
||||
| uinf | | | | x | | |
|
||||
| -inf | | | | | x | |
|
||||
| inf | | | | | | x |
|
||||
"
|
||||
1
|
||||
;; Compare field reference ($1) with field reference (@1)
|
||||
"#+TBLFM: @I$<<..@>$> = if(\"$1\" = \"@1\", x, string(\"\")); E"
|
||||
;; Compare field reference ($1) with absolute term
|
||||
(concat "#+TBLFM: "
|
||||
"$2 = if(\"$1\" = \"(0)\" , x, string(\"\")); E :: "
|
||||
"$3 = if(\"$1\" = \"(z)\" , x, string(\"\")); E :: "
|
||||
"$4 = if(\"$1\" = \"(nan)\" , x, string(\"\")); E :: "
|
||||
"$5 = if(\"$1\" = \"(uinf)\", x, string(\"\")); E :: "
|
||||
"$6 = if(\"$1\" = \"(-inf)\", x, string(\"\")); E :: "
|
||||
"$7 = if(\"$1\" = \"(inf)\" , x, string(\"\")); E"))
|
||||
|
||||
;; Check field reference converted from an empty field: Despite this
|
||||
;; field reference will not end up in a result, Calc evaluates it.
|
||||
;; Make sure that also then there is no Calc error.
|
||||
(org-test-table-target-expect
|
||||
"
|
||||
| 0 | replace |
|
||||
| z | replace |
|
||||
| nan | replace |
|
||||
"
|
||||
"
|
||||
| 0 | 1 |
|
||||
| z | z + 1 |
|
||||
| nan | nan |
|
||||
"
|
||||
1 "#+TBLFM: $2 = if(\"$1\" = \"nan\", string(\"\"), $1 + 1); E"))
|
||||
|
||||
(ert-deftest test-org-table/empty-field ()
|
||||
"Examples how to deal with empty fields."
|
||||
;; Empty fields in simple and complex range reference: Suppress them
|
||||
;; ($5 and $6) or keep them and use 0 ($7 and $8)
|
||||
|
||||
;; Calc formula
|
||||
(org-test-table-target-expect
|
||||
"\n| | | 5 | 7 | replace | replace | replace | replace |\n"
|
||||
"\n| | | 5 | 7 | 6 | 6 | 3 | 3 |\n"
|
||||
1
|
||||
(concat "#+TBLFM: "
|
||||
"$5 = vmean($1..$4) :: $6 = vmean(@0$1..@0$4) :: "
|
||||
"$7 = vmean($1..$4); EN :: $8 = vmean(@0$1..@0$4); EN"))
|
||||
|
||||
;; Lisp formula
|
||||
;; TODO: Len for simple range reference with empty field should also
|
||||
;; be 6
|
||||
(org-test-table-target-expect
|
||||
"\n| | | 5 | 7 | replace | replace | replace | replace |\n"
|
||||
"\n| | | 5 | 7 | 3 | 6 | 3 | 3 |\n"
|
||||
1
|
||||
(concat "#+TBLFM: "
|
||||
"$5 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); N :: "
|
||||
"$6 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); N :: "
|
||||
"$7 = '(/ (+ $1..$4 ) (length '( $1..$4 ))); EN :: "
|
||||
"$8 = '(/ (+ @0$1..@0$4) (length '(@0$1..@0$4))); EN")))
|
||||
|
||||
;; End of table examples and beginning of internal tests.
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-EL ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula only
|
||||
(should (equal "0" (f "0" t nil 'literal)))
|
||||
(should (equal "z" (f "z" t nil 'literal)))
|
||||
(should (equal "" (f "" t nil 'literal)))
|
||||
(should (equal "0 1" (f '("0" "1") t nil 'literal)))
|
||||
(should (equal "z 1" (f '("z" "1") t nil 'literal)))
|
||||
(should (equal " 1" (f '("" "1") t nil 'literal)))
|
||||
(should (equal " " (f '("" "" ) t nil 'literal))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-E ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula
|
||||
(should (equal "\"0\"" (f "0" t nil t)))
|
||||
(should (equal "\"z\"" (f "z" t nil t)))
|
||||
(should (equal "\"\"" (f "" t nil t)))
|
||||
(should (equal "\"0\" \"1\"" (f '("0" "1") t nil t)))
|
||||
(should (equal "\"z\" \"1\"" (f '("z" "1") t nil t)))
|
||||
(should (equal "\"\" \"1\"" (f '("" "1") t nil t)))
|
||||
(should (equal "\"\" \"\"" (f '("" "" ) t nil t)))
|
||||
;; For Calc formula
|
||||
(should (equal "(0)" (f "0" t nil nil)))
|
||||
(should (equal "(z)" (f "z" t nil nil)))
|
||||
(should (equal "(0)" (f "" t nil nil)))
|
||||
(should (equal "[0,1]" (f '("0" "1") t nil nil)))
|
||||
(should (equal "[z,1]" (f '("z" "1") t nil nil)))
|
||||
(should (equal "[,1]" (f '("" "1") t nil nil)))
|
||||
(should (equal "[,]" (f '("" "" ) t nil nil)))
|
||||
;; For Calc formula, special numbers
|
||||
(should (equal "(nan)" (f "nan" t nil nil)))
|
||||
(should (equal "(uinf)" (f "uinf" t nil nil)))
|
||||
(should (equal "(-inf)" (f "-inf" t nil nil)))
|
||||
(should (equal "(inf)" (f "inf" t nil nil)))
|
||||
(should (equal "[nan,1]" (f '( "nan" "1") t nil nil)))
|
||||
(should (equal "[uinf,1]" (f '("uinf" "1") t nil nil)))
|
||||
(should (equal "[-inf,1]" (f '("-inf" "1") t nil nil)))
|
||||
(should (equal "[inf,1]" (f '( "inf" "1") t nil nil))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-EN ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula
|
||||
(should (equal "0" (f "0" t t t)))
|
||||
(should (equal "0" (f "z" t t t)))
|
||||
(should (equal "0" (f "" t t t)))
|
||||
(should (equal "0 1" (f '("0" "1") t t t)))
|
||||
(should (equal "0 1" (f '("z" "1") t t t)))
|
||||
(should (equal "0 1" (f '("" "1") t t t)))
|
||||
(should (equal "0 0" (f '("" "" ) t t t)))
|
||||
;; For Calc formula
|
||||
(should (equal "(0)" (f "0" t t nil)))
|
||||
(should (equal "(0)" (f "z" t t nil)))
|
||||
(should (equal "(0)" (f "" t t nil)))
|
||||
(should (equal "[0,1]" (f '("0" "1") t t nil)))
|
||||
(should (equal "[0,1]" (f '("z" "1") t t nil)))
|
||||
(should (equal "[0,1]" (f '("" "1") t t nil)))
|
||||
(should (equal "[0,0]" (f '("" "" ) t t nil)))
|
||||
;; For Calc formula, special numbers
|
||||
(should (equal "(0)" (f "nan" t t nil)))
|
||||
(should (equal "(0)" (f "uinf" t t nil)))
|
||||
(should (equal "(0)" (f "-inf" t t nil)))
|
||||
(should (equal "(0)" (f "inf" t t nil)))
|
||||
(should (equal "[0,1]" (f '( "nan" "1") t t nil)))
|
||||
(should (equal "[0,1]" (f '("uinf" "1") t t nil)))
|
||||
(should (equal "[0,1]" (f '("-inf" "1") t t nil)))
|
||||
(should (equal "[0,1]" (f '( "inf" "1") t t nil))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-L ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula only
|
||||
(should (equal "0" (f "0" nil nil 'literal)))
|
||||
(should (equal "z" (f "z" nil nil 'literal)))
|
||||
(should (equal "" (f "" nil nil 'literal)))
|
||||
(should (equal "0 1" (f '("0" "1") nil nil 'literal)))
|
||||
(should (equal "z 1" (f '("z" "1") nil nil 'literal)))
|
||||
(should (equal "1" (f '("" "1") nil nil 'literal)))
|
||||
;; TODO: Should result in empty string like with field reference of
|
||||
;; empty field.
|
||||
(should (equal "0" (f '("" "" ) nil nil 'literal))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-none ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula
|
||||
(should (equal "\"0\"" (f "0" nil nil t)))
|
||||
(should (equal "\"z\"" (f "z" nil nil t)))
|
||||
(should (equal "\"\"" (f "" nil nil t)))
|
||||
(should (equal "\"0\" \"1\"" (f '("0" "1") nil nil t)))
|
||||
(should (equal "\"z\" \"1\"" (f '("z" "1") nil nil t)))
|
||||
(should (equal "\"1\"" (f '("" "1") nil nil t)))
|
||||
;; TODO: Should result in empty string like with field reference of
|
||||
;; empty field.
|
||||
(should (equal "\"0\"" (f '("" "" ) nil nil t)))
|
||||
;; For Calc formula
|
||||
(should (equal "(0)" (f "0" nil nil nil)))
|
||||
(should (equal "(z)" (f "z" nil nil nil)))
|
||||
(should (equal "(0)" (f "" nil nil nil)))
|
||||
(should (equal "[0,1]" (f '("0" "1") nil nil nil)))
|
||||
(should (equal "[z,1]" (f '("z" "1") nil nil nil)))
|
||||
(should (equal "[1]" (f '("" "1") nil nil nil)))
|
||||
(should (equal "[0]" (f '("" "" ) nil nil nil)))
|
||||
;; For Calc formula, special numbers
|
||||
(should (equal "(nan)" (f "nan" nil nil nil)))
|
||||
(should (equal "(uinf)" (f "uinf" nil nil nil)))
|
||||
(should (equal "(-inf)" (f "-inf" nil nil nil)))
|
||||
(should (equal "(inf)" (f "inf" nil nil nil)))
|
||||
(should (equal "[nan,1]" (f '( "nan" "1") nil nil nil)))
|
||||
(should (equal "[uinf,1]" (f '("uinf" "1") nil nil nil)))
|
||||
(should (equal "[-inf,1]" (f '("-inf" "1") nil nil nil)))
|
||||
(should (equal "[inf,1]" (f '( "inf" "1") nil nil nil))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-make-reference/format-specifier-N ()
|
||||
(fset 'f 'org-table-make-reference)
|
||||
;; For Lisp formula
|
||||
(should (equal "0" (f "0" nil t t)))
|
||||
(should (equal "0" (f "z" nil t t)))
|
||||
(should (equal "0" (f "" nil t t)))
|
||||
(should (equal "0 1" (f '("0" "1") nil t t)))
|
||||
(should (equal "0 1" (f '("z" "1") nil t t)))
|
||||
(should (equal "1" (f '("" "1") nil t t)))
|
||||
(should (equal "0" (f '("" "" ) nil t t)))
|
||||
;; For Calc formula
|
||||
(should (equal "(0)" (f "0" nil t nil)))
|
||||
(should (equal "(0)" (f "z" nil t nil)))
|
||||
(should (equal "(0)" (f "" nil t nil)))
|
||||
(should (equal "[0,1]" (f '("0" "1") nil t nil)))
|
||||
(should (equal "[0,1]" (f '("z" "1") nil t nil)))
|
||||
(should (equal "[1]" (f '("" "1") nil t nil)))
|
||||
(should (equal "[0]" (f '("" "" ) nil t nil)))
|
||||
;; For Calc formula, special numbers
|
||||
(should (equal "(0)" (f "nan" nil t nil)))
|
||||
(should (equal "(0)" (f "uinf" nil t nil)))
|
||||
(should (equal "(0)" (f "-inf" nil t nil)))
|
||||
(should (equal "(0)" (f "inf" nil t nil)))
|
||||
(should (equal "[0,1]" (f '( "nan" "1") nil t nil)))
|
||||
(should (equal "[0,1]" (f '("uinf" "1") nil t nil)))
|
||||
(should (equal "[0,1]" (f '("-inf" "1") nil t nil)))
|
||||
(should (equal "[0,1]" (f '( "inf" "1") nil t nil))))
|
||||
|
||||
(ert-deftest test-org-table/org-table-convert-refs-to-an/1 ()
|
||||
"Simple reference @1$1."
|
||||
(should
|
||||
|
@ -69,29 +647,6 @@
|
|||
;; (should
|
||||
;; (string= "$3 = remote(FOO, @@#$2)" (org-table-convert-refs-to-rc "C& = remote(FOO, @@#B&)"))))
|
||||
|
||||
(ert-deftest test-org-table/simple-formula ()
|
||||
(org-test-with-temp-text-in-file "
|
||||
|
||||
* simple formula
|
||||
:PROPERTIES:
|
||||
:ID: 563523f7-3f3e-49c9-9622-9216cc9a5d95
|
||||
:END:
|
||||
|
||||
#+tblname: simple-formula
|
||||
| 1 |
|
||||
| 2 |
|
||||
| 3 |
|
||||
| 4 |
|
||||
|----|
|
||||
| |
|
||||
#+TBLFM: $1=vsum(@1..@-1)
|
||||
"
|
||||
(re-search-forward (regexp-quote "#+tblname: simple-formula") nil t)
|
||||
(forward-line 1)
|
||||
(should (org-at-table-p))
|
||||
(should (org-table-recalculate 'all))
|
||||
(should (string= "10" (first (nth 5 (org-table-to-lisp)))))))
|
||||
|
||||
(provide 'test-org-table)
|
||||
|
||||
;;; test-org-table.el ends here
|
||||
|
|
Loading…
Reference in New Issue