diff options
Diffstat (limited to 'tests/run-tests.scm')
-rwxr-xr-x | tests/run-tests.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index 919fc5b5..656d84b4 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -199,8 +199,6 @@ fi (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) @@ -234,8 +232,14 @@ fi (proc)) (test-begin "suite") + +(awhen (option-ref options 'skip #f) + (format #t "Skipping ~s~%" it) + (test-skip it)) + (finalizer (lambda () (for-each (lambda (f) (catch/print-trace (lambda () (test-group f (load f))))) files))) + (test-end "suite") (newline) |