Add test to track tr memory usage.

original commit: edb04b8bfeefcdcfe57fe24ed2cc03799e8eb77d
This commit is contained in:
Eric Dobson 2013-12-15 14:32:43 -08:00
parent ef52853ea7
commit b24a9cac44

View File

@ -0,0 +1,18 @@
#lang racket/load
(displayln "The printouts below are designed to trick drdr into graphing them;")
(displayln "they aren't times, but memory usage.")
(define (print-memory)
(for ((i 10))
(collect-garbage))
(let ([n (current-memory-use)])
(printf "cpu time: ~a real time: ~a gc time: ~a\n" n n n)))
(print-memory)
(module tr typed/racket)
(print-memory)
(require 'tr)
(print-memory)