suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added some printouts to say what this file is doing.

Browse Source
This commit is contained in:
Robby Findler 2010-07-01 06:02:42 -05:00
parent 896bbfaabb
commit 8a6058fa0f
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/tests/drracket/memory-log.rkt
View File

@ -4,6 +4,10 @@
racket/class racket/class
framework/test) 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) ;; 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. ;; until the delta is less than 10k or we've done it 20 times.
(define (mem-cnt) (define (mem-cnt)
@ -32,7 +36,6 @@
(printf "cpu time: ~a real time: ~a gc time: ~a\n" (printf "cpu time: ~a real time: ~a gc time: ~a\n"
n n 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 (fire-up-drscheme-and-run-tests
(λ () (λ ()
(let ([drs-frame (wait-for-drscheme-frame)]) (let ([drs-frame (wait-for-drscheme-frame)])