diff options
| author | Lukas Larsson <[email protected]> | 2012-05-30 15:14:16 +0200 |
|---|---|---|
| committer | Lukas Larsson <[email protected]> | 2012-06-01 10:52:39 +0200 |
| commit | 50da1658240587622a057afe2db13d7ebcea3813 (patch) | |
| tree | 0c167cd7c243fa727d240478197b8f641ec2d8b4 /erts/test | |
| parent | 337ef6e2d1f64657eebccbd16d7fd7c0a989ddbc (diff) | |
| download | otp-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.erl | 16 |
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"), |