diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-11-19 18:43:43 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-12-16 09:18:12 +0000 |
| commit | 2f39c58d6ca72cd869ba69e03d639f36d497e9a8 (patch) | |
| tree | 78caa9af60eb057eda659e969207a8457e2fa3f2 /tests/parallelism.scm | |
| download | knots-2f39c58d6ca72cd869ba69e03d639f36d497e9a8.tar knots-2f39c58d6ca72cd869ba69e03d639f36d497e9a8.tar.gz | |
Initial commit
Diffstat (limited to 'tests/parallelism.scm')
| -rw-r--r-- | tests/parallelism.scm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/parallelism.scm b/tests/parallelism.scm new file mode 100644 index 0000000..8249d68 --- /dev/null +++ b/tests/parallelism.scm @@ -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") |