blob: 8d798871b80d1511120434061511a49013fd0f8d (
plain)
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
|
;;; test-org-export-config-pdf-open-guard.el --- zathura open guard test -*- lexical-binding: t; -*-
;;; Commentary:
;; `my/org-pandoc-export-to-pdf-and-open' opens the exported PDF with zathura
;; via `start-process'. Without zathura on PATH that call fails with an opaque
;; error. These tests pin the command-time guard: a missing zathura signals a
;; `user-error' naming the tool, and a present zathura lets the open proceed.
;; Requiring the module then ox fires the deferred ox-pandoc :config in batch,
;; which is where the function is defined.
;;; Code:
;; Initialize package system for batch mode so elpa packages (ox-pandoc) load.
(when noninteractive
(package-initialize))
(require 'ert)
(require 'cl-lib)
(require 'org)
(require 'org-export-config)
(require 'ox)
;; The function under test lives in ox-pandoc's :config block. In batch the
;; deferred :after-ox config does not fire on a bare module load, so require
;; ox-pandoc directly to ensure the function is defined.
(require 'ox-pandoc)
(ert-deftest test-org-export-config-pdf-open-missing-zathura-errors ()
"Error: missing zathura signals a user-error before opening the PDF."
(cl-letf (((symbol-function 'executable-find) (lambda (&rest _) nil)))
(should-error (my/org-pandoc-export-to-pdf-and-open) :type 'user-error)))
(ert-deftest test-org-export-config-pdf-open-present-zathura-proceeds ()
"Normal: with zathura present, the open step runs without error."
(let ((started nil))
(cl-letf (((symbol-function 'executable-find)
(lambda (cmd &rest _) (if (equal cmd "zathura") "/usr/bin/zathura" nil)))
((symbol-function 'org-pandoc-export-to-latex-pdf)
(lambda (&rest _) "/tmp/out.pdf"))
((symbol-function 'start-process)
(lambda (&rest _) (setq started t) 'fake-process)))
(my/org-pandoc-export-to-pdf-and-open)
(should started))))
(provide 'test-org-export-config-pdf-open-guard)
;;; test-org-export-config-pdf-open-guard.el ends here
|
