From db08571335f744b2105f214c7e2c1ecf897b5c5c Mon Sep 17 00:00:00 2001
From: Fredrik Gustafsson <fredrik@erlang.org>
Date: Thu, 7 Nov 2013 16:40:18 +0100
Subject: [eldap, inets]: fix testcases when ssl not is present

---
 lib/eldap/test/eldap_basic_SUITE.erl | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

(limited to 'lib/eldap')

diff --git a/lib/eldap/test/eldap_basic_SUITE.erl b/lib/eldap/test/eldap_basic_SUITE.erl
index 127d753b92..bf5fa83c3c 100644
--- a/lib/eldap/test/eldap_basic_SUITE.erl
+++ b/lib/eldap/test/eldap_basic_SUITE.erl
@@ -28,10 +28,19 @@
 -define(TIMEOUT, 120000). % 2 min
 
 init_per_suite(Config) ->
-    ssl:start(),
-    chk_config(ldap_server, {"localhost",9876},
-	chk_config(ldaps_server, {"localhost",9877},
-	           Config)).
+    StartSsl = try ssl:start() 
+    catch
+	Error:Reason ->
+	    {skip, lists:flatten(io_lib:format("eldap init_per_suite failed to start ssl Error=~p Reason=~p", [Error, Reason]))}
+    end,
+    case StartSsl of
+	ok ->
+	    chk_config(ldap_server, {"localhost",9876},
+		       chk_config(ldaps_server, {"localhost",9877},
+				  Config));
+	_ ->
+	    StartSsl
+    end.
 
 end_per_suite(_Config) ->
     ok.
-- 
cgit v1.2.3