Initial commit
This commit is contained in:
commit
2f39c58d6c
27 changed files with 2969 additions and 0 deletions
15
tests/parallelism.scm
Normal file
15
tests/parallelism.scm
Normal file
|
@ -0,0 +1,15 @@
|
|||
(use-modules (tests)
|
||||
(fibers)
|
||||
(unit-test)
|
||||
(knots parallelism))
|
||||
|
||||
(run-fibers-for-tests
|
||||
(lambda ()
|
||||
(assert-equal
|
||||
1122
|
||||
(apply + (fibers-map
|
||||
(lambda (i)
|
||||
(* 2 i))
|
||||
(iota 34))))))
|
||||
|
||||
(display "parallelism test finished successfully\n")
|
Loading…
Add table
Add a link
Reference in a new issue