simon/jolt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ci: fix the one red test on CI runners; document the gate + porting gotchas

Browse source 
nrepl-test was CI's only failure: the server subprocess ran main.janet from
source, paying the full compile-mode init, which outran the 5s connect poll
on slow runners (locally it always won the race). The test now prefers
build/jolt — its ctx is baked at build time, so it accepts in ~20ms and CI
builds it anyway — falls back to source, polls up to 60s under a 90s
watchdog, and dumps the server's stderr when startup fails so the next CI
failure is diagnosable.

CLAUDE.md's placeholder sections become real: build/test commands with the
run-the-gate-with-a-real-exit-code protocol (a piped gate once shipped masked
spec failures), the seed/overlay/tier architecture sketch, and the porting
gotchas that have each bitten at least once (leaf verification, stub-breaks-
self-recursion, tier macro ordering, ref-get vs get on attached-ops wrappers,
:jolt/type map keys, expander-called fns, canonical-port policy) — previously
only in local bd memories.
This commit is contained in:
Yogthos 2026-06-10 16:59:12 -04:00
parent 1d373299a4
commit b1486d58a0
2 changed files with 79 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

24
test/integration/nrepl-test.janet
View file

@ -10,20 +10,30 @@
(def port "17888")
# Watchdog: never let a hang stall CI — bail out after 30s.
(ev/spawn (ev/sleep 30) (eprint "nrepl-test: watchdog fired (possible hang)") (os/exit 1))
# Watchdog: never let a hang stall CI — bail out after 90s.
(ev/spawn (ev/sleep 90) (eprint "nrepl-test: watchdog fired (possible hang)") (os/exit 1))
(print "Starting jolt.nrepl server subprocess on port " port " ...")
(def proc (os/spawn ["janet" "src/jolt/main.janet" "nrepl" port] :p {:out :pipe :err :pipe}))
# Prefer the built executable (its ctx is baked at build time, ~20ms start);
# source mode pays the full compile-mode init, which on a slow CI runner can
# outrun a short poll window.
(def server-cmd
(if (os/stat "build/jolt")
["build/jolt" "nrepl" port]
["janet" "src/jolt/main.janet" "nrepl" port]))
(print "Starting jolt.nrepl server subprocess on port " port " (" (first server-cmd) ") ...")
(def proc (os/spawn server-cmd :p {:out :pipe :err :pipe}))
# Wait until the server accepts connections (poll up to ~5s).
# Wait until the server accepts connections (poll up to ~60s — CI headroom).
(var ready false)
(var tries 0)
(while (and (not ready) (< tries 50))
(while (and (not ready) (< tries 600))
(let [r (protect (net/connect "127.0.0.1" port))]
(if (r 0) (do (:close (r 1)) (set ready true))
(do (ev/sleep 0.1) (++ tries)))))
(assert ready "nREPL server did not start")
(unless ready
# Surface the server's stderr so a CI failure is diagnosable.
(eprint "server stderr: " (string (ev/read (proc :err) :all)))
(assert false "nREPL server did not start"))
(def ctx (init-cached))
(ctx-set-current-ns ctx "user")