emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
blob 92c136d651e1d1f1800863f27081317d98fa6970 1940 bytes (raw)
name: testing/lisp/test-org-table.el 	 # note: path name is non-authoritative(*)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
 
;;; test-org-table.el

;; Copyright (c) ߛ David Maus
;; Authors: David Maus

;; Released under the GNU General Public License version 3
;; see: http://www.gnu.org/licenses/gpl-3.0.html

;;;; Comments:

;; Template test file for Org-mode tests

;;; Code:
(ert-deftest test-org-table/org-table-convert-refs-to-an/1 ()
  "Simple reference @1$1."
  (should
   (string= "A1" (org-table-convert-refs-to-an "@1$1"))))

;; TODO: Test broken
;; (ert-deftest test-org-table/org-table-convert-refs-to-an/2 ()
;;   "Self reference @1$1."
;;   (should
;;    (string= "A1 = $0" (org-table-convert-refs-to-an "@1$1 = $0"))))

(ert-deftest test-org-table/org-table-convert-refs-to-an/3 ()
  "Remote reference."
  (should
   (string= "C& = remote(FOO, @@#B&)" (org-table-convert-refs-to-an "$3 = remote(FOO, @@#$2)"))))

(ert-deftest test-org-table/org-table-convert-refs-to-rc/1 ()
  "Simple reference @1$1."
  (should
   (string= "@1$1" (org-table-convert-refs-to-rc "A1"))))

(ert-deftest test-org-table/org-table-convert-refs-to-rc/2 ()
  "Self reference $0."
  (should
   (string= "@1$1 = $0" (org-table-convert-refs-to-rc "A1 = $0"))))

;; TODO: Test Broken
;; (ert-deftest test-org-table/org-table-convert-refs-to-rc/3 ()
;;   "Remote reference."
;;   (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)
"
    (progn
      (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

debug log:

solving 92c136d651e1d1f1800863f27081317d98fa6970 ...
retrying 92c136d651e1d1f1800863f27081317d98fa6970 as 92c136d651e1d1f1800863f27081317d98fa697
retrying 92c136d651e1d1f1800863f27081317d98fa697 as 92c136d651e1d1f1800863f27081317d98fa69
retrying 92c136d651e1d1f1800863f27081317d98fa69 as 92c136d651e1d1f1800863f27081317d98fa6
retrying 92c136d651e1d1f1800863f27081317d98fa6 as 92c136d651e1d1f1800863f27081317d98fa
retrying 92c136d651e1d1f1800863f27081317d98fa as 92c136d651e1d1f1800863f27081317d98f
retrying 92c136d651e1d1f1800863f27081317d98f as 92c136d651e1d1f1800863f27081317d98
retrying 92c136d651e1d1f1800863f27081317d98 as 92c136d651e1d1f1800863f27081317d9
retrying 92c136d651e1d1f1800863f27081317d9 as 92c136d651e1d1f1800863f27081317d
retrying 92c136d651e1d1f1800863f27081317d as 92c136d651e1d1f1800863f27081317
retrying 92c136d651e1d1f1800863f27081317 as 92c136d651e1d1f1800863f2708131
retrying 92c136d651e1d1f1800863f2708131 as 92c136d651e1d1f1800863f270813
retrying 92c136d651e1d1f1800863f270813 as 92c136d651e1d1f1800863f27081
retrying 92c136d651e1d1f1800863f27081 as 92c136d651e1d1f1800863f2708
retrying 92c136d651e1d1f1800863f2708 as 92c136d651e1d1f1800863f270
retrying 92c136d651e1d1f1800863f270 as 92c136d651e1d1f1800863f27
retrying 92c136d651e1d1f1800863f27 as 92c136d651e1d1f1800863f2
retrying 92c136d651e1d1f1800863f2 as 92c136d651e1d1f1800863f
retrying 92c136d651e1d1f1800863f as 92c136d651e1d1f1800863
retrying 92c136d651e1d1f1800863 as 92c136d651e1d1f180086
retrying 92c136d651e1d1f180086 as 92c136d651e1d1f18008
retrying 92c136d651e1d1f18008 as 92c136d651e1d1f1800
retrying 92c136d651e1d1f1800 as 92c136d651e1d1f180
retrying 92c136d651e1d1f180 as 92c136d651e1d1f18
retrying 92c136d651e1d1f18 as 92c136d651e1d1f1
retrying 92c136d651e1d1f1 as 92c136d651e1d1f
retrying 92c136d651e1d1f as 92c136d651e1d1
retrying 92c136d651e1d1 as 92c136d651e1d
retrying 92c136d651e1d as 92c136d651e1
retrying 92c136d651e1 as 92c136d651e
retrying 92c136d651e as 92c136d651
retrying 92c136d651 as 92c136d65
retrying 92c136d65 as 92c136d6
retrying 92c136d6 as 92c136d
found 92c136d in https://yhetil.org/orgmode/87pqc9harc.fsf@Rainer.invalid/
found 3ecc384 in https://git.savannah.gnu.org/cgit/emacs/org-mode.git
preparing index
index prepared:
100644 3ecc3842972414d6c14685b5d8c415e8a473f938	testing/lisp/test-org-table.el

applying [1/1] https://yhetil.org/orgmode/87pqc9harc.fsf@Rainer.invalid/
diff --git a/testing/lisp/test-org-table.el b/testing/lisp/test-org-table.el
index 3ecc384..92c136d 100644

Checking patch testing/lisp/test-org-table.el...
Applied patch testing/lisp/test-org-table.el cleanly.

index at:
100644 92c136d651e1d1f1800863f27081317d98fa6970	testing/lisp/test-org-table.el

(*) Git path names are given by the tree(s) the blob belongs to.
    Blobs themselves have no identifier aside from the hash of its contents.^

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).