1
0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-22 07:09:47 +00:00
org-mode/testing/lisp/test-ox-texinfo.el
Rudolf Adamkovič 99c8ed09f8
ox-texinfo: Fix invalid syntax in Texinfo version detection code
* lisp/ox-texinfo.el (org-texinfo-supports-math-p): Fix the incorrect
syntax @displaymath{1 + 1 = 2} used to detect whether Texinfo supports
TeX "math mode".  Instead, use the correct syntax @math{1 + 1 = 2}.
2023-02-17 13:30:16 +03:00

329 lines
11 KiB
EmacsLisp
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

;;; test-ox-texinfo.el --- Tests for ox-texinfo.el
;; Copyright (C) 2022 Rudolf Adamkovič
;; Author: Rudolf Adamkovič <salutis@me.com>
;; This file is not part of GNU Emacs.
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <https://www.gnu.org/licenses/>.
;;; Code:
(require 'cl-lib)
(require 'ox-texinfo)
(eval-when-compile (require 'subr-x))
(unless (featurep 'ox-texinfo)
(signal 'missing-test-dependency "org-export-texinfo"))
;;; TeX fragments
(ert-deftest test-ox-texinfo/tex-fragment-inline ()
"Test inline TeX fragment."
(should
(equal "@math{a^2 = b}"
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
'(:value "$a^2 = b$"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/tex-fragment-inline-padded ()
"Test inline TeX fragment padded with whitespace."
(should
(equal "@math{a^2 = b}"
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
'(:value "$ a^2 = b $"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/tex-fragment-displayed ()
"Test displayed TeX fragment."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value "$$a ^ 2 = b$$"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/tex-fragment-displayed-padded ()
"Test displayed TeX fragment padded with whitespace."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value "$$ a ^ 2 = b $$"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/tex-fragment-displayed-multi-line ()
"Test displayed TeX fragment with multiple lines."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"b ^ 2 = c"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value
(string-join
(list "$$"
"a ^ 2 = b"
"b ^ 2 = c"
"$$")
"\n")))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/tex-fragment-displayed-indented ()
"Test displayed TeX fragment with indentation."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"b ^ 2 = c"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value
(string-join
(list " $$"
" a ^ 2 = b"
" b ^ 2 = c"
" $$")
"\n")))
nil
'(:with-latex t))))))
;;; LaTeX fragments
(ert-deftest test-ox-texinfo/latex-fragment-inline ()
"Test inline LaTeX fragment."
(should
(equal "@math{a^2 = b}"
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
'(:value "\\(a^2 = b\\)"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-fragment-inline-padded ()
"Test inline LaTeX fragment padded with whitespace."
(should
(equal "@math{a^2 = b}"
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
'(:value "\\( a^2 = b \\)"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-fragment-displayed ()
"Test displayed LaTeX fragment."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value "\\[a ^ 2 = b\\]"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-fragment-displayed-padded ()
"Test displayed LaTeX fragment with multiple lines."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value "\\[ a ^ 2 = b \\]"))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-fragment-displayed-multi-line ()
"Test displayed LaTeX fragment with multiple lines."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"b ^ 2 = c"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value
(string-join
(list "\\["
"a ^ 2 = b"
"b ^ 2 = c"
"\\]")
"\n")))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-fragment-displayed-indented ()
"Test displayed LaTeX fragment with indentation."
(should
(equal (string-join
(list ""
"@displaymath"
"a ^ 2 = b"
"b ^ 2 = c"
"@end displaymath"
"")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-fragment
(org-element-create 'latex-fragment
(list :value
(string-join
(list " \\["
" a ^ 2 = b"
" b ^ 2 = c"
" \\]")
"\n")))
nil
'(:with-latex t))))))
;;; LaTeX environments
(ert-deftest test-ox-texinfo/latex-environment ()
"Test LaTeX environment."
(should
(equal (string-join
(list "@displaymath"
"\\begin{equation}"
"a ^ 2 = b"
"b ^ 2 = c"
"\\end{equation}"
"@end displaymath")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-environment
(org-element-create 'latex-environment
(list :value
(string-join
(list "\\begin{equation}"
"a ^ 2 = b"
"b ^ 2 = c"
"\\end{equation}")
"\n")))
nil
'(:with-latex t))))))
(ert-deftest test-ox-texinfo/latex-environment-indented ()
"Test LaTeX environment with indentation."
(should
(equal (string-join
(list "@displaymath"
"\\begin{equation}"
"a ^ 2 = b"
"b ^ 2 = c"
"\\end{equation}"
"@end displaymath")
"\n")
(let ((org-texinfo-with-latex t))
(org-texinfo-latex-environment
(org-element-create 'latex-environment
(list :value
(string-join
(list " \\begin{equation}"
" a ^ 2 = b"
" b ^ 2 = c"
" \\end{equation}")
"\n")))
nil
'(:with-latex t))))))
;;; End-to-end
(ert-deftest test-ox-texinfo/end-to-end-inline ()
"Test end-to-end with inline TeX fragment."
(should
(org-test-with-temp-text
"$a^2 = b$"
(let ((export-buffer "*Test Texinfo Export*")
(org-export-show-temporary-export-buffer nil))
(org-export-to-buffer 'texinfo export-buffer
nil nil nil nil nil
#'texinfo-mode)))))
(ert-deftest test-ox-texinfo/end-to-end-sanity-check-displayed ()
"Test end-to-end with LaTeX environment."
(should
(org-test-with-temp-text
(string-join
(list "\\begin{equation}"
"a ^ 2 = b"
"b ^ 2 = c"
"\\end{equation}")
"\n")
(let ((export-buffer "*Test Texinfo Export*")
(org-export-show-temporary-export-buffer nil))
(org-export-to-buffer 'texinfo export-buffer
nil nil nil nil nil
#'texinfo-mode)))))
(provide 'test-ox-texinfo)
;;; test-ox-texinfo.el end here