Current section

Files

Jump to
gleam_stdlib gen test gleam@float_test.erl
Raw

gen/test/gleam@float_test.erl

-module(gleam@float_test).
-compile(no_auto_import).
-export([parse_test/0, to_string_test/0, clamp_test/0, compare_test/0, ceiling_test/0, floor_test/0, round_test/0, truncate_test/0, min_test/0, max_test/0, absolute_value_test/0, power_test/0, square_root_test/0, negate_test/0, sum_test/0, product_test/0]).
-spec parse_test() -> nil.
parse_test() ->
_pipe = <<"1.23"/utf8>>,
_pipe@1 = gleam@float:parse(_pipe),
gleam@should:equal(_pipe@1, {ok, 1.23}),
_pipe@2 = <<"+1.23"/utf8>>,
_pipe@3 = gleam@float:parse(_pipe@2),
gleam@should:equal(_pipe@3, {ok, 1.23}),
_pipe@4 = <<"-1.23"/utf8>>,
_pipe@5 = gleam@float:parse(_pipe@4),
gleam@should:equal(_pipe@5, {ok, -1.23}),
_pipe@6 = <<"5.0"/utf8>>,
_pipe@7 = gleam@float:parse(_pipe@6),
gleam@should:equal(_pipe@7, {ok, 5.0}),
_pipe@8 = <<"0.123456789"/utf8>>,
_pipe@9 = gleam@float:parse(_pipe@8),
gleam@should:equal(_pipe@9, {ok, 0.123456789}),
_pipe@10 = <<""/utf8>>,
_pipe@11 = gleam@float:parse(_pipe@10),
gleam@should:equal(_pipe@11, {error, nil}),
_pipe@12 = <<"what"/utf8>>,
_pipe@13 = gleam@float:parse(_pipe@12),
gleam@should:equal(_pipe@13, {error, nil}),
_pipe@14 = <<"1"/utf8>>,
_pipe@15 = gleam@float:parse(_pipe@14),
gleam@should:equal(_pipe@15, {error, nil}).
-spec to_string_test() -> nil.
to_string_test() ->
_pipe = 123.0,
_pipe@1 = gleam@float:to_string(_pipe),
gleam@should:equal(_pipe@1, <<"123.0"/utf8>>),
_pipe@2 = -8.1,
_pipe@3 = gleam@float:to_string(_pipe@2),
gleam@should:equal(_pipe@3, <<"-8.1"/utf8>>).
-spec clamp_test() -> nil.
clamp_test() ->
_pipe = gleam@float:clamp(1.4, 1.3, 1.5),
gleam@should:equal(_pipe, 1.4),
_pipe@1 = gleam@float:clamp(1.2, 1.3, 1.5),
gleam@should:equal(_pipe@1, 1.3),
_pipe@2 = gleam@float:clamp(1.6, 1.3, 1.5),
gleam@should:equal(_pipe@2, 1.5).
-spec compare_test() -> nil.
compare_test() ->
_pipe = gleam@float:compare(0.0, 0.0),
gleam@should:equal(_pipe, eq),
_pipe@1 = gleam@float:compare(0.1, 0.1),
gleam@should:equal(_pipe@1, eq),
_pipe@2 = gleam@float:compare(0.0, 0.1),
gleam@should:equal(_pipe@2, lt),
_pipe@3 = gleam@float:compare(-2.0, -1.9),
gleam@should:equal(_pipe@3, lt),
_pipe@4 = gleam@float:compare(2.0, 1.9),
gleam@should:equal(_pipe@4, gt),
_pipe@5 = gleam@float:compare(-1.9, -2.0),
gleam@should:equal(_pipe@5, gt).
-spec ceiling_test() -> nil.
ceiling_test() ->
_pipe = 8.1,
_pipe@1 = gleam@float:ceiling(_pipe),
gleam@should:equal(_pipe@1, 9.0),
_pipe@2 = -8.1,
_pipe@3 = gleam@float:ceiling(_pipe@2),
gleam@should:equal(_pipe@3, -8.0),
_pipe@4 = -8.0,
_pipe@5 = gleam@float:ceiling(_pipe@4),
gleam@should:equal(_pipe@5, -8.0).
-spec floor_test() -> nil.
floor_test() ->
_pipe = 8.1,
_pipe@1 = gleam@float:floor(_pipe),
gleam@should:equal(_pipe@1, 8.0),
_pipe@2 = -8.1,
_pipe@3 = gleam@float:floor(_pipe@2),
gleam@should:equal(_pipe@3, -9.0),
_pipe@4 = -8.0,
_pipe@5 = gleam@float:floor(_pipe@4),
gleam@should:equal(_pipe@5, -8.0).
-spec round_test() -> nil.
round_test() ->
_pipe = 8.1,
_pipe@1 = gleam@float:round(_pipe),
gleam@should:equal(_pipe@1, 8),
_pipe@2 = 8.4,
_pipe@3 = gleam@float:round(_pipe@2),
gleam@should:equal(_pipe@3, 8),
_pipe@4 = 8.499,
_pipe@5 = gleam@float:round(_pipe@4),
gleam@should:equal(_pipe@5, 8),
_pipe@6 = 8.5,
_pipe@7 = gleam@float:round(_pipe@6),
gleam@should:equal(_pipe@7, 9),
_pipe@8 = -8.1,
_pipe@9 = gleam@float:round(_pipe@8),
gleam@should:equal(_pipe@9, -8),
_pipe@10 = -7.5,
_pipe@11 = gleam@float:round(_pipe@10),
gleam@should:equal(_pipe@11, -8).
-spec truncate_test() -> nil.
truncate_test() ->
_pipe = 8.1,
_pipe@1 = gleam@float:truncate(_pipe),
gleam@should:equal(_pipe@1, 8),
_pipe@2 = 8.4,
_pipe@3 = gleam@float:truncate(_pipe@2),
gleam@should:equal(_pipe@3, 8),
_pipe@4 = 8.499,
_pipe@5 = gleam@float:truncate(_pipe@4),
gleam@should:equal(_pipe@5, 8),
_pipe@6 = 8.5,
_pipe@7 = gleam@float:truncate(_pipe@6),
gleam@should:equal(_pipe@7, 8),
_pipe@8 = -8.1,
_pipe@9 = gleam@float:truncate(_pipe@8),
gleam@should:equal(_pipe@9, -8),
_pipe@10 = -7.5,
_pipe@11 = gleam@float:truncate(_pipe@10),
gleam@should:equal(_pipe@11, -7).
-spec min_test() -> nil.
min_test() ->
_pipe = gleam@float:min(0.0, 0.0),
gleam@should:equal(_pipe, 0.0),
_pipe@1 = gleam@float:min(0.3, 1.5),
gleam@should:equal(_pipe@1, 0.3),
_pipe@2 = gleam@float:min(1.0, 0.0),
gleam@should:equal(_pipe@2, 0.0),
_pipe@3 = gleam@float:min(-1.7, 2.5),
gleam@should:equal(_pipe@3, -1.7),
_pipe@4 = gleam@float:min(-2.2, -2.2),
gleam@should:equal(_pipe@4, -2.2),
_pipe@5 = gleam@float:min(-1.0, -1.0),
gleam@should:equal(_pipe@5, -1.0),
_pipe@6 = gleam@float:min(-1.1, -1.0),
gleam@should:equal(_pipe@6, -1.1).
-spec max_test() -> nil.
max_test() ->
_pipe = gleam@float:max(0.0, 0.0),
gleam@should:equal(_pipe, 0.0),
_pipe@1 = gleam@float:max(0.3, 1.5),
gleam@should:equal(_pipe@1, 1.5),
_pipe@2 = gleam@float:max(1.0, 0.0),
gleam@should:equal(_pipe@2, 1.0),
_pipe@3 = gleam@float:max(-1.7, 2.5),
gleam@should:equal(_pipe@3, 2.5),
_pipe@4 = gleam@float:max(-2.2, -2.2),
gleam@should:equal(_pipe@4, -2.2),
_pipe@5 = gleam@float:max(-1.0, -1.0),
gleam@should:equal(_pipe@5, -1.0),
_pipe@6 = gleam@float:max(-1.1, -1.0),
gleam@should:equal(_pipe@6, -1.0).
-spec absolute_value_test() -> nil.
absolute_value_test() ->
_pipe = gleam@float:absolute_value(-1.0),
gleam@should:equal(_pipe, 1.0),
_pipe@1 = gleam@float:absolute_value(-20.6),
gleam@should:equal(_pipe@1, 20.6),
_pipe@2 = gleam@float:absolute_value(0.0),
gleam@should:equal(_pipe@2, 0.0),
_pipe@3 = gleam@float:absolute_value(1.0),
gleam@should:equal(_pipe@3, 1.0),
_pipe@4 = gleam@float:absolute_value(25.2),
gleam@should:equal(_pipe@4, 25.2).
-spec power_test() -> nil.
power_test() ->
_pipe = gleam@float:power(2.0, 2.0),
gleam@should:equal(_pipe, 4.0),
_pipe@1 = gleam@float:power(-5.0, 3.0),
gleam@should:equal(_pipe@1, -125.0),
_pipe@2 = gleam@float:power(10.5, 0.0),
gleam@should:equal(_pipe@2, 1.0),
_pipe@3 = gleam@float:power(16.0, 0.5),
gleam@should:equal(_pipe@3, 4.0),
_pipe@4 = gleam@float:power(2.0, -1.0),
gleam@should:equal(_pipe@4, 0.5).
-spec square_root_test() -> nil.
square_root_test() ->
_pipe = gleam@float:square_root(4.0),
gleam@should:equal(_pipe, {ok, 2.0}),
_pipe@1 = gleam@float:square_root(16.0),
gleam@should:equal(_pipe@1, {ok, 4.0}),
_pipe@2 = gleam@float:square_root(0.0),
gleam@should:equal(_pipe@2, {ok, 0.0}),
_pipe@3 = gleam@float:square_root(-4.0),
gleam@should:equal(_pipe@3, {error, nil}).
-spec negate_test() -> nil.
negate_test() ->
_pipe = gleam@float:negate(-1.0),
gleam@should:equal(_pipe, 1.0),
_pipe@1 = gleam@float:negate(2.0),
gleam@should:equal(_pipe@1, -2.0),
_pipe@2 = gleam@float:negate(0.0),
gleam@should:equal(_pipe@2, 0.0).
-spec sum_test() -> nil.
sum_test() ->
_pipe = gleam@float:sum([]),
gleam@should:equal(_pipe, 0.0),
_pipe@1 = gleam@float:sum([1.0, 2.2, 3.3]),
gleam@should:equal(_pipe@1, 6.5).
-spec product_test() -> nil.
product_test() ->
_pipe = gleam@float:product([]),
gleam@should:equal(_pipe, 0.0),
_pipe@1 = gleam@float:product([4.0]),
gleam@should:equal(_pipe@1, 4.0),
_pipe@2 = gleam@float:product([2.5, 3.2, 4.2]),
gleam@should:equal(_pipe@2, 33.6).