// fmttest — exercises lib/fmt's stream sinks (fprint / fprintln).
// Run with `out/bin/ww run lib/fmt/fmttest.ww`.
//
// Each @test writes through a memio.stream and compares the resulting
// bytes against an inline `want` literal. Bodies are short enough that
// the parallel-array idiom used by memiotest doesn't apply — every row
// here threads a different variadic argument-pack into fprint, and the
// variadic shape can't be table-driven within a single fn body.

package fmt;

import fmt;
import io;
import memio;
import os;

// signalled — bumped before each scenario so a failing exit code
// pinpoints the offending case.
let signalled: i32 = 0;

fn fail() void = { os.exit(signalled + 10); };

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;
};

// ---- an error-returning stream for the io.error surfacing test --------
//
// Replaces the OLD io.closed source. errvt is module-static; its
// reader/writer return a nomem-widened io.error.
let errvt: io.vtable;

fn errread(s: io.stream, buf: []u8) (size | io.eof | io.error) = {
	let nm: nomem; let e: io.error = nm; return e;
};
fn errwrite(s: io.stream, buf: []u8) (size | io.error) = {
	let nm: nomem; let e: io.error = nm; return e;
};
fn errsource() io.stream = {
	errvt.reader = (&errread):  *io.reader;
	errvt.writer = (&errwrite): *io.writer;
	return &errvt;
};

// ---- fprint: bare str --------------------------------------------------

@test fn fprintbarestr() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprint(s, "hello");
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "hello")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprint: int + str mix, space-separated ----------------------------

@test fn fprintintstr() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprint(s, 42i64, "x");
	match (r) {
	case let n: size => { if (n: i32 != 4) { fail(); }; };	// "42 x"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "42 x")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprint: bool + rune renders as "true A" --------------------------

@test fn fprintboolrune() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprint(s, true, 'A': rune);
	match (r) {
	case let n: size => { if (n: i32 != 6) { fail(); }; };	// "true A"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "true A")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprint: zero args returns 0, no bytes written --------------------

@test fn fprintempty() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprint(s);
	match (r) {
	case let n: size => { if (n: i32 != 0) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (memio.string(&mem).len != 0) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprintln: multi-arg, trailing '\n' --------------------------------

@test fn fprintlnmulti() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprintln(s, "a", 1i64, false);
	match (r) {
	case let n: size => { if (n: i32 != 10) { fail(); }; };	// "a 1 false\n"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "a 1 false\n")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprintln: zero args writes just the newline ----------------------

@test fn fprintlnempty() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprintln(s);
	match (r) {
	case let n: size => { if (n: i32 != 1) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "\n")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprint over a fixed stream: short writes return partial count ----
// memio.fixedwrite caps each call at the remaining buffer space and
// never closes the stream, so fprint sees a short i32 result, not
// io.error. Verifies the inner-loop arithmetic adds the actual byte
// count rather than the requested length.

@test fn fprintfixedshort() void = {
	let buf: [3]u8;
	let mem: memio.stream = memio.fixed(buf[0:3]);
	let s: io.stream = &mem.vt;

	let r: (size | io.error) = fmt.fprint(s, "hello");
	match (r) {
	case let n: size => { if (n: i32 != 3) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "hel")) { fail(); };

	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// ---- fprint over a closed stream surfaces io.error -------------------
// Exercises the early-return arm in fprint's inner match — distinct from
// the short-write path above, which keeps returning i32 from a partial
// accept. Single arm is enough: every formattable case routes errors
// through the same putbytes / io.write wiring.

@test fn fprintclosed() void = {
	let s: io.stream = errsource();

	let r: (size | io.error) = fmt.fprint(s, "x");
	match (r) {
	case let n: size => fail();
	case let eioe: io.error => {};
	};
};

// ---- fprintf scenarios -------------------------------------------------
// Each scenario writes through memio.dynamic and compares bytes against
// an inline `want`. Variadic call-site shape forces one body per shape;
// see the file header.

@test fn fprintf_implicit() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "hello {} {}", "world", 42i64);
	match (r) {
	case let n: size => { if (n: i32 != 14) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "hello world 42")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_indexed() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{1} {0} {1}", "hello", "world");
	match (r) {
	case let n: size => { if (n: i32 != 17) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "world hello world")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_literal_braces() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{{ {} }}", 1i64);
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "{ 1 }")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_width_right() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:5}", 42i64);
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "   42")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_width_left() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:-5}", 42i64);
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "42   ")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_width_center() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:=5}", "hi");
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "  hi ")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_pad_underscore() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:_05}", "hi");
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "000hi")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_base_hex() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:x} {:X}", 48879i64, 61453i64);
	match (r) {
	case let n: size => { if (n: i32 != 9) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "beef F00D")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_base_oct_bin() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:o} {:b}", 493i64, 27i64);
	match (r) {
	case let n: size => { if (n: i32 != 9) { fail(); }; };	// "755 11011"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "755 11011")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_prec_int() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:.5}", 42i64);
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "00042")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_prec_str_trunc() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:.3}", "hello");
	match (r) {
	case let n: size => { if (n: i32 != 3) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "hel")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_sign_neg() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{} {:+} {: }", -7i64, 7i64, 7i64);
	match (r) {
	case let n: size => { if (n: i32 != 8) { fail(); }; };	// "-7 +7  7"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "-7 +7  7")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintfln_basic() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintfln(s, "x={}", 9i64);
	match (r) {
	case let n: size => { if (n: i32 != 4) { fail(); }; };	// "x=9\n"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "x=9\n")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_closed() void = {
	let s: io.stream = errsource();
	let r: (size | io.error) = fmt.fprintf(s, "hello {}", 1i64);
	match (r) {
	case let n: size => fail();
	case let eioe: io.error => {};
	};
};

@test fn bsprintf_basic() void = {
	let buf: [16]u8;
	let r: (str | io.error) = fmt.bsprintf(buf[0:16], "{} {}", "hi", 42i64);
	match (r) {
	case let s: str => { if (!streq(s, "hi 42")) { fail(); }; };
	case let eioe: io.error => fail();
	};
};

// Pins the formatfield bool / rune arms inside fprintf's for-loop —
// the codegen-smell repro shape (task #18). Pre-task-#18, the str arm
// is also exercised by fprintf_implicit; this adds the two remaining
// tagged arms so a future task-#18 fix that re-introduces the 24B
// widen-by-value cannot regress silently.
@test fn fprintf_bool_rune() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{} {}", true, 'A': rune);
	match (r) {
	case let n: size => { if (n: i32 != 6) { fail(); }; };	// "true A"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "true A")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// Verifies bsprintf's documented truncation contract — short writes
// return the prefix that fit (memio.fixedwrite returns 0 once full,
// not io.error). Pairs with fprintfixedshort above which covers the
// underlying fprint path.
@test fn bsprintf_trunc() void = {
	let buf: [3]u8;
	let r: (str | io.error) = fmt.bsprintf(buf[0:3], "{} {}", "hi", 42i64);
	match (r) {
	case let s: str => { if (!streq(s, "hi ")) { fail(); }; };
	case let eioe: io.error => fail();
	};
};

// Pins formatone's tail-pad counter shape. Without the counter, the
// `total < m.width` loop spins on memio.fixed's 0-byte-on-full
// partial-write contract (ww divergence from Hare's errors::overflow
// + `?`). Buffer 3B, target "   42" (5B); first 3 spaces fit, then
// formatraw + tail-pad both write 0 — must terminate.
@test fn bsprintf_width_trunc() void = {
	let buf: [3]u8;
	let r: (str | io.error) = fmt.bsprintf(buf[0:3], "{:5}", 42i64);
	match (r) {
	case let s: str => { if (!streq(s, "   ")) { fail(); }; };
	case let eioe: io.error => fail();
	};
};

// asprintf — heap-allocated render through memio.dynamic + shrink-to-fit.
// Caller frees via os.free(r.ptr, r.len) when r.len > 0.

@test fn asprintf_basic() void = {
	let r: str = fmt.asprintf("{} {}", "hi", 42i64);
	if (!streq(r, "hi 42")) { fail(); };
	os.free(r.ptr: *void, r.len: u64);
};

// Output > memio.dynamic's initial 8B cap to exercise the
// double-and-copy grow path; 34B target traverses 8→16→32→64.
@test fn asprintf_growth() void = {
	let r: str = fmt.asprintf("hello {} world {} value {}", "alpha", "beta", "gamma");
	if (!streq(r, "hello alpha world beta value gamma")) { fail(); };
	os.free(r.ptr: *void, r.len: u64);
};

// Empty format pins the no-allocation path: memio.dynamic.grow never
// fires (cap stays 0), and the asprintf shrink-to-fit path returns
// {nil, 0} without calling os.alloc. Free is skipped — matches the
// strings.dup empty-input contract.
@test fn asprintf_empty() void = {
	let r: str = fmt.asprintf("");
	if (r.len != 0) { fail(); };
};

// Indexed placeholder + modifier through asprintf — confirms the full
// {n:mods} parser path works through the heap-allocated sink, not just
// the memio.fixed (bsprintf) and memio.dynamic-via-fprintf paths.
@test fn asprintf_indexed_mods() void = {
	let r: str = fmt.asprintf("{1:_05}", "zzz", 42i64);
	if (!streq(r, "00042")) { fail(); };
	os.free(r.ptr: *void, r.len: u64);
};

// ---- f64 dispatch arm -------------------------------------------------
//
// Pins the f64 formattable arm landed under task #17 (unblocked by #30
// — the variant-widen-from-X0 fix). strconv.f64tos drives the render;
// see lib/strconv/strconv.ww for the documented subset (fixed-point,
// 6 fractional digits, trailing-zero trim, magnitudes ≥ 9e18 → "huge",
// no NaN/±Inf detection).
//
// Mods scope under v1: width / alignment / pad / sign mods honored.
// `prec` and `base` ignored — graduate when strconv grows ffmt/fflags.

@test fn fprintf_f64_basic() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", 1.5);
	match (r) {
	case let n: size => { if (n: i32 != 3) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "1.5")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_int_valued() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", 1.0);
	match (r) {
	case let n: size => { if (n: i32 != 1) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "1")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_neg() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", -2.5);
	match (r) {
	case let n: size => { if (n: i32 != 4) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "-2.5")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_zero() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", 0.0);
	match (r) {
	case let n: size => { if (n: i32 != 1) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "0")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_small_frac() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", 0.05);
	match (r) {
	case let n: size => { if (n: i32 != 4) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "0.05")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// Pins a large magnitude through the fmt dispatch — post-Ryū-graduation
// (fold-5) this is scientific notation, not the old lossy "huge" fallback.
// Catches any regression where mods accidentally pre-truncate the view.
@test fn fprintf_f64_huge() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{}", 9.5e18);
	match (r) {
	case let n: size => { if (n: i32 != 6) { fail(); }; };	// "9.5e18"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "9.5e18")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// Sign-mod fold: '+' on positive, '-' still wins on negative (the
// natural '-' from strconv is peeled and signof reapplies).
@test fn fprintf_f64_sign_plus() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:+} {:+}", 1.5, -1.5);
	match (r) {
	case let n: size => { if (n: i32 != 9) { fail(); }; };	// "+1.5 -1.5"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "+1.5 -1.5")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_sign_space() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{: }", 1.5);
	match (r) {
	case let n: size => { if (n: i32 != 4) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), " 1.5")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// Width + alignment round-trip through rawlenf64 (sign-aware len count).
@test fn fprintf_f64_width_right() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:8}", 1.5);
	match (r) {
	case let n: size => { if (n: i32 != 8) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "     1.5")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn fprintf_f64_width_left() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprintf(s, "{:-8}", 1.5);
	match (r) {
	case let n: size => { if (n: i32 != 8) { fail(); }; };
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "1.5     ")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

// Legacy fprint variadic — covers the non-printf surface arm (where
// formatraw isn't reached because there's no mods parser).
@test fn fprint_f64_variadic() void = {
	let mem: memio.stream = memio.dynamic();
	let s: io.stream = &mem.vt;
	let r: (size | io.error) = fmt.fprint(s, 1.5, "x");
	match (r) {
	case let n: size => { if (n: i32 != 5) { fail(); }; };	// "1.5 x"
	case let eioe: io.error => fail();
	};
	if (!streq(memio.string(&mem), "1.5 x")) { fail(); };
	let c: (void | io.error) = io.close(s);
	match (c) { case void => {}; case let eioe: io.error => fail(); };
};

@test fn bsprintf_f64() void = {
	let buf: [16]u8;
	let r: (str | io.error) = fmt.bsprintf(buf[0:16], "x={}", 1.5);
	match (r) {
	case let s: str => { if (!streq(s, "x=1.5")) { fail(); }; };
	case let eioe: io.error => fail();
	};
};

// Heap sink + both signs.
@test fn asprintf_f64() void = {
	let r: str = fmt.asprintf("{} {}", 1.5, -2.5);
	if (!streq(r, "1.5 -2.5")) { fail(); };
	os.free(r.ptr: *void, r.len: u64);
};

export fn main() i32 = {
	signalled = 1; fprintbarestr();
	signalled = 2; fprintintstr();
	signalled = 3; fprintboolrune();
	signalled = 4; fprintempty();
	signalled = 5; fprintlnmulti();
	signalled = 6; fprintlnempty();
	signalled = 7; fprintfixedshort();
	signalled = 8; fprintclosed();
	signalled = 9;  fprintf_implicit();
	signalled = 10; fprintf_indexed();
	signalled = 11; fprintf_literal_braces();
	signalled = 12; fprintf_width_right();
	signalled = 13; fprintf_width_left();
	signalled = 14; fprintf_width_center();
	signalled = 15; fprintf_pad_underscore();
	signalled = 16; fprintf_base_hex();
	signalled = 17; fprintf_base_oct_bin();
	signalled = 18; fprintf_prec_int();
	signalled = 19; fprintf_prec_str_trunc();
	signalled = 20; fprintf_sign_neg();
	signalled = 21; fprintfln_basic();
	signalled = 22; fprintf_closed();
	signalled = 23; bsprintf_basic();
	signalled = 24; fprintf_bool_rune();
	signalled = 25; bsprintf_trunc();
	signalled = 26; bsprintf_width_trunc();
	signalled = 27; asprintf_basic();
	signalled = 28; asprintf_growth();
	signalled = 29; asprintf_empty();
	signalled = 30; asprintf_indexed_mods();
	signalled = 31; fprintf_f64_basic();
	signalled = 32; fprintf_f64_int_valued();
	signalled = 33; fprintf_f64_neg();
	signalled = 34; fprintf_f64_zero();
	signalled = 35; fprintf_f64_small_frac();
	signalled = 36; fprintf_f64_huge();
	signalled = 37; fprintf_f64_sign_plus();
	signalled = 38; fprintf_f64_sign_space();
	signalled = 39; fprintf_f64_width_right();
	signalled = 40; fprintf_f64_width_left();
	signalled = 41; fprint_f64_variadic();
	signalled = 42; bsprintf_f64();
	signalled = 43; asprintf_f64();
	return 0;
};