-module(gleam@int_test). -compile(no_auto_import). -export([absolute_value_test/0, clamp_test/0, to_string_test/0, parse_test/0, to_base_string_test/0, to_float_test/0, compare_test/0, min_test/0, max_test/0, is_even_test/0, is_odd_test/0, negate_test/0, sum_test/0, product_test/0]). -spec absolute_value_test() -> nil. absolute_value_test() -> _pipe = 123, _pipe@1 = gleam@int:absolute_value(_pipe), gleam@should:equal(_pipe@1, 123), _pipe@2 = -123, _pipe@3 = gleam@int:absolute_value(_pipe@2), gleam@should:equal(_pipe@3, 123). -spec clamp_test() -> nil. clamp_test() -> _pipe = gleam@int:clamp(40, 30, 50), gleam@should:equal(_pipe, 40), _pipe@1 = gleam@int:clamp(20, 30, 50), gleam@should:equal(_pipe@1, 30), _pipe@2 = gleam@int:clamp(60, 30, 50), gleam@should:equal(_pipe@2, 50), _pipe@3 = gleam@int:clamp(100, 50, 30), gleam@should:equal(_pipe@3, 50). -spec to_string_test() -> nil. to_string_test() -> _pipe = 123, _pipe@1 = gleam@int:to_string(_pipe), gleam@should:equal(_pipe@1, <<"123"/utf8>>), _pipe@2 = -123, _pipe@3 = gleam@int:to_string(_pipe@2), gleam@should:equal(_pipe@3, <<"-123"/utf8>>), _pipe@4 = 123, _pipe@5 = gleam@int:to_string(_pipe@4), gleam@should:equal(_pipe@5, <<"123"/utf8>>). -spec parse_test() -> nil. parse_test() -> _pipe = <<"123"/utf8>>, _pipe@1 = gleam@int:parse(_pipe), gleam@should:equal(_pipe@1, {ok, 123}), _pipe@2 = <<"-123"/utf8>>, _pipe@3 = gleam@int:parse(_pipe@2), gleam@should:equal(_pipe@3, {ok, -123}), _pipe@4 = <<"0123"/utf8>>, _pipe@5 = gleam@int:parse(_pipe@4), gleam@should:equal(_pipe@5, {ok, 123}), _pipe@6 = <<""/utf8>>, _pipe@7 = gleam@int:parse(_pipe@6), gleam@should:equal(_pipe@7, {error, nil}), _pipe@8 = <<"what"/utf8>>, _pipe@9 = gleam@int:parse(_pipe@8), gleam@should:equal(_pipe@9, {error, nil}), _pipe@10 = <<"1.23"/utf8>>, _pipe@11 = gleam@int:parse(_pipe@10), gleam@should:equal(_pipe@11, {error, nil}). -spec to_base_string_test() -> nil. to_base_string_test() -> _pipe = 100, _pipe@1 = gleam@int:to_base_string(_pipe, 16), gleam@should:equal(_pipe@1, <<"64"/utf8>>), _pipe@2 = -100, _pipe@3 = gleam@int:to_base_string(_pipe@2, 16), gleam@should:equal(_pipe@3, <<"-64"/utf8>>). -spec to_float_test() -> nil. to_float_test() -> _pipe = gleam@int:to_float(1), gleam@should:equal(_pipe, 1.0), _pipe@1 = gleam@int:to_float(5), gleam@should:equal(_pipe@1, 5.0), _pipe@2 = gleam@int:to_float(0), gleam@should:equal(_pipe@2, 0.0), _pipe@3 = gleam@int:to_float(-5), gleam@should:equal(_pipe@3, -5.0). -spec compare_test() -> nil. compare_test() -> _pipe = gleam@int:compare(0, 0), gleam@should:equal(_pipe, eq), _pipe@1 = gleam@int:compare(1, 1), gleam@should:equal(_pipe@1, eq), _pipe@2 = gleam@int:compare(0, 1), gleam@should:equal(_pipe@2, lt), _pipe@3 = gleam@int:compare(-2, -1), gleam@should:equal(_pipe@3, lt), _pipe@4 = gleam@int:compare(2, 1), gleam@should:equal(_pipe@4, gt), _pipe@5 = gleam@int:compare(-1, -2), gleam@should:equal(_pipe@5, gt). -spec min_test() -> nil. min_test() -> _pipe = gleam@int:min(0, 0), gleam@should:equal(_pipe, 0), _pipe@1 = gleam@int:min(0, 1), gleam@should:equal(_pipe@1, 0), _pipe@2 = gleam@int:min(1, 0), gleam@should:equal(_pipe@2, 0), _pipe@3 = gleam@int:min(-1, 2), gleam@should:equal(_pipe@3, -1), _pipe@4 = gleam@int:min(2, -2), gleam@should:equal(_pipe@4, -2), _pipe@5 = gleam@int:min(-1, -1), gleam@should:equal(_pipe@5, -1). -spec max_test() -> nil. max_test() -> _pipe = gleam@int:max(0, 0), gleam@should:equal(_pipe, 0), _pipe@1 = gleam@int:max(0, 1), gleam@should:equal(_pipe@1, 1), _pipe@2 = gleam@int:max(1, 0), gleam@should:equal(_pipe@2, 1), _pipe@3 = gleam@int:max(-1, 2), gleam@should:equal(_pipe@3, 2), _pipe@4 = gleam@int:max(2, -2), gleam@should:equal(_pipe@4, 2), _pipe@5 = gleam@int:max(-1, -1), gleam@should:equal(_pipe@5, -1). -spec is_even_test() -> nil. is_even_test() -> _pipe = gleam@int:is_even(0), gleam@should:be_true(_pipe), _pipe@1 = gleam@int:is_even(2), gleam@should:be_true(_pipe@1), _pipe@2 = gleam@int:is_even(-2), gleam@should:be_true(_pipe@2), _pipe@3 = gleam@int:is_even(10006), gleam@should:be_true(_pipe@3), _pipe@4 = gleam@int:is_even(1), gleam@should:be_false(_pipe@4), _pipe@5 = gleam@int:is_even(-3), gleam@should:be_false(_pipe@5), _pipe@6 = gleam@int:is_even(10005), gleam@should:be_false(_pipe@6). -spec is_odd_test() -> nil. is_odd_test() -> _pipe = gleam@int:is_odd(0), gleam@should:be_false(_pipe), _pipe@1 = gleam@int:is_odd(2), gleam@should:be_false(_pipe@1), _pipe@2 = gleam@int:is_odd(-2), gleam@should:be_false(_pipe@2), _pipe@3 = gleam@int:is_odd(10006), gleam@should:be_false(_pipe@3), _pipe@4 = gleam@int:is_odd(1), gleam@should:be_true(_pipe@4), _pipe@5 = gleam@int:is_odd(-3), gleam@should:be_true(_pipe@5), _pipe@6 = gleam@int:is_odd(10005), gleam@should:be_true(_pipe@6). -spec negate_test() -> nil. negate_test() -> _pipe = gleam@int:negate(-1), gleam@should:equal(_pipe, 1), _pipe@1 = gleam@int:negate(2), gleam@should:equal(_pipe@1, -2), _pipe@2 = gleam@int:negate(0), gleam@should:equal(_pipe@2, 0). -spec sum_test() -> nil. sum_test() -> _pipe = gleam@int:sum([]), gleam@should:equal(_pipe, 0), _pipe@1 = gleam@int:sum([1, 2, 3]), gleam@should:equal(_pipe@1, 6). -spec product_test() -> nil. product_test() -> _pipe = gleam@int:product([]), gleam@should:equal(_pipe, 0), _pipe@1 = gleam@int:product([4]), gleam@should:equal(_pipe@1, 4), _pipe@2 = gleam@int:product([1, 2, 3]), gleam@should:equal(_pipe@2, 6).