diff options
| -rw-r--r-- | test/pdf-view.ert | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/test/pdf-view.ert b/test/pdf-view.ert new file mode 100644 index 0000000..58f6be5 --- /dev/null +++ b/test/pdf-view.ert @@ -0,0 +1,19 @@ +;; -*- lexical-binding: t -*- + +(require 'pdf-view) +(require 'ert) + +(ert-deftest pdf-view-handle-archived-file () + :expected-result :failed + (skip-unless (executable-find "gzip")) + (let ((tramp-verbose 0) + (temp + (make-temp-file "pdf-test"))) + (unwind-protect + (progn + (copy-file "test.pdf" temp t) + (call-process "gzip" nil nil nil temp) + (setq temp (concat temp ".gz")) + (should (numberp (pdf-info-number-of-pages temp))))) + (when (file-exists-p temp) + (delete-file temp)))) |