diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 22:50:09 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-10 23:45:29 +0200 |
| commit | d45edcd8a54f0b49657059ae1012c0134bb83c4a (patch) | |
| tree | c2264a071abb3b8dfb4a678794f19c6f904d8e34 | |
| parent | Add various TODOs (diff) | |
| download | calp-d45edcd8a54f0b49657059ae1012c0134bb83c4a.tar.gz calp-d45edcd8a54f0b49657059ae1012c0134bb83c4a.tar.xz | |
Fix command line handling in test runner.
| -rwxr-xr-x | tests/run-tests.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index ca8f9de4..dbd67b7e 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -290,9 +290,9 @@ fi (%loop args onlies))) (if (null? args) onlies - (cond ((string-match "^--skip(=.*)?$" (car args)) + (cond ((string-match "^--skip(=(.*))?$" (car args)) => (lambda (m) - (cond ((match:substring m 1) + (cond ((match:substring m 2) => (lambda (s) (format #t "Skipping ~s~%" s) (test-skip s) @@ -300,9 +300,9 @@ fi (else (format #t "Skipping ~s~%" (cadr args)) (test-skip (cadr args)) (loop (cddr args)))))) - ((string-match "^--only(=.*)?$" (car args)) + ((string-match "^--only(=(.*))?$" (car args)) => (lambda (m) - (cond ((match:substring m 1) + (cond ((match:substring m 2) => (lambda (s) (loop (cdr args) only: s))) (else (loop (cddr args) only: (cadr args)))))) |