diff options
Diffstat (limited to 'build-aux/test-driver.scm')
| -rw-r--r-- | build-aux/test-driver.scm | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm index 25aaf44..0daad1d 100644 --- a/build-aux/test-driver.scm +++ b/build-aux/test-driver.scm @@ -18,8 +18,8 @@ ;;; <http://www.gnu.org/licenses/>. (use-modules (ice-9 getopt-long) - (srfi srfi-26) - (srfi srfi-64)) + (srfi srfi-26) + (srfi srfi-64)) ;; Currently, only log-file and trs-file are understood. Everything ;; else is ignored. @@ -35,11 +35,11 @@ (let ((runner (test-runner-simple))) (test-runner-on-test-end! runner (lambda (runner) - (format trs-port ":test-result: ~A ~A~%" - (string-upcase - (symbol->string - (test-result-kind runner))) - (test-runner-test-name runner)))) + (format trs-port ":test-result: ~A ~A~%" + (string-upcase + (symbol->string + (test-result-kind runner))) + (test-runner-test-name runner)))) runner)) @@ -48,4 +48,4 @@ (call-with-output-file (option-ref opts 'trs-file #f) (lambda (trs-port) (test-with-runner (my-gnu-runner trs-port) - (load-from-path (option-ref opts 'test-name #f)))))) + (load-from-path (option-ref opts 'test-name #f)))))) |