diff options
-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)))))) |