33eff7c7d8
Rename src/jolt -> stdlib (the runtime-loaded layer; jolt-core stays the seed-baked layer) and update the loader / emit-image / doc paths. Drop dead code: the spike/ experiments, the duplicate clojuredocs-export.edn (json moves to tools/), the Janet-era jolt.http binding, and the orphaned persistent_vector.clj whose ns/path didn't even match. Strip porting residue from comments and docstrings across host/chez, jolt-core, stdlib, tests, and docs: internal issue ids, "Phase N" markers, and the "vs Janet" historical exposition, leaving present-tense descriptions and the real JVM-Clojure semantic contrasts. Same pass over the corpus suite labels. The seed is unchanged (docstrings/comments aren't emitted), so the self-host fixpoint and corpus are untouched. Port tools/spec_coverage.py off the dead janet probe to bin/joltc and regenerate coverage.md; drop the dead :host/janet rule from certify.clj and regenerate the conformance profile. Add docs/host-interop.md (the JVM shims and how to register your own host class from a library) and a writing-style note in CLAUDE.md. Stabilize the four racy concurrency corpus cases (future-cancel and agent send/send-off): give the future a sleeping body and the agent a slow action, so cancel reliably catches an in-flight future and deref reliably reads the pre-update snapshot. They certify deterministically now, so drop their :flaky allowlist entries and the orphaned legend.
68 lines
2.9 KiB
Scheme
68 lines
2.9 KiB
Scheme
;; Tests for the Jolt value model on Chez (nil/truthiness, interned keywords,
|
|
;; symbols, exactness-aware =, hashing). Run from repo root:
|
|
;; chez --script test/chez/values-test.ss
|
|
(import (chezscheme))
|
|
(load "host/chez/values.ss")
|
|
|
|
(define total 0)
|
|
(define fails 0)
|
|
(define (ok name pred)
|
|
(set! total (+ total 1))
|
|
(unless pred (set! fails (+ fails 1)) (printf "FAIL: ~a\n" name)))
|
|
|
|
;; nil distinct from #f and '()
|
|
(ok "nil not #f" (not (eq? jolt-nil #f)))
|
|
(ok "nil not '()" (not (eq? jolt-nil '())))
|
|
(ok "nil? jolt-nil" (jolt-nil? jolt-nil))
|
|
(ok "nil? not on #f" (not (jolt-nil? #f)))
|
|
|
|
;; truthiness: only nil and false falsey
|
|
(ok "nil falsey" (not (jolt-truthy? jolt-nil)))
|
|
(ok "false falsey" (not (jolt-truthy? #f)))
|
|
(ok "true truthy" (jolt-truthy? #t))
|
|
(ok "0 truthy" (jolt-truthy? 0))
|
|
(ok "empty-str truthy" (jolt-truthy? ""))
|
|
(ok "empty-list truthy" (jolt-truthy? '()))
|
|
|
|
;; keywords interned -> identity
|
|
(ok "kw eq" (eq? (keyword #f "foo") (keyword #f "foo")))
|
|
(ok "kw ns eq" (eq? (keyword "a" "foo") (keyword "a" "foo")))
|
|
(ok "kw diff ns" (not (eq? (keyword "a" "foo") (keyword #f "foo"))))
|
|
(ok "kw?" (keyword? (keyword #f "x")))
|
|
(ok "kw not sym" (not (jolt-symbol? (keyword #f "x"))))
|
|
|
|
;; symbols NOT interned but jolt= by ns/name
|
|
(ok "sym not eq" (not (eq? (jolt-symbol #f "x") (jolt-symbol #f "x"))))
|
|
(ok "sym jolt=" (jolt= (jolt-symbol #f "x") (jolt-symbol #f "x")))
|
|
(ok "sym diff name" (not (jolt= (jolt-symbol #f "x") (jolt-symbol #f "y"))))
|
|
(ok "sym?" (jolt-symbol? (jolt-symbol "ns" "n")))
|
|
|
|
;; numbers: exactness-aware = (Clojure semantics)
|
|
(ok "1 = 1" (jolt= 1 1))
|
|
(ok "1 not= 1.0" (not (jolt= 1 1.0)))
|
|
(ok "1.0 = 1.0" (jolt= 1.0 1.0))
|
|
(ok "ratio =" (jolt= 1/2 1/2))
|
|
(ok "bigint=int exact" (jolt= 2 (expt 2 1)))
|
|
(ok "= variadic" (jolt= 3 3 3))
|
|
(ok "= variadic false" (not (jolt= 3 3 4)))
|
|
|
|
;; strings / chars
|
|
(ok "str =" (jolt= "ab" "ab"))
|
|
(ok "str !=" (not (jolt= "ab" "ac")))
|
|
(ok "char =" (jolt= #\a #\a))
|
|
|
|
;; hashing consistent with =
|
|
(ok "hash kw stable" (= (jolt-hash (keyword #f "k")) (jolt-hash (keyword #f "k"))))
|
|
(ok "hash sym stable" (= (jolt-hash (jolt-symbol #f "k")) (jolt-hash (jolt-symbol #f "k"))))
|
|
(ok "hash 1 != 1.0" (not (= (jolt-hash 1) (jolt-hash 1.0))))
|
|
(ok "hash str stable" (= (jolt-hash "abc") (jolt-hash "abc")))
|
|
|
|
;; regression: keyword intern key must not collide across ns/name boundary
|
|
(ok "kw no boundary collide" (not (eq? (keyword "a" "b/c") (keyword "a/b" "c"))))
|
|
;; regression: jolt-hash must not throw on non-finite floats
|
|
(ok "hash +inf ok" (number? (jolt-hash +inf.0)))
|
|
(ok "hash +nan ok" (number? (jolt-hash +nan.0)))
|
|
(ok "hash inf != exact" (not (= (jolt-hash +inf.0) (jolt-hash 0))))
|
|
|
|
(printf "values-test: ~a/~a passed\n" (- total fails) total)
|
|
(exit (if (> fails 0) 1 0))
|