diff options
author | Björn Gustavsson <[email protected]> | 2016-02-26 06:35:40 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2016-02-26 06:42:25 +0100 |
commit | 77046ef3d886574a81d0ff517d8c1e6f3b6c0692 (patch) | |
tree | 1f64ea48286e9623a4fb117132bdb0c3deed06c3 /erts | |
parent | 7437715a8a05566b9bae2f59956c3dc961f3fe72 (diff) | |
download | otp-77046ef3d886574a81d0ff517d8c1e6f3b6c0692.tar.gz otp-77046ef3d886574a81d0ff517d8c1e6f3b6c0692.tar.bz2 otp-77046ef3d886574a81d0ff517d8c1e6f3b6c0692.zip |
otp_SUITE: Remove handling of test_server application
Diffstat (limited to 'erts')
-rw-r--r-- | erts/test/otp_SUITE.erl | 32 |
1 files changed, 2 insertions, 30 deletions
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl index 6777c205b0..2efb5ae200 100644 --- a/erts/test/otp_SUITE.erl +++ b/erts/test/otp_SUITE.erl @@ -298,7 +298,7 @@ call_to_now_0(Config) when is_list(Config) -> Apps = [asn1,common_test,compiler,debugger,dialyzer, gs,kernel,mnesia,observer,parsetools,reltool, runtime_tools,sasl,stdlib,syntax_tools, - test_server,tools], + tools], not_recommended_calls(Config, Apps, {erlang,now,0}). not_recommended_calls(Config, Apps0, MFA) -> @@ -459,24 +459,7 @@ runtime_dependencies(Config) -> end, {undefined, []}, SAE), - [] = lists:filter(fun ({missing_runtime_dependency, - AppFile, - common_test}) -> - %% The test_server app is contaminated by - %% common_test when run in a source tree. It - %% should however *not* be contaminated - %% when run in an installation. - case {filename:basename(AppFile), - is_run_in_src_tree()} of - {"test_server.app", true} -> - false; - _ -> - true - end; - (_) -> - true - end, - check_apps_deps([AppDep|AppDeps], IgnoreApps)), + check_apps_deps([AppDep|AppDeps], IgnoreApps), case IgnoreApps of [] -> ok; @@ -488,17 +471,6 @@ runtime_dependencies(Config) -> {comment, Comment} end. -is_run_in_src_tree() -> - %% At least currently run_erl is not present in <code-root>/bin - %% in the source tree, but present in <code-root>/bin of an - %% ordinary installation. - case file:read_file_info(filename:join([code:root_dir(), - "bin", - "run_erl"])) of - {ok, _} -> false; - {error, _} -> true - end. - have_rdep(_App, [], _Dep) -> false; have_rdep(App, [RDep | RDeps], Dep) -> |