blob: b72ed16beb89f690ddcd07f6daecaad3c389424f (
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
|
;; This is a very basic test, which merely checks the basic
;; functionality of the epdfinfo program.
(require 'package)
(defvar pdf (expand-file-name
"install-test.pdf"
(file-name-directory
(or load-file-name default-directory))))
(setq package-user-dir (make-temp-file "pdf-tools.install-basic." t))
(ert-deftest pdf-info ()
(should-not (pdf-info-open pdf))
(should (= (pdf-info-number-of-pages pdf) 3))
(should (= (length (pdf-info-search-string "Hello" nil pdf)) 3))
(should (pdf-info-close pdf)))
(add-hook 'kill-emacs-hook
(lambda nil
(when (file-exists-p package-user-dir)
(delete-directory package-user-dir t))))
(message "Installing package %s" (buffer-file-name))
(package-install-file (buffer-file-name))
(when (and (bound-and-true-p byte-compile-log-buffer)
(buffer-live-p (get-buffer byte-compile-log-buffer)))
(with-current-buffer byte-compile-log-buffer
(save-excursion
(goto-char 1)
(when (re-search-forward ":\\(?:Error\\|Warning\\):" nil t)
(error "Compilation had errors and/or warnings.")))))
(message "Installing pdf-tools")
(pdf-tools-install)
(message "Running ERT tests")
(ert-run-tests-batch-and-exit)
|
