test: port the wwdump_ww gate observers to ww; retire 901_asserttyped_gap + 989_wwdumpgate_run
One commit for both carriers: the asserttyped manifest and the -c/-r parse-error gate are the same wwstage-only wwdump_ww subprocess surface. The 901_*.ww raw gap companions stay in test/wcc, fed via testenv.repo().
This commit is contained in:
152
test/tool/wwdump_test.ww
Normal file
152
test/tool/wwdump_test.ww
Normal file
@@ -0,0 +1,152 @@
|
||||
package wwdump_test;
|
||||
|
||||
// wwdump_ww observer gates. Ports of the retired native carriers
|
||||
// test/wcc/901_asserttyped_gap.c and 989_wwdumpgate_run.c; every
|
||||
// assertion preserved. WWSTAGE-ONLY by construction: the cstage
|
||||
// wwdump implements only -t/-a, and the asserttyped pass lives in
|
||||
// wwstage check.ww — there is no cstage twin for either claim
|
||||
// (wwstage-warn-audit rule: drive the wwstage checker with *_ww
|
||||
// binaries, never cstage tools).
|
||||
//
|
||||
// asserttyped (#15 / A.6.2.1e) — the wwstage checker's post-checker
|
||||
// nil-type invariant gate is UNOBSERVED by every other suite (the
|
||||
// ordinary suites drive cstage check.c; only -t/-a run elsewhere).
|
||||
// Run `wwdump_ww -c` over the gap-bearing manifest and pin the count
|
||||
// of line-leading "asserttyped:" stderr diagnostics per fixture; the
|
||||
// manifest is the all-closed floor (every class A-G at zero), so any
|
||||
// fresh nil-gap or regressed class fails loud and names its fixture.
|
||||
// wwdump_ww's exit code is deliberately NOT gated: the diagnostics
|
||||
// land on stderr regardless, and the armed bail flips the exit code —
|
||||
// the line count is the one signal stable across the fold sequence.
|
||||
// #90 sep-feed: import-bearing fixtures feed their RESOLVED sep unit
|
||||
// (`ww build -S` composes <stem>.sepwork/__root.unit.ww); the
|
||||
// import-free test/wcc/901_*.ww companions stay raw-fed.
|
||||
//
|
||||
// wwdumpgate (#52, F15 c4) — the -c and -r arms gate on parse-stage
|
||||
// errors instead of silently emitting over a broken AST: parse-errored
|
||||
// input under -c exits nonzero with exactly 0 stdout bytes (pre-fix:
|
||||
// rc=0 with truncated asm — and -c IS the 994 byte-identity probe
|
||||
// arm); -r likewise exits nonzero; the valid-file -c control exits 0
|
||||
// with asm on stdout. The C carrier's wwdump_ww-missing wiring check
|
||||
// is carried by the Make prerequisite plus runcommand's launch
|
||||
// assert.
|
||||
|
||||
import os;
|
||||
import os.exec;
|
||||
import strings;
|
||||
import testenv;
|
||||
import time;
|
||||
|
||||
fn fail(label: str, why: str) void = {
|
||||
let m: str = strings.concat("wwdump FAIL: ", label, " -- ", why,
|
||||
"\n");
|
||||
os.write(2, m.ptr, m.len: u64);
|
||||
assert(false);
|
||||
};
|
||||
|
||||
fn tmo() time.duration = {
|
||||
return (180i64 * (time.second: i64)): time.duration;
|
||||
};
|
||||
|
||||
// Line-leading occurrences; the '\n' prepend counts a stream-leading
|
||||
// diagnostic too.
|
||||
fn countdiag(stderr: str) i32 = {
|
||||
return testenv.occurrences(strings.concat("\n", stderr),
|
||||
"\nasserttyped:");
|
||||
};
|
||||
|
||||
// Gap classes A-G (residual-carrier-audit.json 901 entry); want is
|
||||
// the all-closed floor. sep rows compose the resolved unit first.
|
||||
@test fn asserttyped() void = {
|
||||
let rels: []str = [
|
||||
"lib/math/checked/checked_test.ww",
|
||||
"test/wcc/data/selfhost_smoke/case.ww",
|
||||
"lib/encoding/utf8/utf8.ww",
|
||||
"lib/fnmatch/fnmatch_test.ww",
|
||||
"lib/math/random/random_test.ww",
|
||||
"test/wcc/901_enum_corpus.ww",
|
||||
"test/wcc/901_forrange_tuple.ww",
|
||||
"test/wcc/901_massign_blank.ww"];
|
||||
let classes: []str = [
|
||||
"A module-qual N_DOT call result",
|
||||
"B fn-ptr struct-field call",
|
||||
"C abort intrinsic callee",
|
||||
"D module-leaf == type/fn name",
|
||||
"D module-leaf == type/fn name",
|
||||
"E computed enum-member value-expr",
|
||||
"F for-range tuple-destructure bind",
|
||||
"G tuple multi-assign discard `_`"];
|
||||
let seps: []bool = [true, true, true, true, true, false, false,
|
||||
false];
|
||||
let wants: []i32 = [0, 0, 0, 0, 0, 0, 0, 0];
|
||||
let i: i32 = 0;
|
||||
for (i < rels.len) {
|
||||
let td: str = testenv.fresh();
|
||||
let src: str = strings.concat(testenv.repo(), "/", rels[i]);
|
||||
if (seps[i]) {
|
||||
let stem: str = strings.concat(td, "/unit");
|
||||
let bo: testenv.commandout;
|
||||
let bav: []str = [testenv.driver("ww"), "build", "-S", "-o",
|
||||
stem, src];
|
||||
testenv.runcommand(td, td, "resolve", bav, tmo(), &bo);
|
||||
if (bo.termination != exec.termination.EXIT || bo.code != 0) {
|
||||
fail(classes[i], strings.concat(rels[i],
|
||||
": no resolved sep unit (ww build -S failed)"));
|
||||
};
|
||||
src = strings.concat(stem, ".sepwork/__root.unit.ww");
|
||||
if (!testenv.exists(src)) {
|
||||
fail(classes[i], strings.concat(rels[i],
|
||||
": __root.unit.ww missing after ww build -S"));
|
||||
};
|
||||
};
|
||||
let co: testenv.commandout;
|
||||
let av: []str = [testenv.driver("wwdump_ww"), "-c", src];
|
||||
testenv.runcommand(td, td, "check", av, tmo(), &co);
|
||||
assert(co.termination == exec.termination.EXIT);
|
||||
let got: i32 = countdiag(co.stderr);
|
||||
if (got != wants[i]) {
|
||||
// surface the drifted diagnostics before the abort
|
||||
os.write(2, co.stderr.ptr, co.stderr.len: u64);
|
||||
fail(classes[i], strings.concat(rels[i],
|
||||
": asserttyped count drifted from the manifest"));
|
||||
};
|
||||
testenv.clean(td);
|
||||
i += 1;
|
||||
};
|
||||
};
|
||||
|
||||
fn dumprow(td: str, name: str, mode: str, src: str,
|
||||
out: *testenv.commandout) void = {
|
||||
let av: []str = [testenv.driver("wwdump_ww"), mode, src];
|
||||
testenv.runcommand(td, td, name, av, tmo(), out);
|
||||
assert(out.termination == exec.termination.EXIT);
|
||||
};
|
||||
|
||||
@test fn wwdumpgate() void = {
|
||||
let td: str = testenv.fresh();
|
||||
let badp: str = strings.concat(td, "/bad.ww");
|
||||
testenv.writefile(badp, strings.concat(
|
||||
"package main;\n\n",
|
||||
"export fn main(argc: i32, argv: **u8) i32 = {\n",
|
||||
"\treturn 0;\n};\n\n",
|
||||
"fn broken( {\n"));
|
||||
let okp: str = strings.concat(td, "/ok.ww");
|
||||
testenv.writefile(okp,
|
||||
"package main;\nexport fn main() i32 = { return 0; };\n");
|
||||
|
||||
let co: testenv.commandout;
|
||||
dumprow(td, "bad_c", "-c", badp, &co);
|
||||
if (co.code == 0 || co.stdout.len != 0) {
|
||||
fail("bad_c",
|
||||
"asm emitted or rc=0 on parse-errored input (#52)");
|
||||
};
|
||||
dumprow(td, "bad_r", "-r", badp, &co);
|
||||
if (co.code == 0) {
|
||||
fail("bad_r", "resolve report with rc=0 on parse-errored input");
|
||||
};
|
||||
dumprow(td, "ok_c", "-c", okp, &co);
|
||||
if (co.code != 0 || co.stdout.len == 0) {
|
||||
fail("ok_c", "healthy file rejected or produced no asm");
|
||||
};
|
||||
testenv.clean(td);
|
||||
};
|
||||
Reference in New Issue
Block a user