dotemacs

My Emacs configuration
git clone git://git.entf.net/dotemacs
Log | Files | Refs | LICENSE

pdf-view-test.el (548B)

      1 ;; -*- lexical-binding: t -*-
      2 
      3 (require 'pdf-view)
      4 (require 'ert)
      5 
      6 (ert-deftest pdf-view-handle-archived-file ()
      7   :expected-result :failed
      8   (skip-unless (executable-find "gzip"))
      9   (let ((tramp-verbose 0)
     10         (temp
     11          (make-temp-file "pdf-test")))
     12     (unwind-protect
     13         (progn
     14           (copy-file "test.pdf" temp t)
     15           (call-process "gzip" nil nil nil temp)
     16           (setq temp (concat temp ".gz"))
     17           (should (numberp (pdf-info-number-of-pages temp)))))
     18     (when (file-exists-p temp)
     19       (delete-file temp))))