From 76738dd0284a823d9c07149180dfc97097df145f Mon Sep 17 00:00:00 2001
From: Ingela Anderton Andin <ingela@erlang.org>
Date: Thu, 15 Dec 2011 15:46:27 +0100
Subject: Do not run ssh_to_openssh_SUITE if there is no oppenssh server
 running

---
 lib/ssh/test/ssh_to_openssh_SUITE.erl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/ssh/test/ssh_to_openssh_SUITE.erl b/lib/ssh/test/ssh_to_openssh_SUITE.erl
index f959d50484..dc3ea4c1de 100644
--- a/lib/ssh/test/ssh_to_openssh_SUITE.erl
+++ b/lib/ssh/test/ssh_to_openssh_SUITE.erl
@@ -42,8 +42,13 @@
 init_per_suite(Config) ->
     case catch crypto:start() of
 	ok ->
-	    ssh_test_lib:make_dsa_files(Config),
-	    Config;
+	    case gen_tcp:connect("localhost", 22, []) of
+		{error,econnrefused} ->
+		    {skip,"No openssh deamon"};
+		_ ->
+		    ssh_test_lib:make_dsa_files(Config),
+		    Config
+	    end;
 	_Else ->
 	    {skip,"Could not start crypto!"}
     end.
-- 
cgit v1.2.3