diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 19:53:23 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-10-24 20:04:43 +0200 |
| commit | fd0e093463831cc20b0bda7c8ed24bfd31edccee (patch) | |
| tree | d5599dfff4d378260bb0b4acfa275e17be60d21e /lib/syntax_tools/test/syntax_tools_SUITE.erl | |
| parent | 3225cf459464bbb1128217bcbd4f0c26c792b3e0 (diff) | |
| download | otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.tar.gz otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.tar.bz2 otp-fd0e093463831cc20b0bda7c8ed24bfd31edccee.zip | |
syntax_tools: Strengthen igor tests
Simple test of igor:merge/3
Diffstat (limited to 'lib/syntax_tools/test/syntax_tools_SUITE.erl')
| -rw-r--r-- | lib/syntax_tools/test/syntax_tools_SUITE.erl | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/lib/syntax_tools/test/syntax_tools_SUITE.erl b/lib/syntax_tools/test/syntax_tools_SUITE.erl index a79d8d72bf..3c6b33f459 100644 --- a/lib/syntax_tools/test/syntax_tools_SUITE.erl +++ b/lib/syntax_tools/test/syntax_tools_SUITE.erl @@ -26,14 +26,14 @@ %% 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_comment_scan/1]). + t_comment_scan/1,t_igor/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_comment_scan]. + t_comment_scan,t_igor]. groups() -> []. @@ -214,6 +214,15 @@ t_comment_scan(Config) when is_list(Config) -> ok = test_comment_scan(Filenames,DataDir), ok. +t_igor(Config) when is_list(Config) -> + DataDir = ?config(data_dir, Config), + PrivDir = ?config(priv_dir, Config), + FileM1 = filename:join(DataDir,"m1.erl"), + FileM2 = filename:join(DataDir,"m2.erl"), + ["m.erl",_]=R = igor:merge(m,[FileM1,FileM2],[{outdir,PrivDir}]), + io:format("igor:merge/3 = ~p~n", [R]), + ok. + test_comment_scan([],_) -> ok; test_comment_scan([File|Files],DataDir) -> Filename = filename:join(DataDir,File), |