aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMicael Karlberg <[email protected]>2011-04-01 11:51:58 +0200
committerMicael Karlberg <[email protected]>2011-04-01 11:51:58 +0200
commit3bc0fccb951ffb0909d2824b65d58ad31ad16cc5 (patch)
tree6788b3099a64daef1a52ada4b56d707693f79d76
parentfe83491166fd1a394f768c33234150c67de98289 (diff)
downloadotp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.tar.gz
otp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.tar.bz2
otp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.zip
Added crypto-start-check to undef_funcs test case.
-rw-r--r--lib/inets/test/inets_app_test.erl14
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/inets/test/inets_app_test.erl b/lib/inets/test/inets_app_test.erl
index 11b507fa26..49ea18501f 100644
--- a/lib/inets/test/inets_app_test.erl
+++ b/lib/inets/test/inets_app_test.erl
@@ -241,6 +241,20 @@ undef_funcs(suite) ->
undef_funcs(doc) ->
[];
undef_funcs(Config) when is_list(Config) ->
+ %% We need to check if there is a point to run this test.
+ %% On some platforms, crypto will not build, which in turn
+ %% causes ssl to not to not build (at this time, this will
+ %% change in the future).
+ %% So, we first check if we can start crypto, and if not,
+ %% we skip this test case!
+ case (catch crypto:start()) of
+ ok ->
+ ok;
+ {error, {already_started, crypto}} ->
+ ok;
+ _ ->
+ ?SKIP(crypto_start_check_failed)
+ end,
App = inets,
AppFile = key1search(app_file, Config),
Mods = key1search(modules, AppFile),