From 91eedfc3a3eb8aec797c7786dc5dde7d66c433ea Mon Sep 17 00:00:00 2001
From: Artem Medeu <artem.medeusheyev@gmail.com>
Date: Wed, 27 Mar 2024 20:21:28 +0500
Subject: [PATCH] tests: fix async test

---
 test/k16/gx/beta/async_processor_test.cljc | 47 ++++++++++------------
 1 file changed, 21 insertions(+), 26 deletions(-)

diff --git a/test/k16/gx/beta/async_processor_test.cljc b/test/k16/gx/beta/async_processor_test.cljc
index 0b5ff2e..e07630b 100644
--- a/test/k16/gx/beta/async_processor_test.cljc
+++ b/test/k16/gx/beta/async_processor_test.cljc
@@ -20,8 +20,7 @@
 
 (def ^:export my-component-timeout
   {:gx/start {:gx/processor (fn [{:keys [props]}]
-                              @(p/delay 10000)
-                              props)
+                              (p/do (p/delay 10000) props))
               :gx/timeout 10}})
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
@@ -36,18 +35,12 @@
 
 (defn- run-check [s]
   (is (= {:foo :bar}
-         #?(:clj (-> (gx/failures s)
-                     :my-component
-                     :causes
-                     first
-                     :exception
-                     (ex-data))
-            :cljs (-> (gx/failures s)
-                      :my-component
-                      :causes
-                      first
-                      :exception
-                      (ex-data))))))
+         (-> (gx/failures s)
+             :my-component
+             :causes
+             first
+             :exception
+             (ex-data)))))
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
 (deftest async-rejected-component-test
@@ -66,15 +59,17 @@
     (test-async (gx/signal {:graph graph} :gx/start) run-check)))
 
 #_{:clj-kondo/ignore [:clojure-lsp/unused-public-var]}
-(deftest async-timeout-component-test
-  (let [graph {:my-component
-               {:gx/component
-                'k16.gx.beta.async-processor-test/my-component-timeout
-                :gx/props {:foo :bar}}}]
-    (is (= "Operation timed out."
-           (-> @(gx/signal {:graph graph} :gx/start)
-               (gx/failures)
-               :my-component
-               :causes
-               first
-               :title)))))
+#?(:clj
+   (deftest async-timeout-component-test
+     (let [graph {:my-component
+                  {:gx/component
+                   'k16.gx.beta.async-processor-test/my-component-timeout
+                   :gx/props {:foo :bar}}}]
+       (is (= "Operation timed out."
+              (-> @(gx/signal {:graph graph} :gx/start)
+                  (gx/failures)
+                  :my-component
+                  :causes
+                  first
+                  :title))))))
+