4
%% Copyright Ericsson AB 2005-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 2005-2010. All Rights Reserved.
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
23
23
-compile(export_all).
25
-include("test_server.hrl").
25
-include_lib("common_test/include/ct.hrl").
27
27
-define(LIB_MOD,ftp_suite_lib).
28
28
-define(CASE_WRAPPER(_A_,_B_,_C_),?LIB_MOD:wrapper(_A_,_B_,_C_)).
87
87
%% Name of a test case.
88
88
%% Description: Returns a list of all test cases in this test suite
89
89
%%--------------------------------------------------------------------
94
[open, open_port, passive, active, api_missuse,
95
not_owner, progress_report].
91
[open, open_port, {group, passive}, {group, active},
92
api_missuse, not_owner, {group, progress_report}].
95
[{passive, [], ftp_suite_lib:passive(suite)},
96
{active, [], ftp_suite_lib:active(suite)},
98
ftp_suite_lib:progress_report(suite)}].
100
init_per_group(_GroupName, Config) ->
103
end_per_group(_GroupName, Config) ->
97
107
%% Test cases starts here.
98
108
%%--------------------------------------------------------------------
100
110
open(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:open/1).
101
111
open_port(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:open_port/1).
102
passive(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:passive/1).
103
active(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:active/1).
104
112
api_missuse(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:api_missuse/1).
105
113
not_owner(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:not_owner/1).
106
progress_report(X) -> ?CASE_WRAPPER(?PLATFORM,X,fun ?LIB_MOD:progress_report/1).
108
115
passive_user(X) -> ?LIB_MOD:passive_user(X).
109
116
passive_pwd(X) -> ?LIB_MOD:passive_pwd(X).