diff options
| author | Hans Nilsson <[email protected]> | 2017-12-22 16:16:20 +0100 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2017-12-22 16:16:20 +0100 |
| commit | 0052a4641d6f904fe632a9c056b9eed7ffc18b54 (patch) | |
| tree | 006003792f2acbb2292b01ba9cabc18c21732b4d /lib/ssh/test/ssh_algorithms_SUITE.erl | |
| parent | 51fa0ae8543f65b7c3ef08eb49a53a0921c35972 (diff) | |
| parent | 0c08677522f1add0f6161328a0009e3ac3401f1e (diff) | |
| download | otp-0052a4641d6f904fe632a9c056b9eed7ffc18b54.tar.gz otp-0052a4641d6f904fe632a9c056b9eed7ffc18b54.tar.bz2 otp-0052a4641d6f904fe632a9c056b9eed7ffc18b54.zip | |
Merge branch 'maint'
* maint:
ssh: ssh_dbg updates
ssh: Better reports in some test case failures
ssh: Tests - timeout catches external ssh that does not disconnect
Diffstat (limited to 'lib/ssh/test/ssh_algorithms_SUITE.erl')
| -rw-r--r-- | lib/ssh/test/ssh_algorithms_SUITE.erl | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lib/ssh/test/ssh_algorithms_SUITE.erl b/lib/ssh/test/ssh_algorithms_SUITE.erl index 98964a2c8a..de6e448ebd 100644 --- a/lib/ssh/test/ssh_algorithms_SUITE.erl +++ b/lib/ssh/test/ssh_algorithms_SUITE.erl @@ -29,15 +29,13 @@ %% Note: This directive should only be used in test suites. -compile(export_all). --define(TIMEOUT, 35000). - %%-------------------------------------------------------------------- %% Common Test interface functions ----------------------------------- %%-------------------------------------------------------------------- suite() -> [{ct_hooks,[ts_install_cth]}, - {timetrap,{seconds,40}}]. + {timetrap,{seconds,round(1.5*?TIMEOUT/1000)}}]. all() -> %% [{group,kex},{group,cipher}... etc @@ -90,7 +88,7 @@ init_per_suite(Config) -> " -- Max num algorithms: ~p~n" ,[os:getenv("HOME"), init:get_argument(home), - os:cmd("ssh -V"), + ssh_test_lib:installed_ssh_version("TIMEOUT"), ssh:default_algorithms(), crypto:info_lib(), ssh_test_lib:default_algorithms(sshc), @@ -318,10 +316,10 @@ sshc_simple_exec_os_cmd(Config) -> ok; false -> ct:log("Bad result: ~p~nExpected: ~p~nMangled result: ~p", [RawResult,Expect,Lines]), - {fail, "Bad result"} + {fail, "Bad result (see log in testcase)"} end after ?TIMEOUT -> - ct:fail("Did not receive answer") + ct:fail("Did not receive answer (timeout)") end. %%-------------------------------------------------------------------- |