aboutsummaryrefslogtreecommitdiffstats
path: root/erts/test
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2012-05-30 15:14:16 +0200
committerLukas Larsson <[email protected]>2012-06-01 10:52:39 +0200
commit50da1658240587622a057afe2db13d7ebcea3813 (patch)
tree0c167cd7c243fa727d240478197b8f641ec2d8b4 /erts/test
parent337ef6e2d1f64657eebccbd16d7fd7c0a989ddbc (diff)
downloadotp-50da1658240587622a057afe2db13d7ebcea3813.tar.gz
otp-50da1658240587622a057afe2db13d7ebcea3813.tar.bz2
otp-50da1658240587622a057afe2db13d7ebcea3813.zip
Ignore calls to wx* modules if it is undefined
Diffstat (limited to 'erts/test')
-rw-r--r--erts/test/otp_SUITE.erl16
1 files changed, 15 insertions, 1 deletions
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl
index 277abb2554..332733e075 100644
--- a/erts/test/otp_SUITE.erl
+++ b/erts/test/otp_SUITE.erl
@@ -89,7 +89,8 @@ undefined_functions(Config) when is_list(Config) ->
?line Undef2 = ssl_crypto_filter(Undef1),
?line Undef3 = edoc_filter(Undef2),
Undef4 = eunit_filter(Undef3),
- Undef = dialyzer_filter(Undef4),
+ Undef5 = dialyzer_filter(Undef4),
+ Undef = wx_filter(Undef5),
case Undef of
[] -> ok;
@@ -188,6 +189,19 @@ dialyzer_filter(Undef) ->
_ -> Undef
end.
+wx_filter(Undef) ->
+ case code:lib_dir(wx) of
+ {error,bad_name} ->
+ filter(fun({_,{MaybeWxModule,_,_}}) ->
+ case atom_to_list(MaybeWxModule) of
+ "wx"++_ -> false;
+ _ -> true
+ end
+ 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"),