cbaines/guile-knots
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix a bug in fibers-batch-map (and related procedures)

Browse source 
And add more tests.
This commit is contained in:
Christopher Baines 2024-12-27 22:14:51 +00:00
parent e8ab6f23d8
commit 4e791aff68
2 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

17
tests/parallelism.scm
View file

@ -24,6 +24,16 @@
100
(iota 34))))))
;; Test fibers-map with an empty list
(run-fibers-for-tests
(lambda ()
(fibers-map identity '())))
;; Test fibers-map with an empty vector
(run-fibers-for-tests
(lambda ()
(fibers-map identity #())))
;; Test fibers-map with vectors
(run-fibers-for-tests
(lambda ()
@ -43,4 +53,11 @@
(* 2 i))
(iota 34))))
;; Test fibers-map-with-progress with an empty list
(run-fibers-for-tests
(lambda ()
(fibers-map-with-progress
identity
'(()))))
(display "parallelism test finished successfully\n")