diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2015-06-20 13:31:43 +0200 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2015-06-20 13:31:43 +0200 |
| commit | 31b56bb9f0de9c9d1b3f96207dd4c2b8757f16f9 (patch) | |
| tree | 52d7bd35ca7a0a32d13441ec4923eb7c8ab04836 /test | |
| parent | ec1b1c91413c031d8ccb3d0f39eac43b4257db3c (diff) | |
Fix &rest arg in VPDF adapter
* lisp/pdf-virtual.el (pdf-virtual-define-adapter, renderpage,
setoptions):
* test/pdf-virtual.ert (pdf-virtual-adapter-argument-handling): Test it.
Diffstat (limited to 'test')
| -rw-r--r-- | test/pdf-virtual.ert | 80 |
1 files changed, 52 insertions, 28 deletions
diff --git a/test/pdf-virtual.ert b/test/pdf-virtual.ert index a55a5d5..4cd3f32 100644 --- a/test/pdf-virtual.ert +++ b/test/pdf-virtual.ert @@ -197,31 +197,55 @@ (with-pdf-virtual-test-buffer (should-error (pdf-info-save)))) -;; (ert-deftest pdf-virtual-getattachment-from-annot () -;; ) - -;; (ert-deftest pdf-virtual-getattachments () -;; ) - -;; (ert-deftest pdf-virtual-synctex-forward-search () -;; ) - -;; (ert-deftest pdf-virtual-synctex-backward-search () -;; ) - -;; (ert-deftest pdf-virtual-renderpage () -;; ) - -;; (ert-deftest pdf-virtual-boundingbox () -;; ) - -;; (ert-deftest pdf-virtual-pagelabels () -;; ) - -;; (ert-deftest pdf-virtual-setoptions () -;; ) - -;; (ert-deftest pdf-virtual-getoptions () -;; ) - -) +(ert-deftest pdf-virtual-adapter-argument-handling () + (let ((enabled-p pdf-virtual-global-minor-mode)) + (unwind-protect + (progn + (pdf-virtual-global-minor-mode 1) + (with-pdf-virtual-test-buffer + (should (stringp (pdf-info-renderpage 1 100 :alpha 0.1))) + (should (stringp (pdf-info-renderpage + 1 100 (current-buffer) :alpha 0.2)))) + (pdf-test-with-test-pdf + (should (plist-get (pdf-info-setoptions + :render/printed t) + :render/printed)) + (should-not (plist-get (pdf-info-setoptions + (current-buffer) + :render/printed nil) + :render/printed)) + (should (plist-get (pdf-info-setoptions + (buffer-file-name) + :render/printed t) + :render/printed)))) + (unless enabled-p + (pdf-virtual-global-minor-mode -1))))) + + ;; (ert-deftest pdf-virtual-getattachment-from-annot () + ;; ) + + ;; (ert-deftest pdf-virtual-getattachments () + ;; ) + + ;; (ert-deftest pdf-virtual-synctex-forward-search () + ;; ) + + ;; (ert-deftest pdf-virtual-synctex-backward-search () + ;; ) + + ;; (ert-deftest pdf-virtual-renderpage () + ;; ) + + ;; (ert-deftest pdf-virtual-boundingbox () + ;; ) + + ;; (ert-deftest pdf-virtual-pagelabels () + ;; ) + + ;; (ert-deftest pdf-virtual-setoptions () + ;; ) + + ;; (ert-deftest pdf-virtual-getoptions () + ;; ) + + ) |