Current section

Files

Jump to
gserde src internal@foo_json_test.erl
Raw

src/internal@foo_json_test.erl

-module(internal@foo_json_test).
-compile([no_auto_import, nowarn_unused_vars, nowarn_unused_function, nowarn_nomatch, inline]).
-define(FILEPATH, "src/internal/foo_json_test.gleam").
-export([main/0]).
-if(?OTP_RELEASE >= 27).
-define(MODULEDOC(Str), -moduledoc(Str)).
-define(DOC(Str), -doc(Str)).
-else.
-define(MODULEDOC(Str), -compile([])).
-define(DOC(Str), -compile([])).
-endif.
?MODULEDOC(false).
-file("src/internal/foo_json_test.gleam", 8).
?DOC(false).
-spec main() -> nil.
main() ->
Foo_a = internal@foo:fixture_foo(),
Foo_str = begin
_pipe = Foo_a,
internal@foo_json:to_string(_pipe)
end,
Foo_b = begin
_pipe@1 = Foo_str,
_pipe@2 = internal@foo_json:from_string(_pipe@1),
gleam@result:lazy_unwrap(
_pipe@2,
fun() -> erlang:error(#{gleam_error => panic,
message => <<"`panic` expression evaluated."/utf8>>,
file => <<?FILEPATH/utf8>>,
module => <<"internal/foo_json_test"/utf8>>,
function => <<"main"/utf8>>,
line => 15}) end
)
end,
case Foo_a =:= Foo_b of
true ->
gleam_stdlib:println(<<"foos equal"/utf8>>);
false ->
gleam_stdlib:println(gleam@string:inspect({<<"a"/utf8>>, Foo_a})),
gleam_stdlib:println(gleam@string:inspect({<<"b"/utf8>>, Foo_b})),
erlang:error(#{gleam_error => panic,
message => <<"not equal"/utf8>>,
file => <<?FILEPATH/utf8>>,
module => <<"internal/foo_json_test"/utf8>>,
function => <<"main"/utf8>>,
line => 23})
end,
gleam_stdlib:print(Foo_str).