Function cross_module_call_works

tests/integration/platform_stdlib.rs:662–707

()

                Alloc(inner) -> { return 8 }
            }
        }
    }
    if OwnedString_length(&s) != 8 { return 9 }

    OwnedString_clear(&s)
    if OwnedString_length(&s) != 0 { return 10 }
    OwnedString_deinit(&s)
    return 0
}
"#,
    );
    assert_eq!(exit, Some(0));
}

#[test]
fn hosted_arena_bumps_resets_and_reuses() {
    let (_, exit) = run_hll(
        r#"
memory_allocator := import("memory_allocator")

main: () -> i32 {
    a: Arena = { .head = null }
    Arena_init(&a)

    first: u8* = null
    first_result := Arena_alloc(&a, 24, 8)
    match first_result {
        Ok(value) -> { first = value }
        Err(error) -> { return 1 }
    }
    if (first as u64) % 8 != 0 { return 2 }
    first[0] = 7

    second: u8* = null
    second_result := Arena_alloc(&a, 40, 64)
    match second_result {
        Ok(value) -> { second = value }
        Err(error) -> { return 3 }
    }
    if (second as u64) % 64 != 0 { return 4 }
    if second == first { return 5 }

    ; Larger than the default chunk: gets its own chunk.
    big_result := Arena_alloc(&a, 8192, 8)
    match big_result {
        Ok(value) -> {}
        Err(error) -> { return 6 }
    }