diff options
| author | Micael Karlberg <[email protected]> | 2011-04-01 11:51:58 +0200 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2011-04-01 11:51:58 +0200 |
| commit | 3bc0fccb951ffb0909d2824b65d58ad31ad16cc5 (patch) | |
| tree | 6788b3099a64daef1a52ada4b56d707693f79d76 /lib/inets/test | |
| parent | fe83491166fd1a394f768c33234150c67de98289 (diff) | |
| download | otp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.tar.gz otp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.tar.bz2 otp-3bc0fccb951ffb0909d2824b65d58ad31ad16cc5.zip | |
Added crypto-start-check to undef_funcs test case.
Diffstat (limited to 'lib/inets/test')
| -rw-r--r-- | lib/inets/test/inets_app_test.erl | 14 |
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), |