%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2005-2010. 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
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%
-module(ftp_format_SUITE).
-author('[email protected]').
-include_lib("common_test/include/ct.hrl").
-include("test_server_line.hrl").
-include("ftp_internal.hrl").
%% Test server specific exports
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
init_per_group/2,end_per_group/2,
init_per_testcase/2, end_per_testcase/2]).
%% Test cases must be exported.
-export([ ftp_150/1,
ftp_200/1, ftp_220/1, ftp_226/1, ftp_257/1, ftp_331/1, ftp_425/1,
ftp_other_status_codes/1, ftp_multiple_lines/1,
ftp_multipel_ctrl_messages/1, format_error/1]).
suite() -> [{ct_hooks,[ts_install_cth]}].
all() ->
[{group, ftp_response}, format_error].
groups() ->
[{ftp_response, [],
[ftp_150, ftp_200, ftp_220, ftp_226, ftp_257, ftp_331,
ftp_425, ftp_other_status_codes, ftp_multiple_lines,
ftp_multipel_ctrl_messages]}].
init_per_suite(Config) ->
Config.
end_per_suite(_Config) ->
ok.
init_per_group(_GroupName, Config) ->
Config.
end_per_group(_GroupName, Config) ->
Config.
init_per_testcase(_, Config) ->
Dog = test_server:timetrap(?t:minutes(1)),
NewConfig = lists:keydelete(watchdog, 1, Config),
[{watchdog, Dog} | NewConfig].
end_per_testcase(_, Config) ->
Dog = ?config(watchdog, Config),
test_server:timetrap_cancel(Dog),
ok.
%%-------------------------------------------------------------------------
%% Test cases starts here.
%%-------------------------------------------------------------------------
ftp_150(doc) ->
["Especially check that respons can be devided in a random place."];
ftp_150(suite) ->
[];
ftp_150(Config) when is_list(Config) ->
FtpResponse = ["150 ASCII data conn", "ection for /bin/ls ",
"(134.138.177", ".89,50434) (0 bytes).\r\n"],
"150 ASCII data connection for /bin/ls "
"(134.138.177.89,50434) (0 bytes).\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_prel, _} = ftp_response:interpret(Msg),
ok.
ftp_200(doc) ->
["Especially check that respons can be devided after the first status "
"code character and in the end delimiter."];
ftp_200(suite) ->
[];
ftp_200(Config) when is_list(Config) ->
FtpResponse = ["2", "00 PORT command successful.", [?CR], [?LF]],
"200 PORT command successful.\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(Msg),
ok.
ftp_220(doc) ->
["Especially check that respons can be devided after the "
"first with space "];
ftp_220(suite) ->
[];
ftp_220(Config) when is_list(Config) ->
FtpResponse = ["220 ","fingon FTP server (SunOS 5.8) ready.\r\n"],
"220 fingon FTP server (SunOS 5.8) ready.\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(Msg),
ok.
ftp_226(doc) ->
["Especially check that respons can be devided after second status code"
" character and in the end delimiter."];
ftp_226(suite) ->
[];
ftp_226(Config) when is_list(Config) ->
FtpResponse = ["22" "6 Transfer complete.\r", [?LF]],
"226 Transfer complete.\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(Msg),
ok.
ftp_257(doc) ->
["Especially check that quoted chars do not cause a problem."];
ftp_257(suite) ->
[];
ftp_257(Config) when is_list(Config) ->
FtpResponse = ["257 \"/\" is current directory.\r\n"],
"257 \"/\" is current directory.\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(Msg),
ok.
ftp_331(doc) ->
["Especially check that respons can be devided after the third status "
" status code character."];
ftp_331(suite) ->
[];
ftp_331(Config) when is_list(Config) ->
%% Brake before white space after code
FtpResponse =
["331"," Guest login ok, send ient as password.\r\n"],
"331 Guest login ok, send ient as password.\r\n" = Msg =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_interm, _} = ftp_response:interpret(Msg),
ok.
ftp_425(doc) ->
["Especially check a message that was received in only one part."];
ftp_425(suite) ->
[];
ftp_425(Config) when is_list(Config) ->
FtpResponse =
["425 Can't build data connection: Connection refused.\r\n"],
"425 Can't build data connection: Connection refused.\r\n"
= Msg = parse(ftp_response, parse_lines, [[], start], FtpResponse),
{trans_neg_compl, _} = ftp_response:interpret(Msg),
ok.
ftp_multiple_lines(doc) ->
["Especially check multiple lines devided in significant places"];
ftp_multiple_lines(suite) ->
[];
ftp_multiple_lines(Config) when is_list(Config) ->
FtpResponse = ["21", "4","-The",
" following commands are recognized:\r\n"
" USER EPRT STRU MAIL* ALLO CWD",
" STAT* XRMD \r\n"
" PASS LPRT MODE MSND* "
" REST* XCWD HELP PWD ", [?CRLF],
" ACCT* EPSV RETR MSOM* RNFR LIST "
" NOOP XPWD \r\n",
" REIN* LPSV STOR MSAM* RNTO NLST "
" MKD CDUP \r\n"
" QUIT PASV APPE MRSQ* ABOR SITE* "
" XMKD XCUP \r\n"
" PORT TYPE MLFL* MRCP* DELE SYST "
" RMD STOU \r\n"
"214 (*'s => unimplemented)", [?CR], [?LF]],
FtpResponse1 = ["214-", "The",
" following commands are recognized:\r\n"
" USER EPRT STRU MAIL* ALLO CWD",
" STAT* XRMD \r\n"
" PASS LPRT MODE MSND* "
" REST* XCWD HELP PWD ", [?CRLF],
" ACCT* EPSV RETR MSOM* RNFR LIST "
" NOOP XPWD \r\n",
" REIN* LPSV STOR MSAM* RNTO NLST "
" MKD CDUP \r\n"
" QUIT PASV APPE MRSQ* ABOR SITE* "
" XMKD XCUP \r\n"
" PORT TYPE MLFL* MRCP* DELE SYST "
" RMD STOU \r\n"
"2", "14 (*'s => unimplemented)", [?CR], [?LF]],
FtpResponse2 = ["214-", "The",
" following commands are recognized:\r\n"
" USER EPRT STRU MAIL* ALLO CWD",
" STAT* XRMD \r\n"
" PASS LPRT MODE MSND* "
" REST* XCWD HELP PWD ", [?CRLF],
" ACCT* EPSV RETR MSOM* RNFR LIST "
" NOOP XPWD \r\n",
" REIN* LPSV STOR MSAM* RNTO NLST "
" MKD CDUP \r\n"
" QUIT PASV APPE MRSQ* ABOR SITE* "
" XMKD XCUP \r\n"
" PORT TYPE MLFL* MRCP* DELE SYST "
" RMD STOU \r\n"
"21", "4"," (*'s => unimplemented)", [?CR], [?LF]],
MultiLineResultStr =
"214-The following commands are recognized:\r\n"
" USER EPRT STRU MAIL* ALLO CWD STAT* "
"XRMD \r\n"
" PASS LPRT MODE MSND* REST* XCWD HELP "
"PWD \r\n"
" ACCT* EPSV RETR MSOM* RNFR LIST NOOP "
"XPWD \r\n"
" REIN* LPSV STOR MSAM* RNTO NLST MKD "
"CDUP \r\n"
" QUIT PASV APPE MRSQ* ABOR SITE* XMKD "
"XCUP \r\n"
" PORT TYPE MLFL* MRCP* DELE SYST RMD "
"STOU \r\n"
"214 (*'s => unimplemented)\r\n",
MultiLineResultStr =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(MultiLineResultStr),
MultiLineResultStr = parse(ftp_response, parse_lines, [[], start],
FtpResponse1),
MultiLineResultStr = parse(ftp_response, parse_lines, [[], start],
FtpResponse2),
ok.
ftp_other_status_codes(doc) ->
["Check that other valid status codes, than the ones above, are handled"
"by ftp_response:interpret/1. Note there are som ftp status codes"
"that will not be received with the current ftp instruction support,"
"they are not included here."];
ftp_other_status_codes(suite) ->
[];
ftp_other_status_codes(Config) when is_list(Config) ->
%% 1XX
{pos_prel, _ } = ftp_response:interpret("120 Foobar\r\n"),
%% 2XX
{pos_compl, _ } = ftp_response:interpret("202 Foobar\r\n"),
{pos_compl, _ } = ftp_response:interpret("221 Foobar\r\n"),
{pos_compl, _ } = ftp_response:interpret("227 Foobar\r\n"),
{pos_compl, _ } = ftp_response:interpret("230 Foobar\r\n"),
{pos_compl, _ } = ftp_response:interpret("250 Foobar\r\n"),
%% 3XX
{pos_interm_acct, _ } = ftp_response:interpret("332 Foobar\r\n"),
{pos_interm, _ } = ftp_response:interpret("350 Foobar\r\n"),
%% 4XX
{trans_neg_compl, _ } = ftp_response:interpret("421 Foobar\r\n"),
{trans_neg_compl, _ } = ftp_response:interpret("426 Foobar\r\n"),
{trans_neg_compl, _ } = ftp_response:interpret("450 Foobar\r\n"),
{trans_neg_compl, _ } = ftp_response:interpret("451 Foobar\r\n"),
{etnospc, _ } = ftp_response:interpret("452 Foobar\r\n"),
%% 5XX
{perm_neg_compl, _ } = ftp_response:interpret("500 Foobar\r\n"),
{perm_neg_compl, _ } = ftp_response:interpret("501 Foobar\r\n"),
{perm_neg_compl, _ } = ftp_response:interpret("503 Foobar\r\n"),
{perm_neg_compl, _ } = ftp_response:interpret("504 Foobar\r\n"),
{perm_neg_compl, _ } = ftp_response:interpret("530 Foobar\r\n"),
{perm_neg_compl, _ } = ftp_response:interpret("532 Foobar\r\n"),
{epath, _ } = ftp_response:interpret("550 Foobar\r\n"),
{epnospc, _ } = ftp_response:interpret("552 Foobar\r\n"),
{efnamena, _ } = ftp_response:interpret("553 Foobar\r\n"),
ok.
ftp_multipel_ctrl_messages(doc) ->
["The ftp server may send more than one control message as a reply,"
"check that they are handled one at the time."];
ftp_multipel_ctrl_messages(suite) ->
[];
ftp_multipel_ctrl_messages(Config) when is_list(Config) ->
FtpResponse = ["200 PORT command successful.\r\n200 Foobar\r\n"],
{"200 PORT command successful.\r\n" = Msg, NextMsg} =
parse(ftp_response, parse_lines, [[], start], FtpResponse),
{pos_compl, _} = ftp_response:interpret(Msg),
NewMsg = parse(ftp_response, parse_lines, [[], start], NextMsg),
{pos_compl, _} = ftp_response:interpret(NewMsg),
ok.
%%-------------------------------------------------------------------------
format_error(doc) ->
[""];
format_error(suite) ->
[];
format_error(Config) when is_list(Config) ->
"Synchronisation error during chunk sending." =
ftp:formaterror(echunk),
"Session has been closed." = ftp:formaterror(eclosed),
"Connection to remote server prematurely closed." =
ftp:formaterror(econn),
"File or directory already exists." = ftp:formaterror(eexists),
"Host not found, FTP server not found, or connection rejected." =
ftp:formaterror(ehost),
"User not logged in." = ftp:formaterror(elogin),
"Term is not a binary." = ftp:formaterror(enotbinary),
"No such file or directory, already exists, or permission denied."
= ftp:formaterror(epath),
"No such type." = ftp:formaterror(etype),
"User name or password not valid." = ftp:formaterror(euser),
"Insufficient storage space in system." = ftp:formaterror(etnospc),
"Exceeded storage allocation (for current directory or dataset)."
= ftp:formaterror(epnospc),
"File name not allowed." = ftp:formaterror(efnamena),
"Unknown error: foobar" = ftp:formaterror({error, foobar}).
%%--------------------------------------------------------------------
%%% Internal functions
%%--------------------------------------------------------------------
parse(Module, Function, Args, Bin) when is_binary(Bin) ->
parse(Module, Function, Args, [binary_to_list(Bin)]);
parse(Module, Function, [AccLines, StatusCode], [Data | Rest]) ->
case Module:Function(list_to_binary(Data), AccLines, StatusCode) of
{ok, Result, <<>>} ->
Result;
{ok, Result, Next} ->
{Result, Next};
{continue, {NewData, NewAccLines, NewStatusCode}} ->
case Rest of
[] ->
test_server:fail({wrong_input, Data, Rest});
[_ | _] ->
parse(Module, Function, [NewAccLines, NewStatusCode],
[binary_to_list(NewData) ++ hd(Rest) | tl(Rest)])
end
end.
