Initial commit

This commit is contained in:
Christopher Baines 2024-11-19 18:43:43 +00:00
commit 2f39c58d6c
27 changed files with 2969 additions and 0 deletions

15
tests/parallelism.scm Normal file
View 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")