From 260500d7481102242dfa6538d6eead80c86ba4a2 Mon Sep 17 00:00:00 2001
From: Andreas Politz <politza@hochschule-trier.de>
Date: Sun, 8 Feb 2015 15:22:14 +0100
Subject: Compatibility with older Emacs.

* test/pdf-info.ert(skip-unless): Fake skipped tests as accepted failures.
---
 test/pdf-info.ert | 11 +++++++++++
 1 file changed, 11 insertions(+)

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))
-- 
cgit v1.0