aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2014-02-21 17:32:07 +0100
committerIngela Anderton Andin <[email protected]>2014-02-21 17:32:07 +0100
commit794b3440b4eba119996be1966eb1244340de2e4f (patch)
tree8342cd08da3d2c98943264630e5838c73ca5b662
parentfe64a86cd55d53ac452080810860987dbcd3c29e (diff)
downloadotp-794b3440b4eba119996be1966eb1244340de2e4f.tar.gz
otp-794b3440b4eba119996be1966eb1244340de2e4f.tar.bz2
otp-794b3440b4eba119996be1966eb1244340de2e4f.zip
ssl: Add test that memory is not leeked
-rw-r--r--lib/ssl/test/ssl_basic_SUITE.erl9
1 files changed, 8 insertions, 1 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl
index 2e216b32fa..3c23369923 100644
--- a/lib/ssl/test/ssl_basic_SUITE.erl
+++ b/lib/ssl/test/ssl_basic_SUITE.erl
@@ -2208,7 +2208,14 @@ der_input(Config) when is_list(Config) ->
ssl_test_lib:check_result(Server, ok, Client, ok),
ssl_test_lib:close(Server),
- ssl_test_lib:close(Client).
+ ssl_test_lib:close(Client),
+
+ {status, _, _, StatusInfo} = sys:get_status(whereis(ssl_manager)),
+ [_, _,_, _, Prop] = StatusInfo,
+ State = ssl_test_lib:state(Prop),
+ [CADb | _] = element(5, State),
+ [] = ets:tab2list(CADb).
+
%%--------------------------------------------------------------------
der_input_opts(Opts) ->
Certfile = proplists:get_value(certfile, Opts),