24 lines
712 B
Factor
24 lines
712 B
Factor
USING: arrays assocs kernel math memory namespaces parser sequences
|
|
tools.memory tools.memory.private tools.test tools.time vm ;
|
|
|
|
{ } [ room. ] unit-test
|
|
{ } [ heap-stats. ] unit-test
|
|
{ t } [ [ gc gc ] collect-gc-events array? ] unit-test
|
|
{ } [ gc-events. ] unit-test
|
|
{ } [ gc-stats. ] unit-test
|
|
{ } [ gc-summary. ] unit-test
|
|
{ } [ callback-room. ] unit-test
|
|
|
|
! Each gc-event must reclaim something. #659
|
|
{ f } [
|
|
[ "resource:basis/tools/memory/memory.factor" run-file ] time
|
|
gc-events get [ space-reclaimed 0 < ] any?
|
|
] unit-test
|
|
|
|
{ t t t } [
|
|
get-code-blocks code-block-stats nip
|
|
[ CODE-BLOCK-UNOPTIMIZED of 0 > ]
|
|
[ CODE-BLOCK-OPTIMIZED of 0 > ]
|
|
[ CODE-BLOCK-PIC of 0 > ] tri
|
|
] unit-test
|