From 9cd4d224e7243144e841b861139f32a119ce20c5 Mon Sep 17 00:00:00 2001
From: Andreas Politz <politza@hochschule-trier.de>
Date: Fri, 13 Feb 2015 00:13:22 +0100
Subject: Don't fix skip-unless function.

* test/pdf-info.ert (skip-unless): Don't skip if arg is non-nil.
---
 test/pdf-info.ert | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/test/pdf-info.ert b/test/pdf-info.ert
index 53e5d1e..91fa87a 100644
--- a/test/pdf-info.ert
+++ b/test/pdf-info.ert
@@ -6,10 +6,11 @@
 ;; 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))))
+    (unless arg
+      (setf (ert-test-expected-result-type
+             (car ert--running-tests))
+            :failed)
+      (ert-fail (list nil)))))
 
 (defun pdf-test-relative-edges-p (edges)
   (and (consp edges)
-- 
cgit v1.0