diff options
| author | Björn Gustavsson <bjorn@erlang.org> | 2019-05-14 06:54:09 +0200 |
|---|---|---|
| committer | Björn Gustavsson <bjorn@erlang.org> | 2019-08-26 13:04:57 +0200 |
| commit | 3e9cba0f0b4fecd4e5115f9e90b15dd5cc835acc (patch) | |
| tree | 71bde3fd02aff0a4813ae3b1e06ad87e619e1112 /erts/test | |
| parent | 54eaa9de6ebf16467702c8c2c23541522f223f67 (diff) | |
| download | erlang-3e9cba0f0b4fecd4e5115f9e90b15dd5cc835acc.tar.gz | |
Teach erlc to use the compile server
Diffstat (limited to 'erts/test')
| -rw-r--r-- | erts/test/erlc_SUITE.erl | 23 |
1 files changed, 17 insertions, 6 deletions
diff --git a/erts/test/erlc_SUITE.erl b/erts/test/erlc_SUITE.erl index 0c5b9f8358..c01506b1cd 100644 --- a/erts/test/erlc_SUITE.erl +++ b/erts/test/erlc_SUITE.erl @@ -32,22 +32,34 @@ suite() -> [{ct_hooks,[ts_install_cth]}]. all() -> + [{group,with_server},{group,without_server}]. + +groups() -> + Tests = tests(), + [{with_server,[],Tests}, + {without_server,[],Tests}]. + +tests() -> [compile_erl, compile_yecc, compile_script, compile_mib, good_citizen, deep_cwd, arg_overflow, make_dep_options]. -groups() -> - []. - init_per_suite(Config) -> Config. end_per_suite(_Config) -> ok. -init_per_group(_GroupName, Config) -> +init_per_group(with_server, Config) -> + os:putenv("ERLC_USE_SERVER", "yes"), + Config; +init_per_group(without_server, Config) -> + os:putenv("ERLC_USE_SERVER", "no"), + Config; +init_per_group(_, Config) -> Config. end_per_group(_GroupName, Config) -> + os:unsetenv("ERLC_USE_SERVER"), Config. %% Copy from erlc_SUITE_data/include/erl_test.hrl. @@ -199,8 +211,7 @@ deep_cwd(Config) when is_list(Config) -> deep_cwd_1(PrivDir) -> DeepDir0 = filename:join(PrivDir, lists:duplicate(128, $a)), DeepDir = filename:join(DeepDir0, lists:duplicate(128, $b)), - ok = file:make_dir(DeepDir0), - ok = file:make_dir(DeepDir), + ok = filelib:ensure_dir(filename:join(DeepDir,"any_file")), ok = file:set_cwd(DeepDir), ok = file:write_file("test.erl", "-module(test).\n\n"), io:format("~s\n", [os:cmd("erlc test.erl")]), |