Add fibers-promise-result-available?

2025-01-29 16:16:35 +00:00 · 2025-01-29 16:16:35 +00:00 · c90cc88da7
commit c90cc88da7
parent c1796f0081
2 changed files with 16 additions and 2 deletions
--- a/tests/promise.scm
+++ b/tests/promise.scm
@ -13,8 +13,16 @@
                    (* i 2))))
               (iota 10))))

+     (assert-equal
+      #f
+      (fibers-promise-result-available? (car promises)))
+
     (assert-equal
      90
-      (apply + (fibers-map fibers-force promises))))))
+      (apply + (fibers-map fibers-force promises)))
+
+     (assert-equal
+      #t
+      (fibers-promise-result-available? (car promises))))))

 (display "promise test finished successfully\n")