diff options
| author | Hans Nilsson <[email protected]> | 2017-02-14 16:09:20 +0100 |
|---|---|---|
| committer | Hans Nilsson <[email protected]> | 2017-02-14 16:09:20 +0100 |
| commit | aa1a098b46d0a4d8dd122efcc78a7a1a3f6c6e4e (patch) | |
| tree | 561682fa89adb3919b753704ebcbb8280251ff6f | |
| parent | abef8aed9e0c016840a3193a65f1b5212a659da2 (diff) | |
| parent | c6f98b68c6c3a390d7d087184a34448f79450530 (diff) | |
| download | otp-aa1a098b46d0a4d8dd122efcc78a7a1a3f6c6e4e.tar.gz otp-aa1a098b46d0a4d8dd122efcc78a7a1a3f6c6e4e.tar.bz2 otp-aa1a098b46d0a4d8dd122efcc78a7a1a3f6c6e4e.zip | |
Merge branch 'hans/ssh/cuddle_tests' into maint
| -rw-r--r-- | lib/ssh/test/ssh_algorithms_SUITE.erl | 19 |
1 files changed, 8 insertions, 11 deletions
diff --git a/lib/ssh/test/ssh_algorithms_SUITE.erl b/lib/ssh/test/ssh_algorithms_SUITE.erl index 4327068b7b..313b7fc559 100644 --- a/lib/ssh/test/ssh_algorithms_SUITE.erl +++ b/lib/ssh/test/ssh_algorithms_SUITE.erl @@ -58,9 +58,11 @@ groups() -> || {Tag,Algs} <- ErlAlgos, lists:member(Tag,tags()) ], + + TypeSSH = ssh_test_lib:ssh_type(), AlgoTcSet = - [{Alg, [parallel], specific_test_cases(Tag,Alg,SshcAlgos,SshdAlgos)} + [{Alg, [parallel], specific_test_cases(Tag,Alg,SshcAlgos,SshdAlgos,TypeSSH)} || {Tag,Algs} <- ErlAlgos ++ DoubleAlgos, Alg <- Algs], @@ -313,18 +315,13 @@ concat(A1, A2) -> list_to_atom(lists:concat([A1," + ",A2])). split(Alg) -> ssh_test_lib:to_atoms(string:tokens(atom_to_list(Alg), " + ")). -specific_test_cases(Tag, Alg, SshcAlgos, SshdAlgos) -> +specific_test_cases(Tag, Alg, SshcAlgos, SshdAlgos, TypeSSH) -> [simple_exec, simple_sftp] ++ case supports(Tag, Alg, SshcAlgos) of - true -> - case ssh_test_lib:ssh_type() of - openSSH -> - [sshc_simple_exec_os_cmd]; - _ -> - [] - end; - false -> - [] + true when TypeSSH == openSSH -> + [sshc_simple_exec_os_cmd]; + _ -> + [] end ++ case supports(Tag, Alg, SshdAlgos) of true -> |