diff options
author | Ingela Anderton Andin <[email protected]> | 2012-01-16 11:43:15 +0100 |
---|---|---|
committer | Ingela Anderton Andin <[email protected]> | 2012-01-16 11:43:15 +0100 |
commit | f8815dc88bd86d6508d2a3dad031ea939fb2b443 (patch) | |
tree | 6db7476dddc9a21566d144ee722b676d938646ff /lib/ssh/test/ssh_sftpd_SUITE.erl | |
parent | 27d478f37930d147aaac62a1353e071ca17fbbcc (diff) | |
parent | b89c0042c4839ae8ebb231640f3e66ee52de3aa7 (diff) | |
download | otp-f8815dc88bd86d6508d2a3dad031ea939fb2b443.tar.gz otp-f8815dc88bd86d6508d2a3dad031ea939fb2b443.tar.bz2 otp-f8815dc88bd86d6508d2a3dad031ea939fb2b443.zip |
Merge branch 'ia/ssh/test-maint' into maint
* ia/ssh/test-maint:
Remove generation of new test keys, use checked in test keys
Improve test case structure so that test should pass on all platforms
Exec test case should ignore stderr messages
Do not run ssh_to_openssh_SUITE if there is no oppenssh server running
Diffstat (limited to 'lib/ssh/test/ssh_sftpd_SUITE.erl')
-rw-r--r-- | lib/ssh/test/ssh_sftpd_SUITE.erl | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/lib/ssh/test/ssh_sftpd_SUITE.erl b/lib/ssh/test/ssh_sftpd_SUITE.erl index bfe54a3e75..0873348be0 100644 --- a/lib/ssh/test/ssh_sftpd_SUITE.erl +++ b/lib/ssh/test/ssh_sftpd_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2006-2011. All Rights Reserved. +%% Copyright Ericsson AB 2006-2012. 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 @@ -53,16 +53,15 @@ %% variable, but should NOT alter/remove any existing entries. %%-------------------------------------------------------------------- init_per_suite(Config) -> - case {catch ssh:stop(),catch crypto:start()} of - {ok,ok} -> - ssh_test_lib:make_dsa_files(Config), + case (catch crypto:start()) of + ok -> + ssh:start(), + DataDir = ?config(data_dir, Config), + UserDir = ?config(priv_dir, Config), + ssh_test_lib:setup_dsa(UserDir, DataDir), Config; - {ok,_} -> - {skip,"Could not start ssh!"}; - {_,ok} -> - {skip,"Could not start crypto!"}; - {_,_} -> - {skip,"Could not start crypto and ssh!"} + _ -> + {skip,"Could not start ssh!"} end. %%-------------------------------------------------------------------- @@ -71,7 +70,10 @@ init_per_suite(Config) -> %% A list of key/value pairs, holding the test case configuration. %% Description: Cleanup after the whole suite %%-------------------------------------------------------------------- -end_per_suite(_Config) -> +end_per_suite(Config) -> + UserDir = ?config(priv_dir, Config), + ssh_test_lib:clean_dsa(UserDir), + ssh:stop(), crypto:stop(), ok. |