aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2013-02-18 01:43:53 +0100
committerPeter Andersson <[email protected]>2013-02-18 01:43:53 +0100
commit967eca90a73d4fc0516c99ef41a30c9e9cbbb0fa (patch)
tree1e2d9ba7486e13c62f122cf8bc4c086a4392a9ad
parent499eef0cd693b2f96ec19148d2f6666c3df7d834 (diff)
downloadotp-967eca90a73d4fc0516c99ef41a30c9e9cbbb0fa.tar.gz
otp-967eca90a73d4fc0516c99ef41a30c9e9cbbb0fa.tar.bz2
otp-967eca90a73d4fc0516c99ef41a30c9e9cbbb0fa.zip
Correct dialyzer warnings
-rw-r--r--lib/common_test/src/ct_testspec.erl15
1 files changed, 1 insertions, 14 deletions
diff --git a/lib/common_test/src/ct_testspec.erl b/lib/common_test/src/ct_testspec.erl
index e341391a91..71b03c0ea6 100644
--- a/lib/common_test/src/ct_testspec.erl
+++ b/lib/common_test/src/ct_testspec.erl
@@ -1020,17 +1020,6 @@ add_tests([],Spec) -> % done
%% check if it's a CT term that has bad format or if the user seems to
%% have added something of his/her own, which we'll let pass if relaxed
%% mode is enabled.
-check_term(Atom) when is_atom(Atom) ->
- Valid = valid_terms(),
- case lists:member(Atom,Valid) of
- true ->
- valid;
- false -> % ignore
- case get(relaxed) of
- true -> invalid;
- false -> throw({error,{undefined_term_in_spec,Atom}})
- end
- end;
check_term(Term) when is_tuple(Term) ->
Size = size(Term),
[Name|_] = tuple_to_list(Term),
@@ -1059,9 +1048,7 @@ check_term(Term) when is_tuple(Term) ->
throw({error,{undefined_term_in_spec,Term}})
end
end
- end;
-check_term(Other) ->
- throw({error,{undefined_term_in_spec,Other}}).
+ end.
%% specific data handling before saving in testspec record, e.g.
%% converting relative paths to absolute for directories and files