Add test to track tr memory usage.
This commit is contained in:
parent
1ceca069c8
commit
edb04b8bfe
|
@ -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