aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMagnus Henoch <[email protected]>2015-11-13 16:50:16 +0000
committerMagnus Henoch <[email protected]>2015-11-13 16:50:16 +0000
commitd5ce9036c629939cd979a03ace1b0107c23a9d78 (patch)
tree495b0dd90872fe729094c0e342b787da6dfdfc63
parentdd0baa002cf09286f5d80e046e8c8611f9e20d10 (diff)
downloadotp-d5ce9036c629939cd979a03ace1b0107c23a9d78.tar.gz
otp-d5ce9036c629939cd979a03ace1b0107c23a9d78.tar.bz2
otp-d5ce9036c629939cd979a03ace1b0107c23a9d78.zip
Add test for dist_nodelay option
Run the 'basic' test with dist_nodelay set to false.
-rw-r--r--lib/ssl/test/ssl_dist_SUITE.erl13
1 files changed, 12 insertions, 1 deletions
diff --git a/lib/ssl/test/ssl_dist_SUITE.erl b/lib/ssl/test/ssl_dist_SUITE.erl
index 1a1b2af8d4..a76fa03d33 100644
--- a/lib/ssl/test/ssl_dist_SUITE.erl
+++ b/lib/ssl/test/ssl_dist_SUITE.erl
@@ -43,7 +43,7 @@ suite() ->
[{ct_hooks,[ts_install_cth]}].
all() ->
- [basic, payload, plain_options, plain_verify_options].
+ [basic, payload, plain_options, plain_verify_options, nodelay_option].
groups() ->
[].
@@ -255,6 +255,17 @@ plain_verify_options(Config) when is_list(Config) ->
stop_ssl_node(NH1),
stop_ssl_node(NH2),
success(Config).
+%%--------------------------------------------------------------------
+nodelay_option() ->
+ [{doc,"Test specifying dist_nodelay option"}].
+nodelay_option(Config) ->
+ try
+ %% The default is 'true', so try setting it to 'false'.
+ application:set_env(kernel, dist_nodelay, false),
+ basic(Config)
+ after
+ application:unset_env(kernel, dist_nodelay)
+ end.
%%--------------------------------------------------------------------
%%% Internal functions -----------------------------------------------