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

diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor
index 22e2d17bb6fb2f9665bf85461deffe13d8b749f0..59b0f02011bd80eec8b444d733eea5e08bd0233b 100644 (file)
--- a/basis/tools/profiler/sampling/sampling-tests.factor
+++ b/basis/tools/profiler/sampling/sampling-tests.factor
@@ -11,9 +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
 
-
-[ ] [ [ 10 iota [ sq ] map ] profile flat profile. ] unit-test
-[ ] [ [ 10 iota [ sq ] map ] profile top-down profile. ] unit-test
+[ ] [ [ 1,000,000 iota [ sq ] map drop ] profile flat profile. ] unit-test
+[ ] [ [ 1,000,000 iota [ sq ] map drop ] profile top-down profile. ] unit-test
 
 (clear-samples)
 f raw-profile-data set-global