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

Fix unit tests to give the sampling profiler something to profile.

db4
Doug Coleman 2011-11-02 17:46:50 -07:00
parent f3c8423382
commit ee741143e0
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,9 +11,8 @@ TUPLE: boom ;
{ } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times compact-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
[ ] [ [ 1,000,000 iota [ sq ] map drop ] profile flat profile. ] unit-test
[ ] [ [ 10 iota [ sq ] map ] profile flat profile. ] unit-test [ ] [ [ 1,000,000 iota [ sq ] map drop ] profile top-down profile. ] unit-test
[ ] [ [ 10 iota [ sq ] map ] profile top-down profile. ] unit-test
(clear-samples) (clear-samples)
f raw-profile-data set-global f raw-profile-data set-global