From 7882038037b7b0911b63f3dd2a4413f5668c37da Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 27 Jul 2021 15:03:13 +0530 Subject: build-aux: Use #t as the expected value for test-assert tests. * build-aux/test-driver.scm.in: Import (ice-9 match). (my-gnu-runner): Use #t as the expected value for test-assert tests. --- build-aux/test-driver.scm.in | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'build-aux') diff --git a/build-aux/test-driver.scm.in b/build-aux/test-driver.scm.in index f417ca3..1407fc8 100644 --- a/build-aux/test-driver.scm.in +++ b/build-aux/test-driver.scm.in @@ -27,6 +27,7 @@ (use-modules (ice-9 format) (ice-9 getopt-long) + (ice-9 match) (srfi srfi-26) (srfi srfi-64)) @@ -72,12 +73,15 @@ (format log-port "~a ~a~%" result name) ;; If test did not pass, print details. (unless (eq? (test-result-kind runner) 'pass) - (let ((log-output - (format #f "~a:~a~%expected: ~s~%actual: ~s~%" - (assq-ref result-alist 'source-file) - (assq-ref result-alist 'source-line) - (assq-ref result-alist 'expected-value) - (assq-ref result-alist 'actual-value)))) + (let* ((expected-value (match (assq-ref result-alist 'source-form) + (('test-assert _ ...) #t) + (_ (assq-ref result-alist 'expected-value)))) + (log-output + (format #f "~a:~a~%expected: ~s~%actual: ~s~%" + (assq-ref result-alist 'source-file) + (assq-ref result-alist 'source-line) + expected-value + (assq-ref result-alist 'actual-value)))) (display log-output log-port) (display log-output (current-error-port))))))) runner)) -- cgit v1.2.3