mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

lisp/test-ox.el: Add tests for `org-export-get-ordinal'

Browse Source 
* testing/lisp/test-ox.el (test-org-export/get-ordinal): New test.
This commit is contained in:
Ihor Radchenko 2022-12-13 11:44:59 +03:00
parent 7048876f6f
commit 02909fe371
No known key found for this signature in database
GPG Key ID: 6470762A7DA11D8B
1 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
testing/lisp/test-ox.el
View File

@ -405,6 +405,64 @@ Paragraph"
(options (org-export-get-environment backend t)))
(list (plist-get options :k1) (plist-get options :k2)))))))
(ert-deftest test-org-export/get-ordinal ()
"Test specifications for `org-export-get-ordinal'."
;; Table numbering with, without predicates, and with other types.
(org-test-with-temp-text
"#+title: Table numbering test
#+options: author:nil toc:nil
#+caption: Should be Table 1
| h1 | h2 | h3 |
|----------+----------+----------|
| abcdefgh | ijklmnop | qrstuvwx |
#+caption: Should be Table 2
| h1 | h2 | h3 |
|----------+----------+----------|
| abcdefgh | ijklmnop | qrstuvwx |
#+caption: Should be Table 3
| h1 | h2 | h3 |
|----------+----------+----------|
| abcdefgh | ijklmnop | qrstuvwx |
#+caption: Should be Table 4
| h1 | h2 | h3 |
|----------+----------+----------|
| abcdefgh | ijklmnop | qrstuvwx |"
(org-export-as
(org-export-create-backend
:parent 'org
:transcoders
'((table
.
(lambda (table contents info)
(let ((from-third (lambda (table info)
(<= 3 (org-export-get-ordinal table info)))))
(pcase (org-element-interpret-data (org-export-get-caption table))
("Should be Table 1"
(should (= 1 (org-export-get-ordinal table info)))
(should (= 2 (org-export-get-ordinal table info '(section))))
(should (= 1 (org-export-get-ordinal table info nil #'org-ascii--has-caption-p)))
(should (= 1 (org-export-get-ordinal table info nil from-third))))
("Should be Table 2"
(should (= 2 (org-export-get-ordinal table info)))
(should (= 3 (org-export-get-ordinal table info '(section))))
(should (= 2 (org-export-get-ordinal table info nil #'org-ascii--has-caption-p)))
(should (= 1 (org-export-get-ordinal table info nil from-third))))
("Should be Table 3"
(should (= 3 (org-export-get-ordinal table info)))
(should (= 4 (org-export-get-ordinal table info '(section))))
(should (= 3 (org-export-get-ordinal table info nil #'org-ascii--has-caption-p)))
(should (= 1 (org-export-get-ordinal table info nil from-third))))
("Should be Table 4"
(should (= 4 (org-export-get-ordinal table info)))
(should (= 5 (org-export-get-ordinal table info '(section))))
(should (= 4 (org-export-get-ordinal table info nil #'org-ascii--has-caption-p)))
(should (= 2 (org-export-get-ordinal table info nil from-third))))))
"")))))))
(ert-deftest test-org-export/set-title ()
"Test title setting."
;; Without TITLE keyword.