diff options
| author | Péter Dimitrov <[email protected]> | 2019-04-16 16:37:21 +0200 |
|---|---|---|
| committer | Péter Dimitrov <[email protected]> | 2019-04-18 09:11:13 +0200 |
| commit | 8a47f7f5b7312e6491c2ca72e826832477b351bb (patch) | |
| tree | 42009e1c7f1825c6e4a0c8c3256ce77c666aef9a /lib/ssl/test/ssl_basic_SUITE.erl | |
| parent | 0dbdff4cdad82fc1ccb9f06050712e5aadd9eb8f (diff) | |
| download | otp-8a47f7f5b7312e6491c2ca72e826832477b351bb.tar.gz otp-8a47f7f5b7312e6491c2ca72e826832477b351bb.tar.bz2 otp-8a47f7f5b7312e6491c2ca72e826832477b351bb.zip | |
ssl: Fix dialyzer warnings
Change-Id: Ic4895195569073916f158a06b95061939f15cfc0
Diffstat (limited to 'lib/ssl/test/ssl_basic_SUITE.erl')
| -rw-r--r-- | lib/ssl/test/ssl_basic_SUITE.erl | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/lib/ssl/test/ssl_basic_SUITE.erl b/lib/ssl/test/ssl_basic_SUITE.erl index 7b98209b31..56e6117cc4 100644 --- a/lib/ssl/test/ssl_basic_SUITE.erl +++ b/lib/ssl/test/ssl_basic_SUITE.erl @@ -549,11 +549,10 @@ alerts(Config) when is_list(Config) -> Alerts = [?ALERT_REC(?WARNING, ?CLOSE_NOTIFY) | [?ALERT_REC(?FATAL, Desc) || Desc <- Descriptions]], lists:foreach(fun(Alert) -> - case ssl_alert:alert_txt(Alert) of - Txt when is_list(Txt) -> - ok; - Other -> - ct:fail({unexpected, Other}) + try ssl_alert:alert_txt(Alert) + catch + C:E:T -> + ct:fail({unexpected, {C, E, T}}) end end, Alerts). %%-------------------------------------------------------------------- @@ -3655,7 +3654,7 @@ listen_socket(Config) -> {error, enotconn} = ssl:peername(ListenSocket), {error, enotconn} = ssl:peercert(ListenSocket), {error, enotconn} = ssl:renegotiate(ListenSocket), - {error, enotconn} = ssl:prf(ListenSocket, 'master_secret', <<"Label">>, client_random, 256), + {error, enotconn} = ssl:prf(ListenSocket, 'master_secret', <<"Label">>, [client_random], 256), {error, enotconn} = ssl:shutdown(ListenSocket, read_write), ok = ssl:close(ListenSocket). |