Initial commit

2024-11-19 18:43:43 +00:00 · 2024-11-19 18:43:43 +00:00 · 2f39c58d6c
commit 2f39c58d6c
27 changed files with 2969 additions and 0 deletions
--- a/tests/promise.scm
+++ b/tests/promise.scm
@ -0,0 +1,20 @@
+(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")