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 (run-all
(fn (fn
() ()
(console-log "[test] run-all start")
(reset! running true) (reset! running true)
(reset! results {}) (reset! results {:empty true})
(for-each (for-each
(fn (fn
(test) (test)
(let (let
((name (get test :name))) ((name (get test :name)))
(console-log (str "[test] === " name " ==="))
(reset! current (str "Running: " name)) (reset! current (str "Running: " name))
(reset! results (assoc (deref results) name "running")) (reset! results (assoc (deref results) name "running"))
(console-log "[test] calling reload-frame")
(reload-frame) (reload-frame)
(console-log "[test] reload-frame done, running actions")
(let (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 (when
test-ok test-ok
(reset! results (assoc (deref results) name "pass")))))) (reset! results (assoc (deref results) name "pass"))
(console-log (str "[test] PASS " name))))))
tests) tests)
(reset! running false) (reset! running false)
(reset! current "Done")))) (reset! current "Done")
(console-log "[test] run-all complete"))))
(div (div
(~tw :tokens "space-y-4") (~tw :tokens "space-y-4")
(div (div