|
@@ -437,14 +437,6 @@ ssl_echo(_) ->
|
|
ok.
|
|
ok.
|
|
|
|
|
|
ssl_sni_echo(_) ->
|
|
ssl_sni_echo(_) ->
|
|
- case application:get_key(ssl, vsn) of
|
|
|
|
- {ok, Vsn} when Vsn >= "7.0" ->
|
|
|
|
- do_ssl_sni_echo();
|
|
|
|
- _ ->
|
|
|
|
- {skip, "No SNI support."}
|
|
|
|
- end.
|
|
|
|
-
|
|
|
|
-do_ssl_sni_echo() ->
|
|
|
|
doc("Ensure that SNI works with SSL transport."),
|
|
doc("Ensure that SNI works with SSL transport."),
|
|
Name = name(),
|
|
Name = name(),
|
|
Opts = ct_helper:get_certs_from_ets(),
|
|
Opts = ct_helper:get_certs_from_ets(),
|
|
@@ -462,14 +454,6 @@ do_ssl_sni_echo() ->
|
|
ok.
|
|
ok.
|
|
|
|
|
|
ssl_sni_fail(_) ->
|
|
ssl_sni_fail(_) ->
|
|
- case application:get_key(ssl, vsn) of
|
|
|
|
- {ok, Vsn} when Vsn >= "7.0" ->
|
|
|
|
- do_ssl_sni_fail();
|
|
|
|
- _ ->
|
|
|
|
- {skip, "No SNI support."}
|
|
|
|
- end.
|
|
|
|
-
|
|
|
|
-do_ssl_sni_fail() ->
|
|
|
|
doc("Ensure that connection fails when host is not in SNI list."),
|
|
doc("Ensure that connection fails when host is not in SNI list."),
|
|
Name = name(),
|
|
Name = name(),
|
|
Opts = ct_helper:get_certs_from_ets(),
|
|
Opts = ct_helper:get_certs_from_ets(),
|
|
@@ -577,14 +561,6 @@ ssl_getopts_capability(_) ->
|
|
ok.
|
|
ok.
|
|
|
|
|
|
ssl_getstat_capability(_) ->
|
|
ssl_getstat_capability(_) ->
|
|
- case application:get_key(ssl, vsn) of
|
|
|
|
- {ok, Vsn} when Vsn>="8.0" ->
|
|
|
|
- do_ssl_getstat_capability();
|
|
|
|
- _ ->
|
|
|
|
- {skip, "No getstat/1,2 support."}
|
|
|
|
- end.
|
|
|
|
-
|
|
|
|
-do_ssl_getstat_capability() ->
|
|
|
|
doc("Ensure getstat/1,2 capability."),
|
|
doc("Ensure getstat/1,2 capability."),
|
|
Name=name(),
|
|
Name=name(),
|
|
Opts=ct_helper:get_certs_from_ets(),
|
|
Opts=ct_helper:get_certs_from_ets(),
|