USING: assocs byte-arrays calendar kernel kernel.private math
-memory namespaces parser random sequences system threads
+memory namespaces parser random sequences threads
tools.profiler.sampling tools.profiler.sampling.private
tools.test ;
IN: tools.profiler.sampling.tests
] unit-test
! Make sure the profiler doesn't blow up the VM
-os windows? cpu x86.32? and [
{ } [ 10 [ [ ] profile ] times ] unit-test
TUPLE: boom ;
[ 10 [ [ boom new throw ] profile ] times ] [ boom? ] must-fail-with
! sometimes generated for some unknown reason.
gc [ ] profile get-samples length 1 <=
] unit-test
-] unless