From 113ce3fccf83ed7983ea72ede32b277107c709f0 Mon Sep 17 00:00:00 2001
From: Lars Thorsen <lars@erlang.org>
Date: Fri, 12 Jan 2018 08:27:55 +0100
Subject: [ssl] Fix hanging test case on outdated lab machine

---
 lib/ssl/test/ssl_engine_SUITE.erl | 39 ++++++++++++++++++++++-----------------
 1 file changed, 22 insertions(+), 17 deletions(-)

(limited to 'lib/ssl')

diff --git a/lib/ssl/test/ssl_engine_SUITE.erl b/lib/ssl/test/ssl_engine_SUITE.erl
index bc221d35fd..71891356e8 100644
--- a/lib/ssl/test/ssl_engine_SUITE.erl
+++ b/lib/ssl/test/ssl_engine_SUITE.erl
@@ -39,23 +39,28 @@ init_per_suite(Config) ->
     catch crypto:stop(),
     try crypto:start() of
 	ok ->
-            ssl_test_lib:clean_start(),
-            case crypto:get_test_engine() of
-                 {ok, EngineName} ->
-                    try crypto:engine_load(<<"dynamic">>,
-                                            [{<<"SO_PATH">>, EngineName},
-                                             <<"LOAD">>],
-                                            []) of
-                        {ok, Engine} ->
-                            [{engine, Engine} |Config];
-                        {error, Reason} ->
-                            ct:pal("Reason ~p", [Reason]),
-                            {skip, "No dynamic engine support"}
-                    catch error:notsup ->
-                            {skip, "No engine support in OpenSSL"}    
-                    end;
-                {error, notexist} ->
-                    {skip, "Test engine not found"}
+            case crypto:info_lib() of
+                [{_,_, <<"OpenSSL 1.0.1s-freebsd  1 Mar 2016">>}] ->
+                    {skip, "Problem with engine on OpenSSL 1.0.1s-freebsd"};
+                _ ->
+                    ssl_test_lib:clean_start(),
+                    case crypto:get_test_engine() of
+                         {ok, EngineName} ->
+                            try crypto:engine_load(<<"dynamic">>,
+                                                    [{<<"SO_PATH">>, EngineName},
+                                                     <<"LOAD">>],
+                                                   []) of
+                                {ok, Engine} ->
+                                    [{engine, Engine} |Config];
+                                {error, Reason} ->
+                                    ct:pal("Reason ~p", [Reason]),
+                                    {skip, "No dynamic engine support"}
+                            catch error:notsup ->
+                                    {skip, "No engine support in OpenSSL"}    
+                            end;
+                        {error, notexist} ->
+                            {skip, "Test engine not found"}
+                    end
             end
     catch _:_ ->
 	    {skip, "Crypto did not start"}
-- 
cgit v1.2.1