diff options
| author | Erland Schönbeck <[email protected]> | 2015-02-18 12:45:12 +0100 |
|---|---|---|
| committer | Erland Schönbeck <[email protected]> | 2015-02-18 12:45:12 +0100 |
| commit | b0bc9466e5a20dc23fff86dffce620f1fc1350bc (patch) | |
| tree | dd17840b353246640e15dd35aa16b848c3b3d148 /erts/test/otp_SUITE.erl | |
| parent | 25e7a4c60dd15e6f2fedfcf6df267efd7ee80db8 (diff) | |
| download | otp-b0bc9466e5a20dc23fff86dffce620f1fc1350bc.tar.gz otp-b0bc9466e5a20dc23fff86dffce620f1fc1350bc.tar.bz2 otp-b0bc9466e5a20dc23fff86dffce620f1fc1350bc.zip | |
otp_SUITE: Ignore diameter undefined function errors
Diffstat (limited to 'erts/test/otp_SUITE.erl')
| -rw-r--r-- | erts/test/otp_SUITE.erl | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/erts/test/otp_SUITE.erl b/erts/test/otp_SUITE.erl index 229d10ccee..171f722357 100644 --- a/erts/test/otp_SUITE.erl +++ b/erts/test/otp_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2000-2013. All Rights Reserved. +%% Copyright Ericsson AB 2000-2015. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -94,7 +94,8 @@ undefined_functions(Config) when is_list(Config) -> Undef4 = eunit_filter(Undef3), Undef5 = dialyzer_filter(Undef4), Undef6 = wx_filter(Undef5), - Undef = gs_filter(Undef6), + Undef7 = gs_filter(Undef6), + Undef = diameter_filter(Undef7), case Undef of [] -> ok; @@ -217,6 +218,21 @@ gs_filter(Undef) -> _ -> Undef end. +diameter_filter(Undef) -> + %% Filter away function calls that are catched. + filter(fun({{diameter_lib,_,_},{erlang,convert_time_resolution,3}}) -> + false; + ({{diameter_lib,_,_},{erlang,monotonic_time,0}}) -> + false; + ({{diameter_lib,_,_},{erlang,time_resolution,0}}) -> + false; + ({{diameter_lib,_,_},{erlang,unique_integer,0}}) -> + false; + ({{diameter_lib,_,_},{erlang,time_offset,0}}) -> + false; + (_) -> true + end, Undef). + deprecated_not_in_obsolete(Config) when is_list(Config) -> ?line Server = ?config(xref_server, Config), ?line {ok,DeprecatedFunctions} = xref:q(Server, "DF"), |