diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-01-18 02:13:24 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-01-18 02:13:24 +0100 |
| commit | 4a31120aaf5b5c854312500451c393649eece3f1 (patch) | |
| tree | 21b832d77fb35e2638aefab5923e7a4c9c67fd5a | |
| parent | Add test for parallel speedup. (diff) | |
| download | guile-fibers-4a31120aaf5b5c854312500451c393649eece3f1.tar.gz | |
More speedup tests.
* tests/speedup.scm (do-times): Add different loop-to tests.
| -rw-r--r-- | tests/speedup.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/tests/speedup.scm b/tests/speedup.scm index 9ce694a..bf4bb5f 100644 --- a/tests/speedup.scm +++ b/tests/speedup.scm @@ -46,10 +46,14 @@ (format #t " / ~a s = ~ax (~a cpus)\n" t2 (/ t1 t2) (current-processor-count))))))) +(define (loop-to n) (let lp ((i 0)) (when (< i n) (lp (1+ i))))) (measure-speedup (do-times 100000 (spawn-fiber (lambda () #t) #:parallel? #t))) -(define (loop-to-1e4) (let lp ((i 0)) (when (< i #e1e4) (lp (1+ i))))) -(measure-speedup - (do-times 100000 (spawn-fiber loop-to-1e4 #:parallel? #t))) (measure-speedup (do-times 40000 (spawn-fiber (lambda () (sleep 1)) #:parallel? #t))) +(measure-speedup + (do-times 100000 (spawn-fiber (lambda () (loop-to #e1e4)) #:parallel? #t))) +(measure-speedup + (do-times 10000 (spawn-fiber (lambda () (loop-to #e1e5)) #:parallel? #t))) +(measure-speedup + (do-times 1000 (spawn-fiber (lambda () (loop-to #e1e6)) #:parallel? #t))) |