giles
ff9abe3ae6
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 24s
Phase 3 — bidirectional type checker — is fully ticked (short-decl
was already implemented). Phase 4 starts here.
lib/go/eval.sx single judgment:
(go-eval ENV EXPR) → VALUE | (list :eval-error TAG ...)
ENV is an association list of (NAME VALUE) bindings — same shape as
the type checker's ctx, but the entries are runtime values. Values
are represented directly in SX: integers/floats as SX numbers,
strings as SX strings, booleans as true/false, nil as nil. Composite
values (slices/maps/structs/pointers/channels) arrive in later slices.
First-slice coverage:
* go-env-empty / -lookup / -extend
* Literal decoding:
decimal (with underscores)
hex (0x.. / 0X..)
oct (0o.. / 0O..)
bin (0b.. / 0B..)
via go-hex-digit-value (explicit char equality — SX's nth on
strings returns single-char strings, not numeric codes; the
arithmetic-on-char-codes pattern from the OCaml kernel ports
doesn't work here).
* Identifier lookup with predeclared true / false / nil.
* Binops: + - * / and the six comparison ops and && / ||.
* Errors as (:eval-error TAG ...) sentinels.
Statements (block / return / short-decl / assign), control flow
(if / for), and function application / closures arrive in subsequent
slices.
eval 25/25, total 402/402.
Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
96 lines
3.5 KiB
Plaintext
96 lines
3.5 KiB
Plaintext
;; Go evaluator tests.
|
|
|
|
(define go-eval-test-count 0)
|
|
(define go-eval-test-pass 0)
|
|
(define go-eval-test-fails (list))
|
|
|
|
(define
|
|
go-eval-test
|
|
(fn
|
|
(name actual expected)
|
|
(set! go-eval-test-count (+ go-eval-test-count 1))
|
|
(if
|
|
(= actual expected)
|
|
(set! go-eval-test-pass (+ go-eval-test-pass 1))
|
|
(append! go-eval-test-fails {:name name :expected expected :actual actual}))))
|
|
|
|
(define gtev (fn (env src) (go-eval env (go-parse src))))
|
|
|
|
;; ── env ──────────────────────────────────────────────────────────
|
|
(go-eval-test
|
|
"env: empty lookup returns nil"
|
|
(go-env-lookup go-env-empty "x")
|
|
nil)
|
|
|
|
(go-eval-test
|
|
"env: extend then lookup"
|
|
(go-env-lookup (go-env-extend go-env-empty "x" 42) "x")
|
|
42)
|
|
|
|
;; ── literals ────────────────────────────────────────────────────
|
|
(go-eval-test "lit: 42 → 42" (gtev go-env-empty "42") 42)
|
|
|
|
(go-eval-test "lit: 0 → 0" (gtev go-env-empty "0") 0)
|
|
|
|
(go-eval-test "lit: 0xFF → 255" (gtev go-env-empty "0xFF") 255)
|
|
|
|
(go-eval-test "lit: 0b1010 → 10" (gtev go-env-empty "0b1010") 10)
|
|
|
|
(go-eval-test "lit: 0o17 → 15" (gtev go-env-empty "0o17") 15)
|
|
|
|
(go-eval-test
|
|
"lit: underscore separator 1_000 → 1000"
|
|
(gtev go-env-empty "1_000")
|
|
1000)
|
|
|
|
(go-eval-test "lit: string" (gtev go-env-empty "\"hello\"") "hello")
|
|
|
|
;; ── predeclared ─────────────────────────────────────────────────
|
|
(go-eval-test "var: true" (gtev go-env-empty "true") true)
|
|
(go-eval-test "var: false" (gtev go-env-empty "false") false)
|
|
(go-eval-test "var: nil" (gtev go-env-empty "nil") nil)
|
|
|
|
;; ── variable lookup ─────────────────────────────────────────────
|
|
(go-eval-test
|
|
"var: bound x → 5"
|
|
(go-eval (go-env-extend go-env-empty "x" 5) (go-parse "x"))
|
|
5)
|
|
|
|
(go-eval-test
|
|
"var: unbound y → :eval-error"
|
|
(gtev go-env-empty "y")
|
|
(list :eval-error :unbound "y"))
|
|
|
|
;; ── binary ops ─────────────────────────────────────────────────
|
|
(go-eval-test "binop: 1 + 2 → 3" (gtev go-env-empty "1 + 2") 3)
|
|
(go-eval-test "binop: 10 - 4 → 6" (gtev go-env-empty "10 - 4") 6)
|
|
(go-eval-test "binop: 3 * 7 → 21" (gtev go-env-empty "3 * 7") 21)
|
|
(go-eval-test "binop: 42 / 7 → 6" (gtev go-env-empty "42 / 7") 6)
|
|
(go-eval-test
|
|
"binop: 2 + 3 * 4 → 14 (prec)"
|
|
(gtev go-env-empty "2 + 3 * 4")
|
|
14)
|
|
(go-eval-test
|
|
"binop: a + b uses env"
|
|
(go-eval
|
|
(go-env-extend (go-env-extend go-env-empty "a" 3) "b" 4)
|
|
(go-parse "a + b"))
|
|
7)
|
|
|
|
(go-eval-test "binop: 1 < 2 → true" (gtev go-env-empty "1 < 2") true)
|
|
(go-eval-test "binop: 5 == 5 → true" (gtev go-env-empty "5 == 5") true)
|
|
(go-eval-test "binop: 5 != 5 → false" (gtev go-env-empty "5 != 5") false)
|
|
(go-eval-test
|
|
"binop: true && false → false"
|
|
(gtev go-env-empty "true && false")
|
|
false)
|
|
(go-eval-test
|
|
"binop: false || true → true"
|
|
(gtev go-env-empty "false || true")
|
|
true)
|
|
|
|
;; ── report ──────────────────────────────────────────────────────
|
|
(define
|
|
go-eval-test-summary
|
|
(str "eval " go-eval-test-pass "/" go-eval-test-count))
|