Packages

erlte

0.1.0
0.1.0

Fast ERLang TEmplate library with bundling support for HTML, JavaScript and CSS files

HexDocs

Current section

Files

Jump to
Readme
1 Version
0 Dependencies
Dependants
Files
Activity
erlte test eunit_renderer.erl
Raw

test/eunit_renderer.erl 

-module(eunit_renderer).



-include_lib("eunit/include/eunit.hrl").

-include("../include/erlte.hrl").



-define(ERLTE_EUNIT_TEST_VARIABLES, [

    {atom, '[atom]'},

    {"list", "[list]"}, 

    {<<"binary">>, <<"[binary]">>},

    {"integer", 1},

    {"float", {2.34670, [{decimals, 1}, compact]}},

    {"deeplist", ["[", $d, "ee", "p", ["li", ["s", ["t", "]"]]]]},

    {"duplicate", "[ERROR]"},

    {"duplicate", "[duplicate]"},

    {"repeated", "[repeated]"},

    {"html_entities", "[<>\"&]"},

    {"missing_from_template", "[?]"}

]).



-define(ERLTE_EUNIT_TEMPLATE_FRAGMENTS_1, [

    <<"BEGIN">>,          

    <<"+">>,             

    {v, <<"atom">>},

    <<"+">>, 

    {v, <<"list">>},

    <<"+">>,  

    {v, <<"binary">>},

    <<"+">>,  

    {v, <<"integer">>},

    <<"+">>,  

    {v, <<"float">>},

    <<"+">>,  

    <<"">>,

    <<"+">>,            

    {v, <<"deeplist">>}, 

    <<"+">>,

    {v, <<"duplicate">>},

    <<"+">>, 

    {v, <<"repeated">>},             

    <<"+">>,

    {v, <<"repeated">>},

    <<"+">>,            

    {v, <<"repeated">>},                        

    <<"+">>, 

    {v, <<"html_entities">>},                        

    <<"+">>, 

    {v, <<"missing1">>},

    <<"+">>, 

    {v, <<"missing2">>},

    <<"+">>, 

    {v, <<"missing3">>},

    <<"+">>,                            

    <<"END">>

]).



-define(ERLTE_EUNIT_TEMPLATE_1, #erlte_compiled{

    format = txt,

    fragments = ?ERLTE_EUNIT_TEMPLATE_FRAGMENTS_1

}).



-define(ERLTE_EUNIT_TEMPLATE_2, #erlte_compiled{

    format = html,

    fragments = ?ERLTE_EUNIT_TEMPLATE_FRAGMENTS_1

}).



render_test_() ->



    {ok, R1} = erlte_renderer:render(?ERLTE_EUNIT_TEMPLATE_1, ?ERLTE_EUNIT_TEST_VARIABLES),

    {ok, R2} = erlte_renderer:render(?ERLTE_EUNIT_TEMPLATE_2, ?ERLTE_EUNIT_TEST_VARIABLES),

    {ok, Compiled = #erlte_compiled{fragments = Fragments}} = erlte_renderer:render_to_compiled(?ERLTE_EUNIT_TEMPLATE_2, ?ERLTE_EUNIT_TEST_VARIABLES),

    {ok, R2} = erlte_renderer:render(Compiled, ?ERLTE_EUNIT_TEST_VARIABLES),



    [

        ?_assert(R1 =:= <<"BEGIN+[atom]+[list]+[binary]+1+2.3++[deeplist]+[duplicate]+[repeated]+[repeated]+[repeated]+[<>\"&]+missing1+missing2+missing3+END">>),

        ?_assert(R2 =:= <<"BEGIN+[atom]+[list]+[binary]+1+2.3++[deeplist]+[duplicate]+[repeated]+[repeated]+[repeated]+[&lt;&gt;&quot;&amp;]+missing1+missing2+missing3+END">>),

        ?_assert(Fragments =:= [<<"BEGIN+[atom]+[list]+[binary]+1+2.3++[deeplist]+[duplicate]+[repeated]+[repeated]+[repeated]+[&lt;&gt;&quot;&amp;]+">>,

                              {v,<<"missing1">>},

                              <<"+">>,

                              {v,<<"missing2">>},

                              <<"+">>,

                              {v,<<"missing3">>},

                              <<"+END">>])

    ].