From 85b03b8b996549631bb2aa12807243c34df28e7f Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Wed, 19 Jun 2019 14:10:30 +0200
Subject: ssl: Kill OpenSSL processes that survived test run

Should be zero such processes in the normal case
---
 lib/ssl/test/ssl_test_lib.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'lib/ssl/test/ssl_test_lib.erl')

diff --git a/lib/ssl/test/ssl_test_lib.erl b/lib/ssl/test/ssl_test_lib.erl
index 32fd917937..6c8ce7a0bc 100644
--- a/lib/ssl/test/ssl_test_lib.erl
+++ b/lib/ssl/test/ssl_test_lib.erl
@@ -2474,3 +2474,11 @@ digest() ->
         _ ->
             {digest, sha1}
     end.
+
+kill_openssl() ->
+    case os:type() of
+        {unix, _} ->
+            os:cmd("pkill openssl");
+        {win32, _} ->
+            os:cmd("cmd.exe /C \"taskkill /IM openssl.exe /F\"")
+    end.
-- 
cgit v1.2.3