diff options
| author | Magnus Henoch <[email protected]> | 2015-11-13 16:50:16 +0000 |
|---|---|---|
| committer | Magnus Henoch <[email protected]> | 2015-11-13 16:50:16 +0000 |
| commit | d5ce9036c629939cd979a03ace1b0107c23a9d78 (patch) | |
| tree | 495b0dd90872fe729094c0e342b787da6dfdfc63 | |
| parent | dd0baa002cf09286f5d80e046e8c8611f9e20d10 (diff) | |
| download | otp-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.erl | 13 |
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 ----------------------------------------------- |