From b04b077ccd48b636cbcf5a6c66cb26d0e8735781 Mon Sep 17 00:00:00 2001 From: Christopher Lam Date: Mon, 29 Apr 2024 22:06:06 +0800 Subject: [PATCH] [srfi64-extras] don't customise srfi64 test-runner it was causing more trouble than it's worth --- bindings/guile/test/srfi64-extras.scm | 27 +-------------------------- 1 file changed, 1 insertion(+), 26 deletions(-) diff --git a/bindings/guile/test/srfi64-extras.scm b/bindings/guile/test/srfi64-extras.scm index b41baee4322..cfd3e9340a3 100644 --- a/bindings/guile/test/srfi64-extras.scm +++ b/bindings/guile/test/srfi64-extras.scm @@ -21,29 +21,4 @@ (use-modules (srfi srfi-64)) (export gnc:test-runner) -(define (gnc:test-runner) - (let ((runner (test-runner-null)) - (num-passed 0) - (num-failed 0)) - (test-runner-on-test-end! runner - (lambda (runner) - (format #t "[~a] line:~a, test: ~a\n" - (test-result-ref runner 'result-kind) - (test-result-ref runner 'source-line) - (test-runner-test-name runner)) - (case (test-result-kind runner) - ((pass xpass) (set! num-passed (1+ num-passed))) - ((fail xfail) - (if (test-result-ref runner 'expected-value) - (format #t "~a\n -> expected: ~s\n -> obtained: ~s\n" - (string-join (test-runner-group-path runner) "/") - (test-result-ref runner 'expected-value) - (test-result-ref runner 'actual-value))) - (set! num-failed (1+ num-failed))) - (else #t)))) - (test-runner-on-final! runner - (lambda (runner) - (format #t "Source:~a\npass = ~a, fail = ~a\n" - (test-result-ref runner 'source-file) num-passed num-failed) - (zero? num-failed))) - runner)) +(define gnc:test-runner test-runner-simple)