diff options
| author | Ingela Anderton Andin <[email protected]> | 2015-03-24 18:58:46 +0100 |
|---|---|---|
| committer | Ingela Anderton Andin <[email protected]> | 2015-04-29 12:43:13 +0200 |
| commit | fb584c520ef60845506a14cb910745ffc3b92a66 (patch) | |
| tree | 916ab42b9ba7b2f61aa833fdcbb664c1d8d03bf7 /lib/ssh/test/ssh_test_lib.erl | |
| parent | b3ad09ba107de16259844fe5bc50898ae40a1a96 (diff) | |
| download | otp-fb584c520ef60845506a14cb910745ffc3b92a66.tar.gz otp-fb584c520ef60845506a14cb910745ffc3b92a66.tar.bz2 otp-fb584c520ef60845506a14cb910745ffc3b92a66.zip | |
ssh: Add openSSH interop check
Diffstat (limited to 'lib/ssh/test/ssh_test_lib.erl')
| -rw-r--r-- | lib/ssh/test/ssh_test_lib.erl | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lib/ssh/test/ssh_test_lib.erl b/lib/ssh/test/ssh_test_lib.erl index b8abf5e80e..8ca05746db 100644 --- a/lib/ssh/test/ssh_test_lib.erl +++ b/lib/ssh/test/ssh_test_lib.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2004-2012. All Rights Reserved. +%% Copyright Ericsson AB 2004-2015. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -358,3 +358,16 @@ do_inet_port(Node) -> {ok, Socket} = rpc:call(Node, gen_tcp, listen, [0, [{reuseaddr, true}]]), {ok, Port} = rpc:call(Node, inet, port, [Socket]), {Port, Socket}. + +openssh_sanity_check(Config) -> + ssh:start(), + case ssh:connect("localhost", 22, []) of + {ok, Pid} -> + ssh:close(Pid), + ssh:stop(), + Config; + Err -> + Str = lists:append(io_lib:format("~p", [Err])), + ssh:stop(), + {skip, Str} + end. |