diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-30 22:51:45 +0100 |
| commit | f852c30bcef530d18a474ab6ab8350a3ef93d563 (patch) | |
| tree | 00fc29a6ff1a8c842d0a526f04d4124977dd6e46 /tests/run-tests.scm | |
| parent | Update recurrence generate to new date obj. (diff) | |
| download | calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.gz calp-f852c30bcef530d18a474ab6ab8350a3ef93d563.tar.xz | |
Once again compiles.
Diffstat (limited to 'tests/run-tests.scm')
| -rwxr-xr-x | tests/run-tests.scm | 11 |
1 files changed, 9 insertions, 2 deletions
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 |