2 Commits

Author	SHA1	Message	Date
giles	4504b8ae5e	test-runner: extract harness kit + migrate Kernel (7 files, 84 LoC saved) ... lib/guest/test-runner.sx — per-suite mutable state {:pass :fail :fails} + refl-test recorder + refl-test-report. Replaces the identical 4-define harness that appears in 142+ test files across the codebase. Each migrated file goes from: (define X-test-pass 0) (define X-test-fail 0) (define X-test-fails (list)) (define X-test (fn (name actual expected) (if (= actual expected) (set! X-test-pass (+ X-test-pass 1)) (begin ...)))) ;; ... tests ... (define X-tests-run! (fn () {:total ... :passed ... :failed ... :fails ...})) to: (define X-suite (refl-make-test-suite)) (define X-test (fn (n a e) (refl-test X-suite n a e))) ;; ... tests ... (define X-tests-run! (fn () (refl-test-report X-suite))) All 322 Kernel tests pass unchanged (parse 62, eval 36, vau 38, standard 127, encap 19, hygiene 26, metacircular 14). 84 LoC removed. Migration is mechanical (the prefix is the only difference between suites); /tmp/migrate_harness.py drives the regex. Other guests (Tcl, Smalltalk, APL, CL, Erlang, Haskell, etc.) migrated in subsequent commits.	2026-05-12 19:39:45 +00:00
giles	d5d77a3611	kernel: type predicates + metacircular demo + map/filter/reduce fix [shapes-reflective] ... Five type predicates (number?, string?, list?, boolean?, symbol?). New tests/metacircular.sx: m-eval defined in Kernel walks expressions itself, recursing on applicative-call args and delegating to host eval only for operatives and symbol lookup. 14 demo tests. The demo surfaced a real bug: map/filter/reduce called kernel-combine on applicative head-vals directly, which re-evaluates already- evaluated element values; nested-list elements crashed. Fix: extracted knl-apply-op (unwrap-applicative-or-pass-through) and use it in all three combinators before kernel-combine. Mirrors apply's approach. Added knl-apply-op as a proposed entry in the reflective combiner.sx API. 322 tests total.	2026-05-11 21:27:23 +00:00