diff options
-rwxr-xr-x | tests/run-tests.scm | 7 |
1 files changed, 7 insertions, 0 deletions
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 |