diff options
| author | Ingela Anderton Andin <[email protected]> | 2014-02-21 17:32:07 +0100 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2014-02-21 17:32:07 +0100 |
| commit | 794b3440b4eba119996be1966eb1244340de2e4f (patch) | |
| tree | 8342cd08da3d2c98943264630e5838c73ca5b662 | |
| parent | fe64a86cd55d53ac452080810860987dbcd3c29e (diff) | |
| download | otp-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.erl | 9 |
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), |