From e80308aa15ca5278a411a4587dae654f3f204f1e Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Tue, 14 Jun 2011 13:03:13 -0400 Subject: [PATCH] Make `test' messages show keyword arguments too. --- collects/tests/racket/testing.rktl | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/testing.rktl b/collects/tests/racket/testing.rktl index 38338522d6..af75f0d28e 100644 --- a/collects/tests/racket/testing.rktl +++ b/collects/tests/racket/testing.rktl @@ -100,8 +100,10 @@ transcript. (define test (let () (define (test* expect fun args kws kvs) + (define form + `(,fun ,@args ,@(apply append (if kws (map list kws kvs) '())))) (set! number-of-tests (add1 number-of-tests)) - (printf "~s ==> " (cons fun args)) + (printf "~s ==> " form) (flush-output) (let ([res (if (procedure? fun) (if kws (keyword-apply fun kws kvs args) (apply fun args)) @@ -109,7 +111,7 @@ transcript. (printf "~s\n" res) (let ([ok? (equal? expect res)]) (unless ok? - (record-error (list res expect (cons fun args))) + (record-error (list res expect form)) (printf " BUT EXPECTED ~s\n" expect)) ok?))) (define (test/kw kws kvs expect fun . args) (test* expect fun args kws kvs))