Current section

Files

Jump to
gleam_stdlib gen test gleam@int_test.erl
Raw

gen/test/gleam@int_test.erl

-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).