aboutsummaryrefslogtreecommitdiffstats
path: root/lib/ssh/test/ssh_test_lib.erl
diff options
context:
space:
mode:
authorIngela Anderton Andin <[email protected]>2015-03-24 18:58:46 +0100
committerIngela Anderton Andin <[email protected]>2015-04-29 12:43:13 +0200
commitfb584c520ef60845506a14cb910745ffc3b92a66 (patch)
tree916ab42b9ba7b2f61aa833fdcbb664c1d8d03bf7 /lib/ssh/test/ssh_test_lib.erl
parentb3ad09ba107de16259844fe5bc50898ae40a1a96 (diff)
downloadotp-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.erl15
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.