From f852c30bcef530d18a474ab6ab8350a3ef93d563 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Thu, 30 Jan 2020 22:51:45 +0100
Subject: Once again compiles.

---
 tests/run-tests.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'tests/run-tests.scm')

diff --git a/tests/run-tests.scm b/tests/run-tests.scm
index 613b89df..4ffe6d4e 100755
--- a/tests/run-tests.scm
+++ b/tests/run-tests.scm
@@ -14,8 +14,9 @@
 
 (use-modules (ice-9 ftw)
              (ice-9 sandbox)
-             (srfi srfi-64)
-             ((util) :select (for)))
+             (srfi srfi-64)             ; test suite
+             (srfi srfi-88)             ; suffix keywords
+             ((util) :select (for awhen)))
 
 (define files
   (scandir here
@@ -35,10 +36,16 @@
         (reverse done)
         (loop (cons sexp done))))))
 
+
 ;; TODO test-group fails if called before any test begin, since
 ;; (test-runner-current) needs to be a test-runner (dead or not),
 ;; but is initially bound to #f.
 (test-begin "tests")
+
+(awhen (member "--skip" (command-line))
+       (for skip in (cdr it)
+            (test-skip skip)))
+
 (for fname in files
      (format (current-error-port) "Running test ~a~%" fname)
      (test-group
-- 
cgit v1.2.3