Hojun-Cho
2338ea5d59
'ww test' gains the istest build path (-T injection in build_one/ buildone) and do_test/dotest accept -I, mirroring do_run - both twins. The 35 converted lib tests drop their interim bare mains (-T synthesizes the entry from @test fns and rejects a user main); their 35 C run-drivers flip 'ww run' -> 'ww test'; 989_lib_byteid compiles lib tests under -T (8 user-main probe fixtures stay non-T, gated on the fixture field). Abort-on-first-failure stands until the deferred record-and-continue harness lands with the multi-package arc.
109 lines
3.1 KiB
Plaintext
109 lines
3.1 KiB
Plaintext
// ostest — exercises lib/os surface that doesn't have a dedicated
|
|
// test elsewhere. Covers [[os.getenv]] (against env state pre-
|
|
// arranged by test/wcc/974_getenv_run.c) and a direct
|
|
// [[os.alloc]] / [[os.free]] roundtrip. memio's tests indirectly
|
|
// cover alloc/free; the direct row here pins the FFI shape under
|
|
// lib/os itself so future bindings refactors can't quietly drift.
|
|
//
|
|
// Hand-rolled @test fns dispatched from `main()` in source order; a
|
|
// failing case aborts via the assert/abort builtin (task #5 @test
|
|
// conversion).
|
|
//
|
|
// Pre-arranged env state (set by 974_getenv_run.c via setenv/unsetenv
|
|
// before exec'ing `ww run lib/os/ostest.ww`):
|
|
//
|
|
// WW_TEST_GETENV = "hello-world"
|
|
// WW_TEST_EMPTY = "" (set, but value is empty)
|
|
// WW_TEST_NOT_SET unset
|
|
//
|
|
// Don't `use io;` here — lib/os and lib/io both export read/write/
|
|
// close as C symbols that collide under the driver's flat-scope
|
|
// concat (task #17). os alone is sufficient: getenv + alloc/free are
|
|
// the only primitives needed.
|
|
|
|
package os_test;
|
|
|
|
import os;
|
|
import rt;
|
|
|
|
|
|
|
|
fn streq(a: str, b: str) bool = {
|
|
if (a.len != b.len) { return false; };
|
|
let i: i32 = 0;
|
|
for (i < a.len) {
|
|
if (a[i] != b[i]) { return false; };
|
|
i += 1;
|
|
};
|
|
return true;
|
|
};
|
|
|
|
// ---- getenv: set var → matching value -------------------------------
|
|
|
|
@test fn test_getenv_set() void = {
|
|
let r = os.getenv("WW_TEST_GETENV");
|
|
match (r) {
|
|
case void => abort();
|
|
case let s: str => {
|
|
assert(!(!streq(s, "hello-world")));
|
|
};
|
|
};
|
|
};
|
|
|
|
// ---- getenv: empty value (set but zero-length) ----------------------
|
|
//
|
|
// POSIX permits an env var with an empty value (`name=` in environ).
|
|
// getenv must return the empty str, NOT void — void is reserved for
|
|
// "name not present at all". This row exercises the boundary.
|
|
|
|
@test fn test_getenv_empty() void = {
|
|
let r = os.getenv("WW_TEST_EMPTY");
|
|
match (r) {
|
|
case void => abort();
|
|
case let s: str => {
|
|
assert(!(s.len != 0));
|
|
};
|
|
};
|
|
};
|
|
|
|
// ---- getenv: unset var → void ---------------------------------------
|
|
|
|
@test fn test_getenv_unset() void = {
|
|
let r = os.getenv("WW_TEST_NOT_SET");
|
|
match (r) {
|
|
case void => {};
|
|
case let s: str => abort();
|
|
};
|
|
};
|
|
|
|
// ---- getenv: prefix-collision guard ---------------------------------
|
|
//
|
|
// Probes that "WW_TEST_GETEN" (a prefix of WW_TEST_GETENV) doesn't
|
|
// match. Without the explicit `entry[name.len] == '='` check in
|
|
// getenv, a naive prefix matcher would return the value of any
|
|
// longer-named var that starts with the queried name.
|
|
|
|
@test fn test_getenv_prefix_no_match() void = {
|
|
let r = os.getenv("WW_TEST_GETEN");
|
|
match (r) {
|
|
case void => {};
|
|
case let s: str => abort();
|
|
};
|
|
};
|
|
|
|
// ---- alloc/free: mmap-backed runtime allocator ----------------------
|
|
//
|
|
// Direct round-trip. Write-then-read-back proves the returned page is
|
|
// dereferenceable. A miscompiled binding (wrong arg order, wrong ABI,
|
|
// etc.) would either fault or return zero here.
|
|
|
|
@test fn test_alloc_free_roundtrip() void = {
|
|
let p: []u8 = alloc([], 4096u64)!;
|
|
p.len = 4096;
|
|
p[0] = 90u8; // 0x5a
|
|
p[4095] = 165u8; // 0xa5
|
|
assert(!(p[0] != 90u8));
|
|
assert(!(p[4095] != 165u8));
|
|
os.free(p.ptr: *void, 4096u64);
|
|
};
|