-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() -> gleam@should:expectation().
absolute_value_test() ->
    gleam@should:equal(gleam@int:absolute_value(123), 123),
    gleam@should:equal(gleam@int:absolute_value(-123), 123).

-spec clamp_test() -> gleam@should:expectation().
clamp_test() ->
    gleam@should:equal(gleam@int:clamp(40, 30, 50), 40),
    gleam@should:equal(gleam@int:clamp(20, 30, 50), 30),
    gleam@should:equal(gleam@int:clamp(60, 30, 50), 50),
    gleam@should:equal(gleam@int:clamp(100, 50, 30), 50).

-spec to_string_test() -> gleam@should:expectation().
to_string_test() ->
    gleam@should:equal(gleam@int:to_string(123), <<"123"/utf8>>),
    gleam@should:equal(gleam@int:to_string(-123), <<"-123"/utf8>>),
    gleam@should:equal(gleam@int:to_string(123), <<"123"/utf8>>).

-spec parse_test() -> gleam@should:expectation().
parse_test() ->
    gleam@should:equal(gleam@int:parse(<<"123"/utf8>>), {ok, 123}),
    gleam@should:equal(gleam@int:parse(<<"-123"/utf8>>), {ok, -123}),
    gleam@should:equal(gleam@int:parse(<<"0123"/utf8>>), {ok, 123}),
    gleam@should:equal(gleam@int:parse(<<""/utf8>>), {error, nil}),
    gleam@should:equal(gleam@int:parse(<<"what"/utf8>>), {error, nil}),
    gleam@should:equal(gleam@int:parse(<<"1.23"/utf8>>), {error, nil}).

-spec to_base_string_test() -> gleam@should:expectation().
to_base_string_test() ->
    gleam@should:equal(gleam@int:to_base_string(100, 16), <<"64"/utf8>>),
    gleam@should:equal(gleam@int:to_base_string(-100, 16), <<"-64"/utf8>>).

-spec to_float_test() -> gleam@should:expectation().
to_float_test() ->
    gleam@should:equal(gleam@int:to_float(1), 1.0),
    gleam@should:equal(gleam@int:to_float(5), 5.0),
    gleam@should:equal(gleam@int:to_float(0), 0.0),
    gleam@should:equal(gleam@int:to_float(-5), -5.0).

-spec compare_test() -> gleam@should:expectation().
compare_test() ->
    gleam@should:equal(gleam@int:compare(0, 0), eq),
    gleam@should:equal(gleam@int:compare(1, 1), eq),
    gleam@should:equal(gleam@int:compare(0, 1), lt),
    gleam@should:equal(gleam@int:compare(-2, -1), lt),
    gleam@should:equal(gleam@int:compare(2, 1), gt),
    gleam@should:equal(gleam@int:compare(-1, -2), gt).

-spec min_test() -> gleam@should:expectation().
min_test() ->
    gleam@should:equal(gleam@int:min(0, 0), 0),
    gleam@should:equal(gleam@int:min(0, 1), 0),
    gleam@should:equal(gleam@int:min(1, 0), 0),
    gleam@should:equal(gleam@int:min(-1, 2), -1),
    gleam@should:equal(gleam@int:min(2, -2), -2),
    gleam@should:equal(gleam@int:min(-1, -1), -1).

-spec max_test() -> gleam@should:expectation().
max_test() ->
    gleam@should:equal(gleam@int:max(0, 0), 0),
    gleam@should:equal(gleam@int:max(0, 1), 1),
    gleam@should:equal(gleam@int:max(1, 0), 1),
    gleam@should:equal(gleam@int:max(-1, 2), 2),
    gleam@should:equal(gleam@int:max(2, -2), 2),
    gleam@should:equal(gleam@int:max(-1, -1), -1).

-spec is_even_test() -> gleam@should:expectation().
is_even_test() ->
    gleam@should:be_true(gleam@int:is_even(0)),
    gleam@should:be_true(gleam@int:is_even(2)),
    gleam@should:be_true(gleam@int:is_even(-2)),
    gleam@should:be_true(gleam@int:is_even(10006)),
    gleam@should:be_false(gleam@int:is_even(1)),
    gleam@should:be_false(gleam@int:is_even(-3)),
    gleam@should:be_false(gleam@int:is_even(10005)).

-spec is_odd_test() -> gleam@should:expectation().
is_odd_test() ->
    gleam@should:be_false(gleam@int:is_odd(0)),
    gleam@should:be_false(gleam@int:is_odd(2)),
    gleam@should:be_false(gleam@int:is_odd(-2)),
    gleam@should:be_false(gleam@int:is_odd(10006)),
    gleam@should:be_true(gleam@int:is_odd(1)),
    gleam@should:be_true(gleam@int:is_odd(-3)),
    gleam@should:be_true(gleam@int:is_odd(10005)).

-spec negate_test() -> gleam@should:expectation().
negate_test() ->
    gleam@should:equal(gleam@int:negate(-1), 1),
    gleam@should:equal(gleam@int:negate(2), -2),
    gleam@should:equal(gleam@int:negate(0), 0).

-spec sum_test() -> gleam@should:expectation().
sum_test() ->
    gleam@should:equal(gleam@int:sum([]), 0),
    gleam@should:equal(gleam@int:sum([1, 2, 3]), 6).

-spec product_test() -> gleam@should:expectation().
product_test() ->
    gleam@should:equal(gleam@int:product([]), 0),
    gleam@should:equal(gleam@int:product([4]), 4),
    gleam@should:equal(gleam@int:product([1, 2, 3]), 6).