erlang-punch/erml
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update

Browse Source
This commit is contained in:
niamtokik
2023-11-30 20:03:45 +00:00
parent 5fff293731
commit 0d105f4cfd
4 changed files with 91 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
rebar.lock Normal file
View File

@@ -0,0 +1 @@
[].

2
src/erml_generator.erl → src/erml_serializer.erl
View File

@@ -2,7 +2,7 @@
%%% @doc draft.
%%% @end
%%%===================================================================
-module(erml_generator).
-module(erml_serializer).
-export([compile/3, compile/4]).
-export([flatten/2]).

4
src/erml_html_tag.erl → src/erml_tag.erl
View File

@@ -77,7 +77,7 @@
%%%
%%% @end
%%%===================================================================
-module(erml_html_tag).
-module(erml_tag).
-export([create/1, create/2]).
-export([init/1]).
-export([tag/3]).
@@ -97,7 +97,7 @@
%%
%%--------------------------------------------------------------------
create(Data) -> create(Data, #{}).
create(Data, Opts) -> erml_generator:compile(?MODULE, Opts, Data).
create(Data, Opts) -> erml_serializer:compile(?MODULE, Opts, Data).
%%--------------------------------------------------------------------
%%

90
test/erml_SUITE.erl
View File

@@ -99,14 +99,14 @@ groups() ->
%% @end
%%--------------------------------------------------------------------
all() ->
[my_test_case].
[tag].
%%--------------------------------------------------------------------
%% @spec TestCase() -> Info
%% Info = [tuple()]
%% @end
%%--------------------------------------------------------------------
my_test_case() ->
tag() ->
[].
%%--------------------------------------------------------------------
@@ -118,5 +118,89 @@ my_test_case() ->
%% Comment = term()
%% @end
%%--------------------------------------------------------------------
my_test_case(_Config) ->
tag(_Config) ->
% empty document
{ok, <<>>} = erml_tag:create([]),
{ok, <<>>} = erml_tag:create(<<>>),
% simple tag without attributes
{ok, <<"<html></html>">>} = erml_tag:create({html, []}),
{ok, <<"<html></html>">>} = erml_tag:create({<<"html">>, []}),
{ok, <<"<html></html>">>} = erml_tag:create({"html", []}),
{ok, <<"<html><body></body></html>">>}
= erml_tag:create({html, {body, []}}),
% simple tag with attributes
{ok, <<"<html></html>">>} = erml_tag:create({html, #{}, []}),
{ok, <<"<html></html>">>} = erml_tag:create({<<"html">>, #{}, []}),
{ok, <<"<html></html>">>} = erml_tag:create({"html", #{}, []}),
{ok, <<"<html><body></body></html>">>}
= erml_tag:create({html, #{}, {body, #{}, []}}),
% simple tag with attributes support.
{ok, <<"<html><body class=\"test\"></body></html>">>}
= erml_tag:create({html, #{}, {body, #{class => "test"}, []}}),
{ok, <<"<html><body class=\"test\"></body></html>">>}
= erml_tag:create({html, #{}, {body, #{class => test}, []}}),
{ok, <<"<html><body class=\"test\"></body></html>">>}
= erml_tag:create({html, #{}, {body, #{class => <<"test">>}, []}}),
% content and entities support
{ok, <<"<html><body>test</body></html>">>}
= erml_tag:create({html, {body, <<"test">>}}),
{ok, <<"<html><body>test</body></html>">>}
= erml_tag:create({html, {body, test}}),
{ok, <<"<html><body>123</body></html>">>}
= erml_tag:create({html, {body, 123}}),
{ok, <<"<html><body>1.00000000000000000000e&plus;00</body></html>">>}
= erml_tag:create({html, {body, 1.0}}),
{ok, <<"<html><body><p>that&apos;s a test!</p></body></html>">>}
= erml_tag:create([{html, {body, {p, [<<"that's a test!">>]}}}]),
% dynamic template (gen_server call by default)
{ok, [ <<"<html><body>">>
, {gen_server,call,server,paragraph,1000}
, <<"</body></html>">>
]
} = erml_tag:create({html, {body, {call, server, paragraph}}}),
% dynamic template (gen_server call)
{ok, [ <<"<html><body>">>
, {gen_server,call,server,paragraph,1000}
, <<"</body></html>">>
]
} = erml_tag:create({html, {body, {gen_server, call, server, paragraph}}}),
% dynamic template (gen_statem call)
{ok, [ <<"<html><body>">>
, {gen_statem,call,server,paragraph,1000}
, <<"</body></html>">>
]
} = erml_tag:create({html, {body, {gen_statem, call, server, paragraph}}}),
% special tags
{ok, <<"<pre></pre>">>} = erml_tag:create({pre, []}),
{ok, <<"<pre>test\ndata</pre>">>}
= erml_tag:create({pre, ["test", "data"]}),
{ok, <<"<pre><code>test\ndata</code></pre>">>}
= erml_tag:create({pre, {code, ["test", "data"]}}),
% explicit content with some features
{ok, <<"test">>}
= erml_tag:create({content, "test"}),
{ok, <<"test&amp;">>}
= erml_tag:create({content, "test&"}),
{ok, <<"test&apos;">>}
= erml_tag:create({content, <<"test'">>}),
{ok,<<"test">>}
= erml_tag:create({content, test}),
{ok,<<"test&">>}
= erml_tag:create({content, <<"test&">>, #{entities => false}}),
ok.
%%--------------------------------------------------------------------
%%
%%--------------------------------------------------------------------
simple_generator() ->
{ok, <<"test">>}.