From 8a6058fa0f0c5d121343c9a30807d7f11eb6ac97 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 1 Jul 2010 06:02:42 -0500 Subject: [PATCH] added some printouts to say what this file is doing. --- collects/tests/drracket/memory-log.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/tests/drracket/memory-log.rkt b/collects/tests/drracket/memory-log.rkt index 482c5ebb1d..3d79d2021d 100644 --- a/collects/tests/drracket/memory-log.rkt +++ b/collects/tests/drracket/memory-log.rkt @@ -4,6 +4,10 @@ racket/class framework/test) +(printf "The printouts below are designed to trick drdr into graphing them;\n") +(printf "they aren't times, but memory usage. The first is starting up DrRacket,\n") +(printf "the second is after the documentation index has been loaded.\n") + ;; mem-cnt returns the amount of memory used, iterating (collect-garbage) ;; until the delta is less than 10k or we've done it 20 times. (define (mem-cnt) @@ -32,7 +36,6 @@ (printf "cpu time: ~a real time: ~a gc time: ~a\n" n n n)))) -(printf "The printouts below are designed to trick drdr into graphing them;\nthey aren't times, but memory usage.\n") (fire-up-drscheme-and-run-tests (λ () (let ([drs-frame (wait-for-drscheme-frame)])