diff options
| author | Fredrik Gustafsson <[email protected]> | 2012-11-29 11:36:13 +0100 |
|---|---|---|
| committer | Fredrik Gustafsson <[email protected]> | 2012-11-29 11:36:13 +0100 |
| commit | 179e47446a5940acfdde5dea38d1b318520ad464 (patch) | |
| tree | f27700dac6009e19944904fd0d513709bd88838d /lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl | |
| parent | b5f755bab947c220c6ec434b121ccbc1d0a2476e (diff) | |
| download | otp-179e47446a5940acfdde5dea38d1b318520ad464.tar.gz otp-179e47446a5940acfdde5dea38d1b318520ad464.tar.bz2 otp-179e47446a5940acfdde5dea38d1b318520ad464.zip | |
Changed erlclient testcases for sftp
Diffstat (limited to 'lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl')
| -rw-r--r-- | lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl | 21 |
1 files changed, 18 insertions, 3 deletions
diff --git a/lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl b/lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl index 7fc2312661..c2cea76953 100644 --- a/lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl +++ b/lib/ssh/test/ssh_sftpd_erlclient_SUITE.erl @@ -42,7 +42,8 @@ all() -> quit, file_cb, root_dir, - list_dir_limited]. + list_dir_limited, + ver6_basic]. groups() -> []. @@ -112,7 +113,12 @@ init_per_testcase(TestCase, Config) -> [{system_dir, SystemDir}, {user_dir, PrivDir}, {subsystems, [Spec]}]; - + "ver6_basic" -> + Spec = + ssh_sftpd:subsystem_spec([{sftpd_vsn, 6}]), + [{system_dir, SystemDir}, + {user_dir, PrivDir}, + {subsystems, [Spec]}]; _ -> [{user_dir, PrivDir}, {system_dir, SystemDir}] @@ -232,7 +238,7 @@ file_cb(Config) when is_list(Config) -> NewDir = filename:join(PrivDir, "testdir"), ok = ssh_sftp:make_dir(Sftp, NewDir), alt_file_handler_check(alt_make_dir), - + ok = ssh_sftp:del_dir(Sftp, NewDir), alt_file_handler_check(alt_read_link_info), alt_file_handler_check(alt_write_file_info), @@ -260,6 +266,15 @@ list_dir_limited(Config) when is_list(Config) -> ssh_sftp:list_dir(Sftp, "."), ct:pal("Listing: ~p~n", [Listing]). +ver6_basic(doc) -> + ["Test some version 6 features"]; +ver6_basic(Config) when is_list(Config) -> + PrivDir = ?config(priv_dir, Config), + NewDir = filename:join(PrivDir, "testdir"), + {Sftp, _} = ?config(sftp, Config), + %ok = ssh_sftp:make_dir(Sftp, NewDir), + %%Test file_is_a_directory + {error, file_is_a_directory} = ssh_sftp:delete(Sftp, NewDir). %%-------------------------------------------------------------------- %% Internal functions ------------------------------------------------ %%-------------------------------------------------------------------- |