From b1d9201c13b372035bb4cbcd88c7ac5011f1b364 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 18 Dec 2019 06:46:02 -0700 Subject: [PATCH] refine test of compilation time Relevant to #2977 --- pkgs/racket-test-core/tests/racket/optimize.rktl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pkgs/racket-test-core/tests/racket/optimize.rktl b/pkgs/racket-test-core/tests/racket/optimize.rktl index 9aec6ae377..d103353628 100644 --- a/pkgs/racket-test-core/tests/racket/optimize.rktl +++ b/pkgs/racket-test-core/tests/racket/optimize.rktl @@ -6206,6 +6206,7 @@ (cons (gensym) (loop (sub1 i)))))) (define (time-it n) + (collect-garbage) (let ([start (current-process-milliseconds)]) (let* ([args (gensym-n n)] [defns (gensym-n n)]) @@ -6215,9 +6216,10 @@ ,@(map (lambda (arg defn) `(,arg ,defn)) args defns)))) (- (current-process-milliseconds) start))) - (let loop ([tries 3]) + (let loop ([tries 10]) (let ([a (time-it 100)] [b (time-it 1000)]) + (printf "~s ~s\n" a b) ;; n lg(n) is ok, n^2 is not (when (b . > . (* 50 a)) (if (zero? tries)