Add test to track tr memory usage.
original commit: edb04b8bfeefcdcfe57fe24ed2cc03799e8eb77d
This commit is contained in:
parent
ef52853ea7
commit
b24a9cac44
|
@ -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)
|
Loading…
Reference in New Issue
Block a user