diff options
| author | Henrik Nord <[email protected]> | 2012-06-26 10:54:17 +0200 |
|---|---|---|
| committer | Henrik Nord <[email protected]> | 2012-09-19 14:59:34 +0200 |
| commit | e15330373750c0760305dc9ec2c9aef870eb53ba (patch) | |
| tree | 90e1a72e7fbde208e6a96eb802951838ab0f2b9f /erts | |
| parent | c24f87e19cc01437c3c7b84e9c3fbeceb8c3b736 (diff) | |
| download | otp-e15330373750c0760305dc9ec2c9aef870eb53ba.tar.gz otp-e15330373750c0760305dc9ec2c9aef870eb53ba.tar.bz2 otp-e15330373750c0760305dc9ec2c9aef870eb53ba.zip | |
ignore calls to gs* modules if it is not built
Diffstat (limited to 'erts')
| -rw-r--r-- | erts/test/otp_SUITE.erl | 21 |
1 files changed, 16 insertions, 5 deletions
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl index 5f28f22606..b7ceb0a3fd 100644 --- a/erts/test/otp_SUITE.erl +++ b/erts/test/otp_SUITE.erl @@ -84,13 +84,14 @@ undefined_functions(Config) when is_list(Config) -> "ExcludedFrom = ~p:_/_," "Undef - Undef | ExcludedFrom", [UndefS,ExcludeFrom]), - ?line {ok,Undef0} = xref:q(Server, lists:flatten(Q)), - ?line Undef1 = hipe_filter(Undef0), - ?line Undef2 = ssl_crypto_filter(Undef1), - ?line Undef3 = edoc_filter(Undef2), + {ok,Undef0} = xref:q(Server, lists:flatten(Q)), + Undef1 = hipe_filter(Undef0), + Undef2 = ssl_crypto_filter(Undef1), + Undef3 = edoc_filter(Undef2), Undef4 = eunit_filter(Undef3), Undef5 = dialyzer_filter(Undef4), - Undef = wx_filter(Undef5), + Undef6 = wx_filter(Undef5), + Undef = gs_filter(Undef6), case Undef of [] -> ok; @@ -202,6 +203,16 @@ wx_filter(Undef) -> _ -> Undef end. +gs_filter(Undef) -> + case code:lib_dir(gs) of + {error,bad_name} -> + filter(fun({_,{gs,_,_}}) -> false; + ({_,{gse,_,_}}) -> false; + ({_,{tool_utils,_,_}}) -> false; + (_) -> true + end, Undef); + _ -> Undef + end. deprecated_not_in_obsolete(Config) when is_list(Config) -> ?line Server = ?config(xref_server, Config), |