Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
home:Ledest:erlang:20
efene
efene-0.99.2-test.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File efene-0.99.2-test.patch of Package efene
diff -Ndurp efene-0.99.2/test/fn_SUITE.erl efene-0.99.2-test/test/fn_SUITE.erl --- efene-0.99.2/test/fn_SUITE.erl 2018-04-20 19:16:43.000000000 +0300 +++ efene-0.99.2-test/test/fn_SUITE.erl 2019-09-14 20:38:55.282824392 +0300 @@ -55,7 +55,7 @@ can_expand_macro_str(Config) -> {ok, [{string, _, "42 - 43"}]} = exp(Macros, {'Text', 1}, #{'Val' => AstNode}), {ok, [Ast]} = exp(Macros, {'TESTCALL', 1}, #{'Call' => AstNode}), - "io:format(\"Call ~s: ~w~n\", [\"42 - 43\",42 - 43])" = lists:flatten(erl_pp:expr(Ast)). + "io:format(\"Call ~s: ~w~n\",[\"42 - 43\",42 - 43])" = re:replace(erl_pp:expr(Ast), ", ", ",", [global, {return, list}]). can_expand_macro_lex_str(Config) -> MacroPath = macro_path(Config), @@ -69,14 +69,14 @@ can_expand_simple_inner_macro_call(Confi {ok, Macros} = fn_erl_macro:macro_defs(MacroPath), AstNode = {op, 1, '-', {integer, 1, 42}, {integer, 1, 43}}, {ok, [Ast]} = exp(Macros, {'Int', 1}, #{'Val' => AstNode}), - "{val,_,integer,42 - 43}" = lists:flatten(erl_pp:expr(Ast)), + "{val,_,integer,42 - 43}" = re:replace(erl_pp:expr(Ast), ", ", ",", [global, {return, list}]), {ok, [Ast1]} = exp(Macros, {'Int', 2}, #{'Line' => AstNode, 'Val' => {integer, 1, 12}}), - "{val,42 - 43,integer,12}" = lists:flatten(erl_pp:expr(Ast1)). + "{val,42 - 43,integer,12}" = re:replace(erl_pp:expr(Ast1), ", ", ",", [global, {return, list}]). can_expand_inner_macro_call_in_expr(Config) -> MacroPath = macro_path(Config), {ok, Macros} = fn_erl_macro:macro_defs(MacroPath), AstNode = {op, 1, '-', {integer, 1, 42}, {integer, 1, 43}}, {ok, [Ast]} = exp(Macros, {'Int1', 2}, #{'Line' => AstNode, 'Val' => {integer, 1, 12}}), - "1 + {val,42 - 43,integer,12}" = lists:flatten(erl_pp:expr(Ast)). + "1 + {val,42 - 43,integer,12}" = re:replace(erl_pp:expr(Ast), ", ", ",", [global, {return, list}]).
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor