Current section

Files

Jump to
gleam_stdlib gen test gleam@option_test.erl
Raw

gen/test/gleam@option_test.erl

-module(gleam@option_test).
-compile(no_auto_import).
-export([all_test/0, is_some_test/0, is_none_test/0, to_result_test/0, from_result_test/0, unwrap_option_test/0, map_option_test/0, flatten_option_test/0, then_option_test/0, or_option_test/0, values_test/0]).
-spec all_test() -> nil.
all_test() ->
_pipe = gleam@option:all([{some, 1}, {some, 2}, {some, 3}]),
gleam@should:equal(_pipe, {some, [1, 2, 3]}),
_pipe@1 = gleam@option:all([{some, 1}, none, {some, 3}]),
gleam@should:equal(_pipe@1, none).
-spec is_some_test() -> nil.
is_some_test() ->
_pipe = gleam@option:is_some({some, 1}),
gleam@should:be_true(_pipe),
_pipe@1 = gleam@option:is_some(none),
gleam@should:be_false(_pipe@1).
-spec is_none_test() -> nil.
is_none_test() ->
_pipe = gleam@option:is_none({some, 1}),
gleam@should:be_false(_pipe),
_pipe@1 = gleam@option:is_none(none),
gleam@should:be_true(_pipe@1).
-spec to_result_test() -> nil.
to_result_test() ->
_pipe = gleam@option:to_result({some, 1}, <<"possible_error"/utf8>>),
gleam@should:equal(_pipe, {ok, 1}),
_pipe@1 = gleam@option:to_result(none, <<"possible_error"/utf8>>),
gleam@should:equal(_pipe@1, {error, <<"possible_error"/utf8>>}).
-spec from_result_test() -> nil.
from_result_test() ->
_pipe = gleam@option:from_result({ok, 1}),
gleam@should:equal(_pipe, {some, 1}),
_pipe@1 = gleam@option:from_result({error, <<"some_error"/utf8>>}),
gleam@should:equal(_pipe@1, none).
-spec unwrap_option_test() -> nil.
unwrap_option_test() ->
_pipe = gleam@option:unwrap({some, 1}, 0),
gleam@should:equal(_pipe, 1),
_pipe@1 = gleam@option:unwrap(none, 0),
gleam@should:equal(_pipe@1, 0).
-spec map_option_test() -> nil.
map_option_test() ->
_pipe = {some, 1},
_pipe@1 = gleam@option:map(_pipe, fun(X) -> X + 1 end),
gleam@should:equal(_pipe@1, {some, 2}),
_pipe@2 = {some, 1},
_pipe@3 = gleam@option:map(_pipe@2, fun(_) -> <<"2"/utf8>> end),
gleam@should:equal(_pipe@3, {some, <<"2"/utf8>>}),
_pipe@4 = none,
_pipe@5 = gleam@option:map(_pipe@4, fun(X@1) -> X@1 + 1 end),
gleam@should:equal(_pipe@5, none).
-spec flatten_option_test() -> nil.
flatten_option_test() ->
_pipe = {some, {some, 1}},
_pipe@1 = gleam@option:flatten(_pipe),
gleam@should:equal(_pipe@1, {some, 1}),
_pipe@2 = {some, none},
_pipe@3 = gleam@option:flatten(_pipe@2),
gleam@should:equal(_pipe@3, none),
_pipe@4 = none,
_pipe@5 = gleam@option:flatten(_pipe@4),
gleam@should:equal(_pipe@5, none).
-spec then_option_test() -> nil.
then_option_test() ->
_pipe = {some, 1},
_pipe@1 = gleam@option:then(_pipe, fun(X) -> {some, X + 1} end),
gleam@should:equal(_pipe@1, {some, 2}),
_pipe@2 = {some, 1},
_pipe@3 = gleam@option:then(_pipe@2, fun(_) -> {some, <<"2"/utf8>>} end),
gleam@should:equal(_pipe@3, {some, <<"2"/utf8>>}),
_pipe@4 = none,
_pipe@5 = gleam@option:then(_pipe@4, fun(X@1) -> {some, X@1 + 1} end),
gleam@should:equal(_pipe@5, none).
-spec or_option_test() -> nil.
or_option_test() ->
_pipe = {some, 1},
_pipe@1 = gleam@option:'or'(_pipe, {some, 2}),
gleam@should:equal(_pipe@1, {some, 1}),
_pipe@2 = {some, 1},
_pipe@3 = gleam@option:'or'(_pipe@2, none),
gleam@should:equal(_pipe@3, {some, 1}),
_pipe@4 = none,
_pipe@5 = gleam@option:'or'(_pipe@4, {some, 2}),
gleam@should:equal(_pipe@5, {some, 2}),
_pipe@6 = none,
_pipe@7 = gleam@option:'or'(_pipe@6, none),
gleam@should:equal(_pipe@7, none).
-spec values_test() -> nil.
values_test() ->
_pipe = gleam@option:values([{some, 1}, none, {some, 3}]),
gleam@should:equal(_pipe, [1, 3]).