15 lines
322 B
Scheme
15 lines
322 B
Scheme
(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")
|