From c90cc88da76cefbc30897042ec88eff5cf0d6264 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 29 Jan 2025 16:16:35 +0000 Subject: Add fibers-promise-result-available? --- tests/promise.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'tests') diff --git a/tests/promise.scm b/tests/promise.scm index b7dec73..1c0e235 100644 --- 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") -- cgit v1.2.3