16 lines
549 B
Factor
16 lines
549 B
Factor
|
USING: byte-arrays calendar kernel math memory namespaces
|
||
|
|
random threads tools.profiler.sampling
|
||
|
|
tools.profiler.sampling.private tools.test ;
|
||
|
|
IN: tools.profiler.sampling.tests
|
||
|
|
|
||
|
|
! Make sure the profiler doesn't blow up the VM
|
||
|
|
TUPLE: boom ;
|
||
|
|
{ } [ 10 [ [ ] profile ] times ] unit-test
|
||
|
|
[ 10 [ [ boom new throw ] profile ] times ] [ boom? ] must-fail-with
|
||
|
|
{ } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times gc ] profile ] times ] unit-test
|
||
|
|
{ } [ 2 [ [ 1 seconds sleep ] profile ] times ] unit-test
|
||
|
|
|
||
|
|
(clear-samples)
|
||
|
|
f raw-profile-data set-global
|
||
|
|
gc
|