29 lines
752 B
Factor
29 lines
752 B
Factor
USING: arrays assocs kernel math memory namespaces parser sequences
|
|
tools.memory tools.memory.private tools.test tools.time ;
|
|
IN: tools.memory.tests
|
|
|
|
{ } [ 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
|
|
|
|
{ +pic+ } [
|
|
2 code-block-type
|
|
] unit-test
|
|
|
|
{ t t t } [
|
|
get-code-blocks code-block-stats nip
|
|
[ +unoptimized+ of 0 > ]
|
|
[ +optimized+ of 0 > ]
|
|
[ +pic+ of 0 > ] tri
|
|
] unit-test
|