guile-knots/tests/promise.scm

21 lines
465 B
Scheme
Raw Normal View History

2024-11-19 18:43:43 +00:00
(use-modules (tests)
(fibers)
(unit-test)
(knots parallelism)
(knots promise))
(run-fibers-for-tests
(lambda ()
(let ((promises
(map (lambda (i)
(fibers-delay
(lambda ()
(* i 2))))
(iota 10))))
(assert-equal
90
(apply + (fibers-map fibers-force promises))))))
(display "promise test finished successfully\n")