From ee741143e04956d71b7aae56f4f3ce9631fccb42 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Wed, 2 Nov 2011 17:46:50 -0700
Subject: [PATCH] Fix unit tests to give the sampling profiler something to
profile.
---
basis/tools/profiler/sampling/sampling-tests.factor | 5 ++---
1 file changed, 2 insertions(+), 3 deletions(-)
diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor
index 22e2d17bb6..59b0f02011 100644
--- 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