From 46c642cf6d1f9b62018af01d3079c792ef308edf Mon Sep 17 00:00:00 2001
From: "alonso.torres" <alonso.torres@kaleidos.net>
Date: Thu, 14 May 2026 16:16:27 +0200
Subject: [PATCH] :bug: Fix broken test

---
 .../data/workspace_shortcuts_test.cljs        | 23 ++++++++++++-------
 1 file changed, 15 insertions(+), 8 deletions(-)

diff --git a/frontend/test/frontend_tests/data/workspace_shortcuts_test.cljs b/frontend/test/frontend_tests/data/workspace_shortcuts_test.cljs
index 4b0cd0a4bf..efafa722ff 100644
--- a/frontend/test/frontend_tests/data/workspace_shortcuts_test.cljs
+++ b/frontend/test/frontend_tests/data/workspace_shortcuts_test.cljs
@@ -19,12 +19,19 @@
        :code           code
        :preventDefault #(reset! prevented? true)})
 
+(defn- mock-emit!
+  [emitted]
+  (fn
+    ([] nil)
+    ([event] (swap! emitted conj event))
+    ([event & _more] nil)))
+
 (t/deftest display-guides-handler-detects-physical-keys
   (t/testing "US layout uses Ctrl+Quote"
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly false)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:ctrl? true :code "Quote" :prevented? prevented?})))
       (t/is (true? @prevented?))
@@ -34,7 +41,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly false)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:ctrl? true :shift? true :code "Backslash" :prevented? prevented?})))
       (t/is (true? @prevented?))
@@ -44,7 +51,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly true)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:meta? true :code "Quote" :prevented? prevented?})))
       (t/is (true? @prevented?))
@@ -54,7 +61,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly true)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:meta? true :shift? true :code "Backslash" :prevented? prevented?})))
       (t/is (true? @prevented?))
@@ -64,7 +71,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly true)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:ctrl? true :code "Quote" :prevented? prevented?})))
       (t/is (false? @prevented?))
@@ -74,7 +81,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly true)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:meta? true :shift? true :code "Quote" :prevented? prevented?})))
       (t/is (false? @prevented?))
@@ -84,7 +91,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly false)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:code "Quote" :prevented? prevented?}))
         (shortcuts/on-display-guides-keydown
@@ -96,7 +103,7 @@
     (let [prevented? (atom false)
           emitted    (atom [])]
       (with-redefs [cf/check-platform? (constantly false)
-                    st/emit! #(swap! emitted conj %)]
+                    st/emit! (mock-emit! emitted)]
         (shortcuts/on-display-guides-keydown
          (keyboard-event {:ctrl? true :shift? true :code "Quote" :prevented? prevented?}))
         (shortcuts/on-display-guides-keydown