Bump promesa; avoid test flakiness

Author: mainej

deps.edn

@@ -2,7 +2,7 @@
         org.clojure/core.async {:mvn/version "1.5.648"}
         camel-snake-kebab/camel-snake-kebab {:mvn/version "0.4.3"}
         cheshire/cheshire {:mvn/version "5.11.0"}
-        funcool/promesa {:mvn/version "10.0.571"}}
+        funcool/promesa {:mvn/version "10.0.594"}}
  :paths ["src" "resources"]
  :aliases {:test {:extra-deps {lambdaisland/kaocha {:mvn/version "1.64.1010"}}
                   :extra-paths ["test"]

src/lsp4clj/server.clj

@@ -38,10 +38,10 @@
   (deref [_ timeout-ms timeout-val]
     (deref p timeout-ms timeout-val))
   IBlockingDerefOrCancel
-  (deref-or-cancel [this timeout-ms timeout-val]
+  (deref-or-cancel [_ timeout-ms timeout-val]
     (let [result (deref p timeout-ms ::timeout)]
       (if (identical? ::timeout result)
-        (do (future-cancel this)
+        (do (p/cancel! p)
             timeout-val)
         result)))
   clojure.lang.IPending

test/lsp4clj/server_test.clj

@@ -385,11 +385,15 @@
           _ (server/start server nil)
           req (p/promise (server/send-request server "req" {:body "foo"}))
           client-rcvd-msg (h/assert-take output-ch)]
-      (async/put! input-ch (lsp.responses/response (:id client-rcvd-msg) {:processed 1}))
-      (is (= {:processed 2} (-> req
-                                (p/timeout 1000 :test-timeout)
-                                (p/then #(update % :processed inc))
-                                (p/extract))))
+      (async/put! input-ch (lsp.responses/response (:id client-rcvd-msg) {:result :processed
+                                                                          :value 1}))
+      (is (= {:result :processed
+              :value 2}
+             (-> req
+                 (p/timeout 1000 {:result :test-timeout
+                                  :value 1})
+                 (p/then #(update % :value inc))
+                 (deref))))
       (is (p/done? req))
       (is (p/resolved? req))
       (is (not (p/rejected? req)))