103 lines
3.5 KiB
Plaintext
103 lines
3.5 KiB
Plaintext
// asttest — functional-equivalence pin for [[nkname]] after the
|
|
// if-ladder → switch fold (struct fold S2). Run with
|
|
// `ww run -I lib/ww lib/ww/syntax/asttest.ww`.
|
|
//
|
|
// nkname is checked against every nkind value (the full ladder the
|
|
// switch replaced) plus the out-of-band fallback ("?"). A failing row
|
|
// aborts via the assert/abort builtin (task #5 @test conversion).
|
|
// `package main` + bare `import ast` mirrors wwdump (the external
|
|
// astprint consumer).
|
|
|
|
package syntax_test;
|
|
|
|
import syntax;
|
|
|
|
|
|
fn checknkname(k: nkind, want: str) void = {
|
|
assert(!(nkname(k) != want));
|
|
};
|
|
|
|
// One row per nkind value — same string the if-ladder returned. The
|
|
// final row pins the unknown-kind fallback ("?").
|
|
@test fn nkname_cases() void = {
|
|
checknkname(nkind.N_NONE, "none");
|
|
checknkname(nkind.N_INTLIT, "int");
|
|
checknkname(nkind.N_FLOATLIT, "float");
|
|
checknkname(nkind.N_STRLIT, "str");
|
|
checknkname(nkind.N_RUNELIT, "rune");
|
|
checknkname(nkind.N_TRUE, "true");
|
|
checknkname(nkind.N_FALSE, "false");
|
|
checknkname(nkind.N_NIL, "nil");
|
|
checknkname(nkind.N_IDENT, "id");
|
|
|
|
checknkname(nkind.N_BIN, "bin");
|
|
checknkname(nkind.N_UN, "un");
|
|
checknkname(nkind.N_CALL, "call");
|
|
checknkname(nkind.N_INDEX, "index");
|
|
checknkname(nkind.N_DOT, "dot");
|
|
checknkname(nkind.N_CAST, "cast");
|
|
checknkname(nkind.N_STRUCTLIT, "structlit");
|
|
checknkname(nkind.N_ARRLIT, "arrlit");
|
|
checknkname(nkind.N_FIELD, "field");
|
|
checknkname(nkind.N_ASSIGN, "assign");
|
|
checknkname(nkind.N_ALLOC, "alloc");
|
|
checknkname(nkind.N_FREE, "free");
|
|
checknkname(nkind.N_RECV, "recv");
|
|
checknkname(nkind.N_SLICE, "slice");
|
|
checknkname(nkind.N_SPREAD, "spread");
|
|
|
|
checknkname(nkind.N_BLOCK, "block");
|
|
checknkname(nkind.N_EXPRSTMT, "exprstmt");
|
|
checknkname(nkind.N_LET, "let");
|
|
checknkname(nkind.N_RETURN, "return");
|
|
checknkname(nkind.N_IF, "if");
|
|
checknkname(nkind.N_FOR, "for");
|
|
checknkname(nkind.N_FORRANGE, "forrange");
|
|
checknkname(nkind.N_DEFER, "defer");
|
|
checknkname(nkind.N_BREAK, "break");
|
|
checknkname(nkind.N_CONTINUE, "continue");
|
|
checknkname(nkind.N_SWITCH, "switch");
|
|
checknkname(nkind.N_CASE, "case");
|
|
|
|
checknkname(nkind.N_FILE, "file");
|
|
checknkname(nkind.N_USE, "use");
|
|
checknkname(nkind.N_DEF, "def");
|
|
checknkname(nkind.N_TYPEDECL, "typedecl");
|
|
checknkname(nkind.N_FNDECL, "fn");
|
|
checknkname(nkind.N_PARAM, "param");
|
|
|
|
checknkname(nkind.N_TNAME, "tname");
|
|
checknkname(nkind.N_TPTR, "tptr");
|
|
checknkname(nkind.N_TSLICE, "tslice");
|
|
checknkname(nkind.N_TARRAY, "tarray");
|
|
checknkname(nkind.N_TFN, "tfn");
|
|
checknkname(nkind.N_TSTRUCT, "tstruct");
|
|
checknkname(nkind.N_TFIELD, "tfield");
|
|
checknkname(nkind.N_TCHAN, "tchan");
|
|
|
|
checknkname(nkind.N_ATTR, "attr");
|
|
checknkname(nkind.N_TTUPLE, "ttuple");
|
|
checknkname(nkind.N_TTAGGED, "ttagged");
|
|
checknkname(nkind.N_TUPLE, "tuple");
|
|
checknkname(nkind.N_MATCH, "match");
|
|
checknkname(nkind.N_MCASE, "mcase");
|
|
checknkname(nkind.N_TRYPROP, "tryprop");
|
|
checknkname(nkind.N_TRYUNW, "tryunw");
|
|
checknkname(nkind.N_MLET, "mlet");
|
|
checknkname(nkind.N_MASSIGN, "massign");
|
|
|
|
checknkname(nkind.N_TYPETEST, "typetest");
|
|
checknkname(nkind.N_TYPEASSERT, "typeassert");
|
|
checknkname(nkind.N_VOIDLIT, "voidlit");
|
|
checknkname(nkind.N_TBANG, "tbang");
|
|
checknkname(nkind.N_YIELD, "yield");
|
|
checknkname(nkind.N_TENUM, "tenum");
|
|
checknkname(nkind.N_TENUMMEMBER, "tenummember");
|
|
checknkname(nkind.N_TPARAM, "tparam");
|
|
checknkname(nkind.N_LAST, "last");
|
|
|
|
// Unknown kind → the post-switch fallback. N_LAST is the highest
|
|
// named value (68); 69 is out of band, exercising the "?" tail.
|
|
checknkname(69: nkind, "?");
|
|
};
|