From 808d9a9eca17b3faf87a849f8f4ecfe38c64d1bc Mon Sep 17 00:00:00 2001 From: Andreas Politz Date: Sun, 8 Feb 2015 13:21:41 +0100 Subject: Don't test unsupported features. * test/pdf-info.ert (pdf-info-addannot, pdf-info-delannot, pdf-info-mvannot, pdf-info-save): Only run those if writing annotations is supported. --- test/pdf-info.ert | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/test/pdf-info.ert b/test/pdf-info.ert index 7b18cfe..3b4857c 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)))))) @@ -198,6 +201,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))) -- cgit v1.0