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

Test runner: increase wait times for iframe htmx activation

Browse Source 
- reload-frame: wait 1500ms after wait-boot (was 500ms)
- wait-for-el: poll up to 25 tries / 5s (was 15 / 3s)
- Added log after wait-boot confirming iframe ready

Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
This commit is contained in:
giles
2026-04-18 06:58:38 +00:00
parent 673be85743
commit b5387c069f
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
shared/static/wasm/sx/hs-parser.sxbc
View File

File diff suppressed because one or more lines are too long

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

@@ -32,7 +32,8 @@
(host-call (host-get w "location") "reload")
(hs-wait 1000)
(wait-boot)
(hs-wait 500))))
(console-log "[test] iframe ready, waiting for htmx activation")
(hs-wait 1500))))
(wait-for-el
(fn
(sel max-tries)
@@ -107,7 +108,7 @@
(let ((first-sel (nth (first actions) 1)))
(when (string? first-sel)
(console-log (str "[test] wait-for: " first-sel))
(let ((found (wait-for-el first-sel 15)))
(let ((found (wait-for-el first-sel 25)))
(when (nil? found) (set! fail-msg (str "Timeout: " first-sel)))))))
(when (nil? fail-msg)
(for-each (fn (action) (when (nil? fail-msg) (let ((err (run-action action))) (when (string? err) (set! fail-msg err))))) actions))