diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2015-04-10 10:16:20 +0200 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2015-04-10 10:16:20 +0200 |
| commit | 703fe6f28a01e59cd18ea6edfbe30315225d0cff (patch) | |
| tree | cea5851e385134326a5340e1d84b6591cc9f4618 /test | |
| parent | 3b83106d995fbc6acce89c6dc9b2dbba185712c1 (diff) | |
Improve feedback if epdfinfo is not in working.
* lisp/pdf-info.el (pdf-info-check-epdfinfo): New function: Send a
simple command and check for errors.
(pdf-info-process-assert-running): Use it.
* test/pdf-info.ert (pdf-info-check-epdfinfo): Test it.
Diffstat (limited to 'test')
| -rw-r--r-- | test/pdf-info.ert | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/test/pdf-info.ert b/test/pdf-info.ert index a2596d9..75e0fb4 100644 --- a/test/pdf-info.ert +++ b/test/pdf-info.ert @@ -200,6 +200,19 @@ (when (file-exists-p tempfile) (delete-file tempfile)))))) +(ert-deftest pdf-info-check-epdfinfo () + (should (progn (pdf-info-check-epdfinfo) t)) + (should-error + (let (pdf-info-epdfinfo-program) + (pdf-info-check-epdfinfo))) + (should-error + (let ((pdf-info-epdfinfo-program 42)) + (pdf-info-check-epdfinfo))) + (should-error + (let ((pdf-info-epdfinfo-program + (make-temp-name "pdf-info"))) + (pdf-info-check-epdfinfo)))) + ;; FIXME: Write me. ;; (ert-deftest pdf-info-getattachment-from-annot () ;; (pdf-test-with-test-pdf |