Compatibility with older Emacs.

* test/pdf-info.ert(skip-unless): Fake skipped tests as accepted failures.

1 files changed, 11 insertions, 0 deletions

diff --git a/test/pdf-info.ert b/test/pdf-info.ert
index 68a6acf..4e832bf 100644
--- a/test/pdf-info.ert
+++ b/test/pdf-info.ert
@@ -1,4 +1,15 @@
+;; -*- lexical-binding: t -*-
+
 (require 'pdf-info)
+(require 'ert)
+
+;; Fake skipped as accepted failures if skip-unless is not available.
+(unless (fboundp 'ert--skip-unless)
+  (defun skip-unless (arg)
+    (setf (ert-test-expected-result-type
+           (car ert--running-tests))
+          :failed)
+    (ert-fail (list nil))))
 
 (defmacro pdf-test-with-test-pdf (&rest body)
   (declare (indent 0) (debug t))