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

Conformance inc1: JVM-certify the corpus against reference Clojure

Browse source 
The corpus carried hand-written :expected values — a regression suite but a weak
spec (it checked jolt against its authors, not against Clojure). certify.clj runs
every corpus row's :actual and :expected through reference JVM Clojure 1.12.5 (fresh
user ns per case, output/stdin sunk, 5s per-case watchdog) and compares with =.

Result: of ~2487 vanilla-certifiable rows, 2416 match real Clojure exactly. The 71
divergences are all classified in known-divergences.edn — mostly deliberate
jolt-specific/host-model deltas (all-double numerics, snapshot concurrency, no-JVM
host model, jolt reader features, printer, strictness), plus 4 genuine bugs filed
as beads (jolt-l8e8 ex-message, jolt-hc35 munge, jolt-pqio print-nil,
jolt-2507 bounded-count).

certify-test.janet gates it: skips without clojure on PATH, else fails only on a
NEW (unclassified) divergence or stale allowlist entry; flaky timing-dependent
cases (future-cancel) tolerated either way. Full gate 155 files 0 failed.
This commit is contained in:
Yogthos 2026-06-20 09:38:31 -04:00
parent d0fce540ed
commit b520eefa7a
4 changed files with 528 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
test/conformance/certify-test.janet Normal file
View file

@ -0,0 +1,42 @@
# Conformance inc1 (jolt-xsfe) — gate wrapper for the JVM corpus certifier.
#
# test/conformance/certify.clj evaluates every test/chez/corpus.edn row through
# reference JVM Clojure and checks jolt's hand-written :expected against what real
# Clojure produces. Divergences are classified in test/conformance/known-divergences.edn
# (deliberate jolt-specific / host-model deltas + tracked bugs); the certifier exits
# nonzero only on a NEW (unclassified) divergence or a stale allowlist entry.
#
# This wrapper runs it in the Janet gate and skips cleanly when `clojure` (JVM) is
# not installed — same pattern as the chez tests skipping without `chez`.
#
# janet test/conformance/certify-test.janet
(defn- have-clojure? []
(def p (try (os/spawn ["clojure" "--version"] :p {:out :pipe :err :pipe}) ([_] nil)))
(if (nil? p) false
(do (def out (ev/read (p :out) :all)) (def err (ev/read (p :err) :all))
(zero? (os/proc-wait p)))))
(unless (have-clojure?)
(print "clojure (JVM) not on PATH — skipping corpus certification")
(os/exit 0))
(def proc (os/spawn ["clojure" "-M" "test/conformance/certify.clj"] :p {:out :pipe :err :pipe}))
(def out (string (ev/read (proc :out) :all)))
(def err (string (or (ev/read (proc :err) :all) "")))
(def code (os/proc-wait proc))
# Echo the summary lines so the gate log shows the certification status.
(each line (string/split "\n" out)
(when (or (string/find "certif" line) (string/find "allowlist" line)
(string/find "NEW" line) (string/find "STALE" line) (string/find "DIVERGENT" line))
(print line)))
(when (not= code 0)
(eprint "corpus certification FAILED (new/stale divergence vs reference Clojure):")
(eprint out)
(unless (= "" err) (eprint err))
(os/exit 1))
(print "corpus certification: OK (all divergences classified)")
(os/exit 0)