Current section

Files

Jump to
gleam_erlang gen test gleam@erlang@atom_test.erl
Raw

gen/test/gleam@erlang@atom_test.erl

-module(gleam@erlang@atom_test).
-compile(no_auto_import).
-export([from_string_test/0, create_from_string_test/0, to_string_test/0, from_dynamic_test/0]).
-spec from_string_test() -> {ok, gleam@erlang@atom:atom_()} |
{error, gleam@erlang@atom:from_string_error()}.
from_string_test() ->
gleam@erlang@atom:create_from_string(<<"this is an existing atom"/utf8>>),
{ok, _@2} = case gleam@erlang@atom:from_string(
<<"this is an existing atom"/utf8>>
) of
{ok, _@1} -> {ok, _@1};
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_string_test"/utf8>>,
line => 7})
end,
{error, atom_not_loaded} = case gleam@erlang@atom:from_string(
<<"this is not an atom we have seen before"/utf8>>
) of
{error, atom_not_loaded} -> {error, atom_not_loaded};
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_string_test"/utf8>>,
line => 9})
end.
-spec create_from_string_test() -> boolean().
create_from_string_test() ->
Result = begin
_pipe = <<"ok"/utf8>>,
_pipe@1 = gleam@erlang@atom:create_from_string(_pipe),
{ok, _pipe@1}
end,
true = case Result =:= gleam@erlang@atom:from_string(<<"ok"/utf8>>) of
true -> true;
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"create_from_string_test"/utf8>>,
line => 18})
end,
Result@1 = begin
_pipe@2 = <<"expect"/utf8>>,
_pipe@3 = gleam@erlang@atom:create_from_string(_pipe@2),
{ok, _pipe@3}
end,
true = case Result@1 =:= gleam@erlang@atom:from_string(<<"expect"/utf8>>) of
true -> true;
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"create_from_string_test"/utf8>>,
line => 24})
end,
Result@2 = begin
_pipe@4 = <<"this is another atom we have not seen before"/utf8>>,
_pipe@5 = gleam@erlang@atom:create_from_string(_pipe@4),
{ok, _pipe@5}
end,
true = case Result@2 =:= gleam@erlang@atom:from_string(
<<"this is another atom we have not seen before"/utf8>>
) of
true -> true;
_try@2 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@2,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"create_from_string_test"/utf8>>,
line => 30})
end.
-spec to_string_test() -> binary().
to_string_test() ->
<<"ok"/utf8>> = case gleam@erlang@atom:to_string(
gleam@erlang@atom:create_from_string(<<"ok"/utf8>>)
) of
<<"ok"/utf8>> -> <<"ok"/utf8>>;
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"to_string_test"/utf8>>,
line => 35})
end,
<<"expect"/utf8>> = case gleam@erlang@atom:to_string(
gleam@erlang@atom:create_from_string(<<"expect"/utf8>>)
) of
<<"expect"/utf8>> -> <<"expect"/utf8>>;
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"to_string_test"/utf8>>,
line => 37})
end.
-spec from_dynamic_test() -> {ok, gleam@erlang@atom:atom_()} |
{error, gleam@dynamic:decode_error()}.
from_dynamic_test() ->
Result = begin
_pipe = <<""/utf8>>,
_pipe@1 = gleam@erlang@atom:create_from_string(_pipe),
_pipe@2 = gleam@dynamic:from(_pipe@1),
gleam@erlang@atom:from_dynamic(_pipe@2)
end,
true = case Result =:= {ok,
gleam@erlang@atom:create_from_string(<<""/utf8>>)} of
true -> true;
_try ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_dynamic_test"/utf8>>,
line => 46})
end,
Result@1 = begin
_pipe@3 = <<"ok"/utf8>>,
_pipe@4 = gleam@erlang@atom:create_from_string(_pipe@3),
_pipe@5 = gleam@dynamic:from(_pipe@4),
gleam@erlang@atom:from_dynamic(_pipe@5)
end,
true = case Result@1 =:= {ok,
gleam@erlang@atom:create_from_string(
<<"ok"/utf8>>
)} of
true -> true;
_try@1 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@1,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_dynamic_test"/utf8>>,
line => 53})
end,
{error, {decode_error, <<"Atom"/utf8>>, <<"Int"/utf8>>}} = case begin
_pipe@6 = 1,
_pipe@7 = gleam@dynamic:from(_pipe@6),
gleam@erlang@atom:from_dynamic(_pipe@7)
end of
{error, {decode_error, <<"Atom"/utf8>>, <<"Int"/utf8>>}} -> {error,
{decode_error,
<<"Atom"/utf8>>,
<<"Int"/utf8>>}};
_try@2 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@2,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_dynamic_test"/utf8>>,
line => 55})
end,
{error, {decode_error, <<"Atom"/utf8>>, <<"List"/utf8>>}} = case begin
_pipe@8 = [],
_pipe@9 = gleam@dynamic:from(_pipe@8),
gleam@erlang@atom:from_dynamic(_pipe@9)
end of
{error, {decode_error, <<"Atom"/utf8>>, <<"List"/utf8>>}} -> {error,
{decode_error,
<<"Atom"/utf8>>,
<<"List"/utf8>>}};
_try@3 ->
erlang:error(#{gleam_error => assert,
message => <<"Assertion pattern match failed"/utf8>>,
value => _try@3,
module => <<"gleam/erlang/atom_test"/utf8>>,
function => <<"from_dynamic_test"/utf8>>,
line => 60})
end.