mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-09 21:40:33 +02:00
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.
This commit is contained in:
parent
11671bbacb
commit
f9c1b8278d
1 changed files with 3 additions and 3 deletions
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue