Merge pull request 174

1 files changed, 19 insertions, 0 deletions

diff --git a/test/pdf-view-test.el b/test/pdf-view-test.el
new file mode 100644
index 0000000..58f6be5
--- /dev/null
+++ b/test/pdf-view-test.el
@@ -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))))