giles
b693854dc4
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 26s
Phase 5 (goroutines + channels) opens.
lib/go/sched.sx is the **independent implementation** referenced by
plans/lib-guest-scheduler.md — the first-consumer cut whose realised
shape will inform the eventual sister kit.
Channel representation:
(list :go-chan SEND-FN RECV-FN CLOSED?-FN CLOSE!-FN)
Each closure shares a mutable `buf` (a list mutated via append! and
set!) and a `closed` flag. Channel identity is closure-instance —
two `make()` calls produce distinct values per Go spec § Channel types.
Primitive API in sched.sx:
go-make-chan / go-chan? / go-chan-send! / go-chan-recv! /
go-chan-closed? / go-chan-close!
Eval integration in eval.sx:
* `make` and `close` added as builtins. v0 `make()` takes no args
and returns an unbounded-buffer channel.
* `:send` stmt → go-chan-send! on the channel.
* Unary `<-` recv on channel values → go-chan-recv!. `:empty`
sentinel converted to nil (stand-in for blocking semantics).
* `:go expr` → synchronous eval (v0 limitation, see sched.sx
header).
**v0 concurrency model — synchronous goroutines.** SX doesn't expose
first-class continuations to guest code, so v0 runs `go f()`
immediately and depends on the spawned goroutine running to
completion before the main goroutine receives. This is the right
semantics for the simple producer/consumer patterns covered here.
True preemption with blocking send/recv is Phase 5b — requires either
a CEK-style trampolining eval rewrite or kit-level continuation
support. Logged in sched.sx header and in the sister-plan diary.
Runtime suite (12 tests):
* 6 direct API tests: identity, FIFO order, closed-flag
* 6 source-level: make + send + recv, go ping-pong, close,
multi-goroutine fan-in, worker-with-result
Sister-plan scheduler diary updated with the channel-as-closure-
bundle insight and the v0 synchronous-spawn caveat.
runtime 12/12, total 469/469.
Co-Authored-By: Claude Opus 4.7 (1M context) <noreply@anthropic.com>
109 lines
3.2 KiB
Plaintext
109 lines
3.2 KiB
Plaintext
;; Go runtime tests — goroutines + channels.
|
|
|
|
(define go-rt-test-count 0)
|
|
(define go-rt-test-pass 0)
|
|
(define go-rt-test-fails (list))
|
|
|
|
(define
|
|
go-rt-test
|
|
(fn
|
|
(name actual expected)
|
|
(set! go-rt-test-count (+ go-rt-test-count 1))
|
|
(if
|
|
(= actual expected)
|
|
(set! go-rt-test-pass (+ go-rt-test-pass 1))
|
|
(append! go-rt-test-fails {:name name :expected expected :actual actual}))))
|
|
|
|
;; ── channel primitives (direct API, no source parsing) ─────────
|
|
(go-rt-test "chan: make returns a chan value" (go-chan? (go-make-chan)) true)
|
|
|
|
(go-rt-test
|
|
"chan: distinct channels have distinct identity"
|
|
(= (go-make-chan) (go-make-chan))
|
|
false)
|
|
|
|
(go-rt-test
|
|
"chan: send + recv round-trip"
|
|
(let
|
|
((ch (go-make-chan)))
|
|
(go-chan-send! ch 42)
|
|
(go-chan-recv! ch))
|
|
42)
|
|
|
|
(go-rt-test
|
|
"chan: empty recv returns :empty marker"
|
|
(let ((ch (go-make-chan))) (go-chan-recv! ch))
|
|
:empty)
|
|
|
|
(go-rt-test
|
|
"chan: FIFO order"
|
|
(let
|
|
((ch (go-make-chan)))
|
|
(go-chan-send! ch 1)
|
|
(go-chan-send! ch 2)
|
|
(go-chan-send! ch 3)
|
|
(list (go-chan-recv! ch) (go-chan-recv! ch) (go-chan-recv! ch)))
|
|
(list 1 2 3))
|
|
|
|
(go-rt-test
|
|
"chan: closed? flag flips"
|
|
(let
|
|
((ch (go-make-chan)))
|
|
(let
|
|
((before (go-chan-closed? ch)))
|
|
(go-chan-close! ch)
|
|
(list before (go-chan-closed? ch))))
|
|
(list false true))
|
|
|
|
;; ── source-level: make / send / recv / close ───────────────────
|
|
(go-rt-test
|
|
"src: ch := make() returns chan"
|
|
(go-chan?
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "ch := make()")))))
|
|
(go-env-lookup env "ch")))
|
|
true)
|
|
|
|
(go-rt-test
|
|
"src: ch <- 5 then <-ch = 5"
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "ch := make()") (go-parse "ch <- 5")))))
|
|
(go-eval env (go-parse "<-ch")))
|
|
5)
|
|
|
|
(go-rt-test
|
|
"src: go + chan ping-pong"
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "func sender(c chan int) { c <- 99 }") (go-parse "ch := make()") (go-parse "go sender(ch)")))))
|
|
(go-eval env (go-parse "<-ch")))
|
|
99)
|
|
|
|
(go-rt-test
|
|
"src: close(ch) marks it closed"
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "ch := make()") (go-parse "close(ch)")))))
|
|
(go-chan-closed? (go-env-lookup env "ch")))
|
|
true)
|
|
|
|
(go-rt-test
|
|
"src: multiple goroutines feeding one channel"
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "func push(c chan int, v int) { c <- v }") (go-parse "ch := make()") (go-parse "go push(ch, 1)") (go-parse "go push(ch, 2)") (go-parse "go push(ch, 3)")))))
|
|
(list
|
|
(go-eval env (go-parse "<-ch"))
|
|
(go-eval env (go-parse "<-ch"))
|
|
(go-eval env (go-parse "<-ch"))))
|
|
(list 1 2 3))
|
|
|
|
(go-rt-test
|
|
"src: worker pattern — send sum back"
|
|
(let
|
|
((env (go-eval-program go-env-builtins (list (go-parse "func work(c chan int, a int, b int) { c <- a + b }") (go-parse "result := make()") (go-parse "go work(result, 7, 13)")))))
|
|
(go-eval env (go-parse "<-result")))
|
|
20)
|
|
|
|
;; ── report ─────────────────────────────────────────────────────
|
|
(define
|
|
go-rt-test-summary
|
|
(str "runtime " go-rt-test-pass "/" go-rt-test-count))
|