diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2015-02-08 13:21:41 +0100 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2015-02-08 13:42:51 +0100 |
| commit | a839c2b2aeb98579b350187d1c62d655365664b9 (patch) | |
| tree | 86877679119dab0eaaed38a17edd6606917c942f /test | |
| parent | e87b2c6934032782359e3b971bd408598dc97c4b (diff) | |
Don't test unsupported features.
* test/pdf-info.ert (pdf-info-addannot, pdf-info-delannot,
pdf-info-mvannot, pdf-info-save, pdf-info-editannot): Only run those if writing
annotations is supported.
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))) |