diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/pdf-info.ert | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/test/pdf-info.ert b/test/pdf-info.ert index 7b18cfe..0ab4f36 100644 --- a/test/pdf-info.ert +++ b/test/pdf-info.ert @@ -156,6 +156,7 @@ 'string-lessp :key 'car)))))) (ert-deftest pdf-info-addannot () + (skip-unless (pdf-info-writable-annotations-p)) (pdf-test-with-test-pdf (let (annot) (should (consp (setq annot @@ -165,6 +166,7 @@ (should (equal "" (cdr (assq 'contents annot))))))) (ert-deftest pdf-info-delannot () + (skip-unless (pdf-info-writable-annotations-p)) (pdf-test-with-test-pdf (let ((nannots (length (pdf-info-getannots))) annots) @@ -181,6 +183,7 @@ (should (= nannots (length (pdf-info-getannots))))))) (ert-deftest pdf-info-mvannot () + (skip-unless (pdf-info-writable-annotations-p)) (pdf-test-with-test-pdf (let ((edges '(0.25 0.25 1.0 1.0)) (id (cdr (assq 'id (car (pdf-info-getannots)))))) @@ -189,6 +192,7 @@ edges))))) (ert-deftest pdf-info-editannot () + (skip-unless (pdf-info-writable-annotations-p)) (pdf-test-with-test-pdf (let ((color "#ffa500") (id (cdr (assq 'id (car (pdf-info-getannots)))))) @@ -198,6 +202,7 @@ color))))) (ert-deftest pdf-info-save () + (skip-unless (pdf-info-writable-annotations-p)) (pdf-test-with-test-pdf (dolist (id (mapcar (lambda (a) (cdr (assq 'id a))) |