steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.profiler.sampling: smoke test compact-gc

db4
Joe Groff 2011-11-01 19:39:00 -07:00
parent 575f7fd663
commit fd96103d50
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/tools/profiler/sampling/sampling-tests.factor
View File

@ -8,6 +8,7 @@ TUPLE: boom ;
{ } [ 10 [ [ ] profile ] times ] unit-test { } [ 10 [ [ ] profile ] times ] unit-test
[ 10 [ [ boom new throw ] profile ] times ] [ boom? ] must-fail-with [ 10 [ [ boom new throw ] profile ] times ] [ boom? ] must-fail-with
{ } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times gc ] profile ] times ] unit-test { } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times gc ] profile ] times ] unit-test
{ } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times compact-gc ] profile ] times ] unit-test
{ } [ 2 [ [ 1 seconds sleep ] profile ] times ] unit-test { } [ 2 [ [ 1 seconds sleep ] profile ] times ] unit-test
(clear-samples) (clear-samples)