Add promise and deliver (#260)

2020-02-08 23:43:15 +01:00 · 2020-02-08 23:43:15 +01:00 · 50f0630b38
commit 50f0630b38
parent 9361fd6797
1 changed files with 6 additions and 0 deletions
--- a/test/babashka/main_test.clj
+++ b/test/babashka/main_test.clj
@ -161,6 +161,12 @@
 (deftest future-test
  (is (= 6 (bb nil "@(future (+ 1 2 3))"))))
  
+(deftest promise-test
+  (is (= :timeout (bb nil "(deref (promise) 1 :timeout)")))
+  (is (= :ok (bb nil "(let [x (promise)]
+                        (deliver x :ok)
+                        @x)"))))
+
 (deftest process-builder-test
  (is (str/includes? (bb nil "
 (def ls (-> (ProcessBuilder. [\"ls\"]) (.start)))