Files
AILang/examples/fieldtest/cut55_2c_consume_borrow_reject.ail
T
Brummel e25580e3a3 test(cutover): live accept/reject corpus for the #55 ownership surface
Wires the #55-cutover fieldtest into a durable regression net. The
fieldtest exercised the post-cutover ParamMode={Own,Borrow} surface as a
downstream LLM author would and produced 12 fixtures + a report; left as
loose files they would be dead fixtures that drift. This commits them as
a protected property.

crates/ail/tests/cut55_cutover_surface.rs — one table-driven test running
each fixture through `ail check` and asserting accept (exit 0) or reject
at the right pipeline stage. Reject rows key on the bracketed diagnostic
CODE (consume-while-borrowed, borrow-over-value, borrow-return-not-permitted,
surface-parse-error), NOT message text, so the test is decoupled from the
diagnostic-wording improvement tracked separately.

examples/fieldtest/cut55_*.ail — the corpus. cut55_2c is the #58 repro
(now correctly rejected). cut55_2b was misanalysed by the fieldtest as a
consume-while-borrowed reject; in fact bump's recursive param is
(borrow List) so the tail is only borrowed, never consumed into an own
slot — `ail check` correctly accepts it. Renamed to
cut55_2b_borrow_traversal_clean and recast as the #58 false-positive
guard (a borrow-position use of a heap sub-binder must stay accepted).
cut55_1b similarly does not fire over-strict-mode (its recursive call
consumes the tail, so the lint's consume_count==0 premise fails) — comment
corrected; it is a plain accept. cut55_1c is the genuine over-strict-mode
example (accepts exit 0, emits the warning).

docs/specs/0065-eliminate-implicit-mode fieldtest report — moved 2c to
the reject set, added the 2b false-positive-guard section, marked the
double-free spec_gap RESOLVED (it shipped as the #58 fix).

Relates to #55.
2026-06-02 00:45:21 +02:00

40 lines
1.1 KiB
Plaintext

; Fieldtest cut55-2c — decision (b), genuine consume-while-borrowed.
;
; leak borrows xs, but in the Cons arm it hands the tail `t` to sum_own,
; whose param is `(own (con List))` — that call CONSUMES t, which is a
; heap field of the borrowed xs. Per the ledger, consuming a value you
; only borrowed is rejected (consume-while-borrowed).
;
; Expected: ail check -> error naming the consumed binder and pointing at
; `own`, exit 1.
(module cut55_2c_consume_borrow_reject
(data List
(ctor Nil)
(ctor Cons (con Int) (con List)))
(fn sum_own
(doc "Own xs, consume it, return the sum.")
(type
(fn-type
(params (own (con List)))
(ret (own (con Int)))))
(params xs)
(body
(match xs
(case (pat-ctor Nil) 0)
(case (pat-ctor Cons h t) (app + h (app sum_own t))))))
(fn leak
(doc "Borrow xs but feed its tail to an own-consuming sink — illegal.")
(type
(fn-type
(params (borrow (con List)))
(ret (own (con Int)))))
(params xs)
(body
(match xs
(case (pat-ctor Nil) 0)
(case (pat-ctor Cons h t) (app sum_own t))))))