Don't fix skip-unless function.

* test/pdf-info.ert (skip-unless): Don't skip if arg is non-nil.

1 files 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)