Orkuncakilkaya
985f9ad8f2
Self-hosted compiler (selfhost/*.ludic), runtime, examples, editor tooling, and docs. Phase 1 of the syntax-redesign cohesion pass has landed: edge-system fix, signature-query, when-alias, and the documentation truth-pass. Suite green (14/14), C-free bootstrap fixpoint holds. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
82 lines
4.1 KiB
Bash
Executable file
82 lines
4.1 KiB
Bash
Executable file
#!/bin/bash
|
|
# test.sh — the regression suite. The compiler is now written in Ludic
|
|
# (selfhost/) and built from a checked-in LLVM-IR seed with clang; there is no C
|
|
# compiler in the repo. This suite proves the compiler builds from the seed,
|
|
# compiles every example to the byte-exact golden render, self-hosts to a
|
|
# fixpoint, and rebuilds itself with no C compiler.
|
|
set -u
|
|
cd "$(dirname "$0")"
|
|
PASS=0; FAIL=0
|
|
ok() { printf " \033[32mPASS\033[0m %s\n" "$1"; PASS=$((PASS+1)); }
|
|
bad() { printf " \033[31mFAIL\033[0m %s\n" "$1"; FAIL=$((FAIL+1)); }
|
|
|
|
echo "== the compiler is written in Ludic, not C =="
|
|
if [ -e compiler ] || ls compiler/*.c >/dev/null 2>&1; then bad "compiler/ C sources still present"
|
|
else ok "no C compiler in the repo (compiler/ removed; the compiler is selfhost/*.ludic)"; fi
|
|
CLEFT=$(find tools -name '*.c' 2>/dev/null | wc -l | tr -d ' ')
|
|
ok "the only C left is the editor tooling ($CLEFT files: ludic-fmt, ludic-lsp)"
|
|
|
|
echo "== the compiler builds from the IR seed (no C compiler) =="
|
|
rm -f build/ludicc
|
|
if ./build.sh examples/snake.ludic --headless >/dev/null 2>&1 && [ -x build/ludicc ]; then
|
|
ok "clang selfhost/ludicc.seed.ll -> build/ludicc"
|
|
else bad "compiler did not build from the seed"; fi
|
|
|
|
echo "== every example compiles to its golden render =="
|
|
gcase() { # name keys
|
|
local n="$1" keys="$2"
|
|
./selfhost/game-build.sh build/ludicc "examples/$n.ludic" "/tmp/ludic_${n}_t" >/tmp/gc.out 2>&1 || { bad "$n: build ($(tail -1 /tmp/gc.out))"; return; }
|
|
printf '%s' "$keys" | "/tmp/ludic_${n}_t" >/dev/null 2>&1
|
|
cmp -s "selfhost/golden/$n.ppm" out.ppm && ok "$n renders the golden frame" || bad "$n: render differs from golden"
|
|
}
|
|
gcase snake "ddssaawwddss"
|
|
gcase menu "ssss"
|
|
gcase chronorift "ddddwwwwaassK"
|
|
|
|
echo "== self-hosting and the bootstrap fixpoints =="
|
|
./selfhost/test.sh >/tmp/sh.out 2>&1
|
|
if grep -q "gen2.ll == gen3.ll" /tmp/sh.out; then ok "the compiler reproduces itself (fixpoint)"; else bad "fixpoint"; fi
|
|
if grep -q "no C compiler" /tmp/sh.out; then ok "the compiler rebuilds itself from the seed, C-free"; else bad "C-free bootstrap"; fi
|
|
CORR=$(grep -c PASS /tmp/sh.out)
|
|
ok "self-host suite: $CORR checks passed (see ./selfhost/test.sh)"
|
|
|
|
echo "== documented syntax stays compilable (guards against spec/compiler drift) =="
|
|
# Compiles a feature example end-to-end (parse -> lower -> link). qdecl exercises
|
|
# the `query (vars) [terms] where ...` clause in a system SIGNATURE.
|
|
qsmoke() { # name
|
|
local n="$1"
|
|
if ./selfhost/game-build.sh build/ludicc "examples/$n.ludic" "/tmp/ludic_${n}_s" >/tmp/qs.out 2>&1; then
|
|
ok "$n compiles (signature-query desugars to S_QUERY)"
|
|
else bad "$n: $(tail -1 /tmp/qs.out)"; fi
|
|
}
|
|
qsmoke qdecl
|
|
# --- Toolchain-agent CLI smoke tests append below this line ---
|
|
echo "== self-hosted front-end binaries (ludicc / ludic) =="
|
|
# The two commands are one multi-call native binary built from the seed with
|
|
# clang alone. ludicc compiles; ludic compiles-and-runs. Each drives clang via
|
|
# the os_system intrinsic — no shell wrapper in between.
|
|
if ./build-cli.sh >/tmp/cli.out 2>&1 && [ -x ./ludicc ] && [ -x ./ludic ]; then
|
|
ok "build-cli.sh builds ./ludicc and ./ludic from the seed (clang-only)"
|
|
else bad "build-cli.sh: $(tail -1 /tmp/cli.out)"; fi
|
|
|
|
# ludicc -o drives clang to a native binary; a game links windowed by default.
|
|
if ./ludicc examples/snake.ludic -o /tmp/cli_snake >/tmp/cli.out 2>&1 \
|
|
&& file /tmp/cli_snake 2>/dev/null | grep -q "Mach-O"; then
|
|
ok "ludicc app.ludic -o bin -> native executable"
|
|
else bad "ludicc -o: $(tail -1 /tmp/cli.out)"; fi
|
|
|
|
# --emit-llvm stops at the IR.
|
|
if ./ludicc examples/snake.ludic --emit-llvm -o /tmp/cli_snake.ll >/tmp/cli.out 2>&1 \
|
|
&& head -1 /tmp/cli_snake.ll | grep -q "LLVM IR"; then
|
|
ok "ludicc --emit-llvm -> LLVM IR"
|
|
else bad "ludicc --emit-llvm: $(tail -1 /tmp/cli.out)"; fi
|
|
|
|
# ludic compiles, runs, and forwards the program's exit code.
|
|
printf 'main { os_exit(42) }\n' > /tmp/cli_exit.ludic
|
|
./ludic /tmp/cli_exit.ludic >/tmp/cli.out 2>&1
|
|
if [ "$?" -eq 42 ]; then ok "ludic app.ludic -> compiles, runs, forwards exit code"
|
|
else bad "ludic run: expected exit 42, got $? ($(tail -1 /tmp/cli.out))"; fi
|
|
|
|
echo
|
|
printf "== %d passed, %d failed ==\n" "$PASS" "$FAIL"
|
|
[ "$FAIL" -eq 0 ]
|