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