diff options
| author | Björn Gustavsson <[email protected]> | 2012-05-02 16:20:45 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-05-02 16:23:41 +0200 |
| commit | 9ac3fbfcb9955ff6ee55c6361161872415173068 (patch) | |
| tree | b136b886ff65f55c28371f833b535c92f1417d3e /erts/test | |
| parent | 206cd51e03d286d4df7dc1ab52420b9457154369 (diff) | |
| download | otp-9ac3fbfcb9955ff6ee55c6361161872415173068.tar.gz otp-9ac3fbfcb9955ff6ee55c6361161872415173068.tar.bz2 otp-9ac3fbfcb9955ff6ee55c6361161872415173068.zip | |
otp_SUITE: Ignore calls to dialyzer if the entire application is missing
Diffstat (limited to 'erts/test')
| -rw-r--r-- | erts/test/otp_SUITE.erl | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl index f531a3bfa6..277abb2554 100644 --- a/erts/test/otp_SUITE.erl +++ b/erts/test/otp_SUITE.erl @@ -88,7 +88,8 @@ undefined_functions(Config) when is_list(Config) -> ?line Undef1 = hipe_filter(Undef0), ?line Undef2 = ssl_crypto_filter(Undef1), ?line Undef3 = edoc_filter(Undef2), - ?line Undef = eunit_filter(Undef3), + Undef4 = eunit_filter(Undef3), + Undef = dialyzer_filter(Undef4), case Undef of [] -> ok; @@ -172,6 +173,21 @@ eunit_filter(Undef) -> (_) -> true end, Undef). +dialyzer_filter(Undef) -> + case code:lib_dir(dialyzer) of + {error,bad_name} -> + filter(fun({_,{dialyzer_callgraph,_,_}}) -> false; + ({_,{dialyzer_codeserver,_,_}}) -> false; + ({_,{dialyzer_contracts,_,_}}) -> false; + ({_,{dialyzer_cl_parse,_,_}}) -> false; + ({_,{dialyzer_plt,_,_}}) -> false; + ({_,{dialyzer_succ_typings,_,_}}) -> false; + ({_,{dialyzer_utils,_,_}}) -> false; + (_) -> true + end, Undef); + _ -> Undef + end. + deprecated_not_in_obsolete(Config) when is_list(Config) -> ?line Server = ?config(xref_server, Config), ?line {ok,DeprecatedFunctions} = xref:q(Server, "DF"), |