diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-01-29 16:16:35 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-01-29 16:16:35 +0000 |
| commit | c90cc88da76cefbc30897042ec88eff5cf0d6264 (patch) | |
| tree | 118e0890c1a267264bb2f1ded4ec9230e98a9e63 /tests | |
| parent | c1796f0081cef266cbbc494cbf0791b4105d5b89 (diff) | |
| download | knots-c90cc88da76cefbc30897042ec88eff5cf0d6264.tar knots-c90cc88da76cefbc30897042ec88eff5cf0d6264.tar.gz | |
Add fibers-promise-result-available?
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/promise.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/promise.scm b/tests/promise.scm index b7dec73..1c0e235 100644 --- a/tests/promise.scm +++ b/tests/promise.scm @@ -14,7 +14,15 @@ (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") |