108 lines
3.4 KiB
Plaintext
108 lines
3.4 KiB
Plaintext
program main
|
|
fn fixture_path() -> string
|
|
string "slovo-exp10-host-io-result.txt" : string
|
|
fn ok_text(value: string) -> (result string i32)
|
|
ok : (result string i32)
|
|
var value : string
|
|
fn err_text(code: i32) -> (result string i32)
|
|
err : (result string i32)
|
|
var code : i32
|
|
fn result_text_or_error(value: (result string i32)) -> string
|
|
match : string
|
|
subject
|
|
var value : (result string i32)
|
|
arm ok payload
|
|
var payload : string
|
|
arm err code
|
|
call std.io.print_i32 : unit
|
|
var code : i32
|
|
string "error" : string
|
|
fn result_text_len_or_code(value: (result string i32)) -> i32
|
|
match : i32
|
|
subject
|
|
var value : (result string i32)
|
|
arm ok payload
|
|
call std.string.len : i32
|
|
var payload : string
|
|
arm err code
|
|
var code : i32
|
|
fn write_fixture_result() -> (result i32 i32)
|
|
call std.fs.write_text_result : (result i32 i32)
|
|
call fixture_path : string
|
|
string "exp10 host io" : string
|
|
fn read_fixture_result() -> (result string i32)
|
|
call std.fs.write_text_result : (result i32 i32)
|
|
call fixture_path : string
|
|
string "exp10 host io" : string
|
|
call std.fs.read_text_result : (result string i32)
|
|
call fixture_path : string
|
|
fn missing_env_result() -> (result string i32)
|
|
call std.env.get_result : (result string i32)
|
|
string "SLOVO_EXP10_MISSING_ENV" : string
|
|
fn first_arg_ok_score() -> i32
|
|
if : i32
|
|
binary < : bool
|
|
int 0 : i32
|
|
call std.process.argc : i32
|
|
if : i32
|
|
is_ok : bool
|
|
call std.process.arg_result : (result string i32)
|
|
int 0 : i32
|
|
int 1 : i32
|
|
int 0 : i32
|
|
int 0 : i32
|
|
fn read_unwrapped_text() -> string
|
|
unwrap_ok : string
|
|
call read_fixture_result : (result string i32)
|
|
fn missing_env_code() -> i32
|
|
unwrap_err : i32
|
|
call missing_env_result : (result string i32)
|
|
fn main() -> i32
|
|
call std.io.eprint : unit
|
|
string "exp-10 host io result" : string
|
|
if : i32
|
|
is_ok : bool
|
|
call write_fixture_result : (result i32 i32)
|
|
unwrap_ok : i32
|
|
call write_fixture_result : (result i32 i32)
|
|
int 1 : i32
|
|
test "string result constructor ok"
|
|
binary = : bool
|
|
call result_text_or_error : string
|
|
call ok_text : (result string i32)
|
|
string "constructed" : string
|
|
string "constructed" : string
|
|
test "string result constructor err"
|
|
binary = : bool
|
|
call result_text_len_or_code : i32
|
|
call err_text : (result string i32)
|
|
int 1 : i32
|
|
int 1 : i32
|
|
test "missing env returns err 1"
|
|
binary = : bool
|
|
call missing_env_code : i32
|
|
int 1 : i32
|
|
test "arg result is ok when argc is positive"
|
|
binary = : bool
|
|
call first_arg_ok_score : i32
|
|
if : i32
|
|
binary < : bool
|
|
int 0 : i32
|
|
call std.process.argc : i32
|
|
int 1 : i32
|
|
int 0 : i32
|
|
test "write text result returns ok zero"
|
|
binary = : bool
|
|
unwrap_ok : i32
|
|
call write_fixture_result : (result i32 i32)
|
|
int 0 : i32
|
|
test "read text result returns written text"
|
|
binary = : bool
|
|
call read_unwrapped_text : string
|
|
string "exp10 host io" : string
|
|
test "read text result match observes string payload"
|
|
binary = : bool
|
|
call result_text_len_or_code : i32
|
|
call read_fixture_result : (result string i32)
|
|
int 13 : i32
|