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)