From cdb17c886430c0582abe6225c42e8c298fdc9f06 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 5 Apr 2022 16:22:09 +0200
Subject: Readd --skip and --only flags to run-tests.

---
 tests/run-tests.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/run-tests.scm b/tests/run-tests.scm
index 95051e82..968100fd 100755
--- a/tests/run-tests.scm
+++ b/tests/run-tests.scm
@@ -19,6 +19,7 @@ fi
 (use-modules (srfi srfi-1)
              (srfi srfi-64)
              (srfi srfi-88)
+             (hnh util)
              (hnh util path)
              (ice-9 ftw)
              (ice-9 format)
@@ -160,6 +161,12 @@ fi
 
 ;; (format #t "Running on:~%~y~%" files)
 
+(awhen (option-ref options 'only #f)
+       (set! files (list (path-append "test" it))))
+
+(awhen (option-ref options 'skip #f)
+       (set! files (delete it files)))
+
 ((@ (hnh util exceptions) warnings-are-errors) #t)
 
 (define finalizer
-- 
cgit v1.2.3