c9316dd372
0a (host/chez/values.ss): Jolt value model on Chez — nil sentinel distinct from #f/'(), interned keywords, ns+meta symbols, exactness-aware = and consistent hash. Chez numeric tower gives ratios/bignums free. 33/33 tests. 0b (test/chez/): extract test/spec/*.janet defspec tables into corpus.edn (2655 cases, valid as both EDN and Janet data), and a runner that drives ANY jolt binary via the CLI boundary with per-case subprocess isolation. Pluggable target (JOLT_BIN) so the same corpus gates every host. Baseline vs Janet build/jolt: 2641/2655, 14 known CLI divergences allowlisted; gate fails only on NEW ones.
60 lines
2.4 KiB
Scheme
60 lines
2.4 KiB
Scheme
;; Phase 0a tests — Jolt value model on Chez. 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")))
|
|
|
|
(printf "values-test: ~a/~a passed\n" (- total fails) total)
|
|
(exit (if (> fails 0) 1 0))
|