Async token event tests working

frontend/test/token_tests/helpers/state.cljs

@@ -0,0 +1,38 @@
+(ns token-tests.helpers.state
+  (:require
+   [beicon.v2.core :as rx]
+   [potok.v2.core :as ptk]))
+
+(defn stop-on
+  "Helper function to be used with async version of run-store.
+
+  Will stop the execution after event with `event-type` has completed."
+  [event-type]
+  (fn [stream]
+    (->> stream
+         (rx/tap #(prn (ptk/type %)))
+         (rx/filter #(ptk/type? event-type %)))))
+
+;; Support for async events in tests
+;; https://chat.kaleidos.net/penpot-partners/pl/tz1yoes3w3fr9qanxqpuhoz3ch
+(defn run-store
+  "Async version of `frontend-tests.helpers.state/run-store`."
+  ([store done events completed-cb]
+   (run-store store done events completed-cb nil))
+  ([store done events completed-cb stopper]
+   (let [stream (ptk/input-stream store)]
+     (->> stream
+          (rx/take-until (if stopper
+                           (stopper stream)
+                           (rx/filter #(= :the/end %) stream)))
+          (rx/last)
+          (rx/tap (fn []
+                    (completed-cb @store)))
+          (rx/subs! (fn [_] (done))
+                    (fn [cause]
+                      (js/console.log "[error]:" cause))
+                    (fn [_]
+                      (js/console.log "[complete]"))))
+     (doall (for [event events]
+              (ptk/emit! store event)))
+     (ptk/emit! store :the/end))))