Tweak `statprof.test' for faster machines.

* test-suite/tests/statprof.test ("statistical sample counts within
  expected range"): Increase NUM-CALLS and the frequency so that they
  are at least a few samples on my new 2.6 GHz laptop.

diff --git a/test-suite/tests/statprof.test b/test-suite/tests/statprof.test
index 66af55f..96acb3c 100644 (file)
--- a/test-suite/tests/statprof.test
+++ b/test-suite/tests/statprof.test
@@ -50,11 +50,11 @@
                       ((car funcs) x)
                       (loop (- x 1) (cdr funcs))))))))
     
-    (let ((num-calls 40000)
+    (let ((num-calls 20000000)
           (funcs (circular-list (make-func) (make-func) (make-func))))
 
-      ;; Run test. 10000 us == 100 Hz.
-      (statprof-reset 0 10000 #f #f)
+      ;; Run test. 20000 us == 200 Hz.
+      (statprof-reset 0 20000 #f #f)
       (statprof-start)
       (run-test num-calls funcs)
       (statprof-stop)