aboutsummaryrefslogtreecommitdiffstats
path: root/lib/inets/test/old_ftp_SUITE.erl
blob: 91bcae305304706e8c5b8e9168d514e25ddf7f87 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2005-2013. 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(old_ftp_SUITE).

-include_lib("common_test/include/ct.hrl").
-include("test_server_line.hrl").

%% Test server specific exports
-export([all/0, suite/0,groups/0,init_per_group/2,end_per_group/2]).
% -export([init_per_testcase/2, end_per_testcase/2]).
-export([init_per_suite/1, end_per_suite/1]).

-define(FTP_USER, "anonymous").
-define(FTP_PASS, passwd()).
-define(FTP_PORT, 21).

-define(BAD_HOST, "badhostname").
-define(BAD_USER, "baduser").
-define(BAD_DIR,  "baddirectory").

-ifdef(ftp_debug_client).
-define(ftp_open(Host, Flags), do_ftp_open(Host, [debug] ++ Flags)).
-else.
-ifdef(ftp_trace_client).
-define(ftp_open(Host, Flags), do_ftp_open(Host, [trace] ++ Flags)).
-else.
-define(ftp_open(Host, Flags), do_ftp_open(Host, [verbose] ++ Flags)).
-endif.
-endif.


%%--------------------------------------------------------------------
%% all(Arg) -> [Doc] | [Case] | {skip, Comment}
%% Arg - doc | suite
%% Doc - string()
%% Case - atom()
%%	Name of a test case function.
%% Comment - string()
%% Description: Returns documentation/test cases in this test suite
%%		or a skip tuple if the platform is not supported.
%%--------------------------------------------------------------------
suite() -> [{ct_hooks, [ts_install_cth]}].

all() ->
    [
     {group, solaris8_test},
     {group, solaris9_test},
     {group, solaris10_test},
     {group, linux_x86_test},
     {group, linux_ppc_test},
     {group, macosx_x86_test},
     {group, macosx_ppc_test},
     {group, openbsd_test},
     {group, freebsd_test},
     {group, netbsd_test},
     {group, windows_xp_test},
     {group, windows_2003_server_test},
     {group, ticket_tests}
    ].

groups() ->
    [
     {solaris8_test,            [], [{ftp_solaris8_sparc_test, all}]},
     {solaris9_test,            [], [{ftp_solaris9_sparc_test, all}]},
     {solaris10_test,           [], [{ftp_solaris10_sparc_test, all},
				     {ftp_solaris10_x86_test, all}]},
     {linux_x86_test,           [], [{ftp_linux_x86_test, all}]},
     {linux_ppc_test,           [], [{ftp_linux_ppc_test, all}]},
     {macosx_x86_test,          [], [{ftp_macosx_x86_test, all}]},
     {macosx_ppc_test,          [], [{ftp_macosx_ppc_test, all}]},
     {openbsd_test,             [], [{ftp_openbsd_x86_test, all}]},
     {freebsd_test,             [], [{ftp_freebsd_x86_test, all}]},
     {netbsd_test,              [], [{ftp_netbsd_x86_test, all}]},
     {windows_xp_test,          [], [{ftp_windows_xp_test, all}]},
     {windows_2003_server_test, [], [{ftp_windows_2003_server_test, all}]},
     {ticket_tests,             [], [{ftp_ticket_test, all}]}
    ].

init_per_group(_GroupName, Config) ->
	Config.

end_per_group(_GroupName, Config) ->
	Config.




%%--------------------------------------------------------------------
%% Function: init_per_suite(Config) -> Config
%% Config - [tuple()]
%%   A list of key/value pairs, holding the test case configuration.
%% Description: Initiation before the whole suite
%%
%% Note: This function is free to add any key/value pairs to the Config
%% variable, but should NOT alter/remove any existing entries.
%%--------------------------------------------------------------------
init_per_suite(Config) ->
    inets:start(),
    Config.

%%--------------------------------------------------------------------
%% Function: end_per_suite(Config) -> _
%% Config - [tuple()]
%%   A list of key/value pairs, holding the test case configuration.
%% Description: Cleanup after the whole suite
%%--------------------------------------------------------------------
end_per_suite(_Config) ->
    inets:stop(),
    ok.