From 2426a13d6a6e34cbaf6f74972f443d07ce62df11 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 26 Jul 2012 12:04:23 -0700 Subject: [PATCH] tools.profiler: Make the unit tests do more work so there's something to sample. Fixes #563. --- basis/tools/profiler/sampling/sampling-tests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor index eb5b4b68dd..e7490bf024 100644 --- a/basis/tools/profiler/sampling/sampling-tests.factor +++ b/basis/tools/profiler/sampling/sampling-tests.factor @@ -11,8 +11,8 @@ TUPLE: boom ; { } [ 10 [ [ 100 [ 1000 random (byte-array) drop ] times compact-gc ] profile ] times ] unit-test { } [ 2 [ [ 1 seconds sleep ] profile ] times ] unit-test -[ ] [ [ 3,000,000 iota [ sq ] map drop ] profile flat profile. ] unit-test -[ ] [ [ 3,000,000 iota [ sq ] map drop ] profile top-down profile. ] unit-test +[ ] [ [ 3,000,000 iota [ sq sq sq ] map drop ] profile flat profile. ] unit-test +[ ] [ [ 3,000,000 iota [ sq sq sq ] map drop ] profile top-down profile. ] unit-test (clear-samples) f raw-profile-data set-global