From 3cc74bd3db50dd07eed7b9428968be5eff444baf Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 4 Jun 2020 11:15:50 -0600 Subject: [PATCH] adjust datum-intern stress test Instead of requiring a table not to grow within an iteration, require it to not grow across iterations. --- .../tests/racket/stress/datum-intern.rkt | 20 ++++++++++++------- 1 file changed, 13 insertions(+), 7 deletions(-) diff --git a/pkgs/racket-test/tests/racket/stress/datum-intern.rkt b/pkgs/racket-test/tests/racket/stress/datum-intern.rkt index 66fbe34806..f7063834fc 100644 --- a/pkgs/racket-test/tests/racket/stress/datum-intern.rkt +++ b/pkgs/racket-test/tests/racket/stress/datum-intern.rkt @@ -1,19 +1,25 @@ #lang racket/base (define (check label mk) - (let loop ([tries 0]) - (printf "~a ~a\n" label tries) - (collect-garbage) - (define pre (current-memory-use)) + (collect-garbage) + (define pre (current-memory-use)) + (let loop ([tries 0] [pre pre]) + (printf "~a ~a @ ~s\n" label tries pre) (for ([j 100]) (for ([i (in-range 10000)]) (datum-intern-literal (mk i j)))) (collect-garbage) - (when ((current-memory-use) . > . pre) - (when (= tries 10) + (define post (current-memory-use)) + (when (post . > . pre) + (when (= tries 20) (error 'check "didn't find non-growing iteration")) - (loop (add1 tries))))) + (loop (add1 tries) post)))) (pseudo-random-generator->vector (current-pseudo-random-generator)) (check "strings" (lambda (i j) (format "string-~a-~a" i j))) (check "flonums" (lambda (i j) (random))) + + +(module+ test + (module config info + (define random? #t)))