diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 19:31:52 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 19:31:52 +0200 |
| commit | 3225cf459464bbb1128217bcbd4f0c26c792b3e0 (patch) | |
| tree | 4ff314c3bb010fcf41c2e65dcfb497f7be8fa671 /lib/syntax_tools/test | |
| parent | 6e245477da37b82056b41d6d2b6fe08e8407bd72 (diff) | |
| download | otp-3225cf459464bbb1128217bcbd4f0c26c792b3e0.tar.gz otp-3225cf459464bbb1128217bcbd4f0c26c792b3e0.tar.bz2 otp-3225cf459464bbb1128217bcbd4f0c26c792b3e0.zip | |
syntax_tools: Strengthen erl_recomment tests
Also erl_comment_scan tests.
Diffstat (limited to 'lib/syntax_tools/test')
| -rw-r--r-- | lib/syntax_tools/test/syntax_tools_SUITE.erl | 36 |
1 files changed, 34 insertions, 2 deletions
diff --git a/lib/syntax_tools/test/syntax_tools_SUITE.erl b/lib/syntax_tools/test/syntax_tools_SUITE.erl index 30e5e7b713..a79d8d72bf 100644 --- a/lib/syntax_tools/test/syntax_tools_SUITE.erl +++ b/lib/syntax_tools/test/syntax_tools_SUITE.erl @@ -25,13 +25,15 @@ %% Test cases -export([app_test/1,appup_test/1,smoke_test/1,revert/1,revert_map/1, - t_abstract_type/1,t_erl_parse_type/1,t_epp_dodger/1]). + t_abstract_type/1,t_erl_parse_type/1,t_epp_dodger/1, + t_comment_scan/1]). suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> [app_test,appup_test,smoke_test,revert,revert_map, - t_abstract_type,t_erl_parse_type,t_epp_dodger]. + t_abstract_type,t_erl_parse_type,t_epp_dodger, + t_comment_scan]. groups() -> []. @@ -205,6 +207,36 @@ t_epp_dodger(Config) when is_list(Config) -> ok = test_epp_dodger(Filenames,DataDir,PrivDir), ok. +t_comment_scan(Config) when is_list(Config) -> + DataDir = ?config(data_dir, Config), + Filenames = ["syntax_tools_SUITE_test_module.erl", + "syntax_tools_test.erl"], + ok = test_comment_scan(Filenames,DataDir), + ok. + +test_comment_scan([],_) -> ok; +test_comment_scan([File|Files],DataDir) -> + Filename = filename:join(DataDir,File), + {ok, Fs0} = epp:parse_file(Filename, [], []), + Comments = erl_comment_scan:file(Filename), + Fun = fun(Node) -> + case erl_syntax:is_form(Node) of + true -> + C1 = erl_syntax:comment(2,[" This is a form."]), + Node1 = erl_syntax:add_precomments([C1],Node), + Node1; + false -> + Node + end + end, + Fs1 = erl_recomment:recomment_forms(Fs0, Comments), + Fs2 = erl_syntax_lib:map(Fun, Fs1), + io:format("File: ~s~n", [Filename]), + io:put_chars(erl_prettypr:format(Fs2, [{paper, 120}, + {ribbon, 110}])), + test_comment_scan(Files,DataDir). + + test_epp_dodger([], _, _) -> ok; test_epp_dodger([Filename|Files],DataDir,PrivDir) -> io:format("Parsing ~p~n", [Filename]), |