diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-06 11:54:02 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-03-07 20:11:00 +0100 |
commit | 6001cd8533ec9667e40d62684335541299a29e1e (patch) | |
tree | 1606755d8000298f365a437a16e3d05f9206dbe8 /tests | |
parent | Test runner only output coverage of "our" modules. (diff) | |
download | calp-6001cd8533ec9667e40d62684335541299a29e1e.tar.gz calp-6001cd8533ec9667e40d62684335541299a29e1e.tar.xz |
Add --verbose flag to testrunner.
Diffstat (limited to '')
-rwxr-xr-x | tests/run-tests.scm | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/tests/run-tests.scm b/tests/run-tests.scm index ee0b596e..941b1b54 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -1,4 +1,5 @@ #!/usr/bin/bash +# -*- mode: scheme; geiser-scheme-implementation: guile -*- here=$(dirname $(realpath $0)) @@ -40,7 +41,7 @@ exec $GUILE --debug -s "$0" "$@" ;;; Code: (eval-when (compile load eval) - (define here (dirname (current-filename)))) + (define here (dirname (current-filename)))) (use-modules (srfi srfi-64)) @@ -51,6 +52,8 @@ exec $GUILE --debug -s "$0" "$@" (+ (* (µs 1) (car tod)) (cdr tod))) +(define verbose? (make-parameter #f)) + (define (construct-test-runner) (define runner (test-runner-null)) ;; end of individual test case @@ -65,8 +68,9 @@ exec $GUILE --debug -s "$0" "$@" ((xpass) (display "\x1b[0;33mX\x1b[m")) ((xfail) (display "\x1b[0;33mE\x1b[m")) ((skip) (display "\x1B[0;33m-\x1b[m"))) + (when (or (verbose?) (eq? 'fail (test-result-kind))) + (format #t " ~a~%" (test-runner-test-name runner))) (when (eq? 'fail (test-result-kind)) - (format #t " ~a~%" (test-runner-test-name runner)) (cond ((test-result-ref runner 'actual-error) => (lambda (err) (format #t "Error: ~s~%" err))) (else @@ -139,10 +143,10 @@ exec $GUILE --debug -s "$0" "$@" (reverse done) (loop (cons sexp done)))))) - (define options '((skip (value #t)) - (only (value #t)))) + (only (value #t)) + (verbose (single-char #\v)))) (define opts (getopt-long (command-line) options)) (define to-skip (call-with-input-string (option-ref opts 'skip "") @@ -151,6 +155,9 @@ exec $GUILE --debug -s "$0" "$@" (when only (set! files (list only))) +(when (option-ref opts 'verbose #f) + (verbose? #t)) + (when (list? to-skip) (for skip in to-skip (test-skip skip))) |