4e942b5373
Rename all example tests/companions to the XXXX-category-test-name scheme (per-category 100-blocks: basic 0010, types 0100, ... errors 1000, diagnostics 1100, ffi 1200, ffi-objc 1300, ffi-jni 1400, vectors 1500, platform 1600). Companions and dir/C fixtures move in lockstep with their parent test; #import/#source/#include paths rewritten to match. Expected output now lives in examples/expected/ (a sibling dir of the tests) split into three streams per the new convention: <name>.exit / <name>.stdout / <name>.stderr (+ optional <name>.ir) run_examples.sh rewritten: scans examples/ and issues/ for an expected/<name>.exit marker, captures stdout and stderr separately (no more 2>&1), compares each stream + exit + optional IR snapshot. Behavior validated unchanged: every renamed test reproduces its prior merged output + exit (diffs limited to file paths/basenames embedded in diagnostics + traces, which correctly reflect the new names). Suite: 292 passed, 0 failed. 50-smoke.sx split + issue relocation + docs follow in subsequent commits.
40 lines
1.7 KiB
Plaintext
40 lines
1.7 KiB
Plaintext
// Failable `or` chains (ERR step E2.4b). `lhs or rhs` with failable operands
|
|
// is a left-to-right, short-circuit chain: each failing attempt routes to the
|
|
// next operand; the chain resolves when an operand succeeds (or a value
|
|
// terminator absorbs). `try` marks an operand whose failure is visible routing
|
|
// (path-marker rule); a bare failable operand is allowed when a downstream
|
|
// terminator absorbs it. A `catch` over a parenthesized chain redirects the
|
|
// chain's total failure to the handler instead of the function. Absorbed
|
|
// failures clear the trace buffer; `onfail` does not fire for a failure that
|
|
// never leaves its block. This run takes only absorbed paths → exit 120.
|
|
|
|
#import "modules/std.sx";
|
|
|
|
E :: error { A, B };
|
|
|
|
fa :: (n: s32) -> (s32, !E) {
|
|
if n == 0 { raise error.A; }
|
|
if n < 0 { raise error.B; }
|
|
return n;
|
|
}
|
|
|
|
fv :: (n: s32) -> !E { // void (pure) failable
|
|
if n == 0 { raise error.A; }
|
|
return;
|
|
}
|
|
|
|
main :: () -> (s32, !E) {
|
|
onfail print("onfail fired (BUG)\n"); // must NOT fire — every chain below absorbs
|
|
|
|
r : s32 = 0;
|
|
r = r + (try fa(0) or try fa(7)); // a fails → b succeeds → 7
|
|
r = r + (try fa(0) or try fa(0) or try fa(3)); // first two fail → third → +3 = 10
|
|
r = r + (fa(0) or fa(0) or 96); // bare chain + value terminator → +96 = 106
|
|
r = r + ((try fa(0) or try fa(0)) catch e 5); // both fail → catch handler → +5 = 111
|
|
r = r + ((try fa(0) or try fa(9)) catch e 0); // second succeeds → catch skipped → +9 = 120
|
|
|
|
try fv(0) or try fv(1); // void chain: first fails → second succeeds
|
|
|
|
return r; // success → exit 120; onfail skipped
|
|
}
|