aboutsummaryrefslogtreecommitdiffstats
path: root/erts
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-05-02 16:20:45 +0200
committerBjörn Gustavsson <[email protected]>2012-05-02 16:23:41 +0200
commit9ac3fbfcb9955ff6ee55c6361161872415173068 (patch)
treeb136b886ff65f55c28371f833b535c92f1417d3e /erts
parent206cd51e03d286d4df7dc1ab52420b9457154369 (diff)
downloadotp-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')
-rw-r--r--erts/test/otp_SUITE.erl18
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"),