coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions 7 Packages Projects Releases Wiki Activity

Add console.log tracing to test runner for debugging

Browse Source 
Logs at every step: run-all start, test name, reload-frame, wait-for-el,
actions done, PASS/FAIL, run-all complete.

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-17 22:32:26 +00:00
parent 017451370f
commit 25db89a96c
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
sx/sx/applications/htmx/runner.sx
View File

@@ -108,24 +108,30 @@
(run-all
(fn
()
(console-log "[test] run-all start")
(reset! running true)
(reset! results {})
(reset! results {:empty true})
(for-each
(fn
(test)
(let
((name (get test :name)))
(console-log (str "[test] === " name " ==="))
(reset! current (str "Running: " name))
(reset! results (assoc (deref results) name "running"))
(console-log "[test] calling reload-frame")
(reload-frame)
(console-log "[test] reload-frame done, running actions")
(let
((test-ok (cek-try (fn () (let ((actions (get test :actions))) (when (not (empty? actions)) (let ((first-sel (nth (first actions) 1))) (when (string? first-sel) (let ((found (wait-for-el first-sel 15))) (when (nil? found) (error (str "Timeout waiting for: " first-sel))))))) (for-each run-action actions)) true) (fn (e) (do (reset! results (assoc (deref results) name "fail")) (console-log (str "FAIL " name ": " e)) false)))))
((test-ok (cek-try (fn () (let ((actions (get test :actions))) (when (not (empty? actions)) (let ((first-sel (nth (first actions) 1))) (when (string? first-sel) (console-log (str "[test] wait-for-el: " first-sel)) (let ((found (wait-for-el first-sel 15))) (when (nil? found) (error (str "Timeout waiting for: " first-sel))) (console-log (str "[test] found element: " first-sel)))))) (for-each run-action actions)) (console-log (str "[test] actions done for " name)) true) (fn (e) (do (reset! results (assoc (deref results) name "fail")) (console-log (str "[test] FAIL " name ": " e)) false)))))
(when
test-ok
(reset! results (assoc (deref results) name "pass"))))))
(reset! results (assoc (deref results) name "pass"))
(console-log (str "[test] PASS " name))))))
tests)
(reset! running false)
(reset! current "Done"))))
(reset! current "Done")
(console-log "[test] run-all complete"))))
(div
(~tw :tokens "space-y-4")
(div