Use lists:member/2 to check xref results

This commit is contained in:
Amit Kapoor 2012-04-02 08:11:18 -07:00 committed by Tuncer Ayaz
parent 0191806f92
commit 63f1b1d9d5

View file

@ -88,12 +88,11 @@ xref(Config, _) ->
%% Stop xref %% Stop xref
stopped = xref:stop(xref), stopped = xref:stop(xref),
case lists:all(fun(NoWarn) -> NoWarn end, case lists:member(false, [ExportsNoWarn, UndefNoWarn, QueryNoWarn]) of
[ExportsNoWarn, UndefNoWarn, QueryNoWarn]) of
true -> true ->
ok; ?FAIL;
false -> false ->
?FAIL ok
end. end.
%% =================================================================== %% ===================================================================