From fd497d06e02f5714853869fbf13ad3d1f63ea923 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Sun, 13 Mar 2011 17:21:26 -0400 Subject: [PATCH] reporting time --- test-browser-evaluate.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/test-browser-evaluate.rkt b/test-browser-evaluate.rkt index cf866e3..4743c53 100644 --- a/test-browser-evaluate.rkt +++ b/test-browser-evaluate.rkt @@ -17,8 +17,8 @@ (unless (string=? output exp) (printf " error!\n") (raise-syntax-error #f (format "Expected ~s, got ~s" exp output) - #'stx)))) - (printf " ok\n"))))])) + #'stx))) + (printf " ok (~a milliseconds)\n" (evaluated-t result))))))])) (test '(begin (define (f x)