Add tests for encrypted documents

3 files changed, 17 insertions, 6 deletions

diff --git a/test/encrypted.pdf b/test/encrypted.pdf
new file mode 100644
index 0000000..a6c2ef2
--- /dev/null
+++ b/test/encrypted.pdf
diff --git a/test/pdf-info.ert b/test/pdf-info.ert
index 82f3e38..161133f 100644
--- a/test/pdf-info.ert
+++ b/test/pdf-info.ert
@@ -6,8 +6,11 @@
 
 (ert-deftest pdf-info-open/close ()
   (pdf-test-with-test-pdf
-    (should-not (pdf-info-open))
-    (should (pdf-info-close))))
+   (should-not (pdf-info-open))
+   (should (pdf-info-close)))
+  (pdf-test-with-encrypted-pdf 
+   (should-error (pdf-info-open nil "Invalid Password"))
+   (should-not (pdf-info-open nil "pdftool"))))
 
 (ert-deftest pdf-info-metadata ()
   (pdf-test-with-test-pdf
diff --git a/test/run-tests.el b/test/run-tests.el
index f05c092..7ccb514 100644
--- a/test/run-tests.el
+++ b/test/run-tests.el
@@ -55,11 +55,11 @@
                         (>= x 0)))
                  edges)))
 
-(defmacro pdf-test-with-test-pdf (&rest body)
+(defmacro pdf-test-with-pdf (pdf-filename &rest body)
   (declare (indent 0) (debug t))
   (let ((buffer (make-symbol "buffer")))
     `(let ((,buffer (find-file-noselect
-                     (expand-file-name "test.pdf")))
+                     (expand-file-name ,pdf-filename)))
            (pdf-info-epdfinfo-error-filename (make-temp-file "epdfinfo.log")))
        (unwind-protect
            (progn
@@ -67,8 +67,10 @@
              (pdf-info-process-assert-running t)
              (with-current-buffer ,buffer ,@body))
          (when (buffer-live-p ,buffer)
-           (set-buffer-modified-p nil)
-           (kill-buffer))
+           (with-current-buffer ,buffer
+             (set-buffer-modified-p nil)
+             (let (kill-buffer-hook)
+               (kill-buffer))))
          (when (file-exists-p pdf-info-epdfinfo-error-filename)
            (with-temp-buffer
              (insert-file-contents pdf-info-epdfinfo-error-filename)
@@ -77,6 +79,12 @@
            (delete-file pdf-info-epdfinfo-error-filename))
          (pdf-info-quit)))))
 
+(defmacro pdf-test-with-test-pdf (&rest body)
+  `(pdf-test-with-pdf "test.pdf" ,@body))
+
+(defmacro pdf-test-with-encrypted-pdf (&rest body)
+  `(pdf-test-with-pdf "encrypted.pdf" ,@body))
+
 (dolist (file (directory-files "." t "\\.ert\\'"))
   (load-file file))
 (ert-run-tests-batch-and-exit t)