Hojun-Cho
438efab8c6
Continue fold-2 (after 374e97b): migrate the remaining Family-1 str/slice
global + literal + index + call-arg group from bespoke build+run C twins to
test/lang @test, retiring each twin in the same commit. Runtime coverage MOVES
from $(TESTS) to test-lang (T1 runs+asserts via `ww test`) + test-lang-byteid
(T2 keeps cs==ww .s byte-id); coverage is preserved, the $(TESTS) headline
drops 9 (434->425). All asserts are primitive int/u8/bool comparisons (no
fmt/strconv in the assert path); the slice-store/index rows reset the global
each fn and sum ADJACENT elements so a dropped/mis-strided/over-wide word FAILS.
989_globslicefield_run.c -> glob_slice_field_test.ww (slice field of a global struct: g.f=<slice> stores full 24B header; len/cap/non-zero-offset + str/scalar controls)
989_globstrslice_run.c -> glob_str_slice_arg_test.ww (global str sliced with default hi passed as call arg loads its len word; explicit-hi control)
989_trystr_run.c -> try_str_unwrap_test.ww (`!` unwrap of str-success tagged union shuffles the str header for ident-source/error-first/success-first)
797_len_strglobal_run.c -> len_str_global_test.ww (len(str-global) loads .len via name(SB); local-str control)
801_litstr_pseudo_run.c -> lit_str_pseudo_test.ww (string-literal .len/.ptr pseudo-field; empty/multibyte + arg-passthrough)
803_globalidx_run.c -> global_index_test.ww (global str/slice index read/addr-of/store/compound, esz 1/4; local regression pins)
903_tuple_elem_slice_len.c -> tuple_elem_slice_len_test.ww (len(t.N) of a slice/str tuple element loads .len at +8; 2/3-slice, str-slice both orders)
927_composite_call_arg_run.c-> composite_call_arg_test.ww (slice-returning CALL passed inline as a composite arg; canonical/letslice/two-call/middle/nested/scalar/tagged)
952_slicecopy_assign_run.c -> slice_copy_assign_test.ww (bulk slice-copy-assign `arr[lo:hi]=bs`, esz 1/4, field/via-ptr/local bases; reslice-read companion)
rd_reslice asserts the TRUE value 360 (the .c twin's want=104 was 360 & 0xFF,
an exit-code truncation). 723_composite_call_arg.c's comment repointed to the
new test/lang location. 802_lenidx_run.c is DEFERRED (it carries //ww:error
reject rows — needs a value-rows-only split + a slim reject carrier, a fold-3
pass). Bump LANGBYTEID_EXPECTED_MIN 22->31 to ratchet the new corpus floor.
35 lines
1.2 KiB
Plaintext
35 lines
1.2 KiB
Plaintext
// glob_str_slice_arg_test — a module-GLOBAL str sliced with a DEFAULT high
|
|
// bound and passed as a call arg (`take(g[1:])`) must load its length word for
|
|
// the hi, migrated from test/wcc/989_globstrslice_run.c (F8-c2, #47). The
|
|
// wwstage N_SLICE call-arg pusharg had no global-str (N_TNAME "str") arm for a
|
|
// default hi, so AX kept the base pointer and got PUSHQ'd as the hi → len =
|
|
// ptr-lo, garbage; the fix emits the same `LEAQ g(SB),CX; MOVQ 8(CX),AX` len
|
|
// load as the global-slice arm (str IS []u8, len@+8), aligning UP to cstage.
|
|
// cs==ww was byte-id-blind; the .len asserts pin the runtime contract; the .ptr
|
|
// row proves the pointer word survives, the explicit-hi row is the control.
|
|
|
|
package glob_str_slice_arg_test;
|
|
|
|
let g: str = "hello";
|
|
|
|
fn slen(s: str) i32 = { return len(s): i32; };
|
|
fn sfirst(s: str) i32 = { return s[0]: i32; };
|
|
|
|
@test fn gstr_defhi() void = {
|
|
assert(slen(g[1:]) == 4);
|
|
};
|
|
|
|
@test fn gstr_defhi_full() void = {
|
|
assert(slen(g[0:]) == 5);
|
|
};
|
|
|
|
@test fn gstr_defhi_ptr() void = {
|
|
// the ptr word is still correct: g[1:][0] == 'e' == 101.
|
|
assert(sfirst(g[1:]) == 101);
|
|
};
|
|
|
|
@test fn gstr_explicit() void = {
|
|
// explicit hi (hi != nil path) must not regress.
|
|
assert(slen(g[1:3]) == 2);
|
|
};
|