%%
%% %CopyrightBegin%
%% 
%% Copyright Ericsson AB 2000-2019. All Rights Reserved.
%% 
%% Licensed under the Apache License, Version 2.0 (the "License");
%% you may not use this file except in compliance with the License.
%% You may obtain a copy of the License at
%%
%%     http://www.apache.org/licenses/LICENSE-2.0
%%
%% Unless required by applicable law or agreed to in writing, software
%% distributed under the License is distributed on an "AS IS" BASIS,
%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
%% See the License for the specific language governing permissions and
%% limitations under the License.
%% 
%% %CopyrightEnd%
%%

%%
%%----------------------------------------------------------------------
%% Purpose: Test application config
%%----------------------------------------------------------------------

-module(megaco_SUITE).

-export([
         suite/0,
         all/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,

         t/0, t/1,
         init/0
        ]).

-include("megaco_test_lib.hrl").
-include_lib("megaco/include/megaco.hrl").

t()     -> megaco_test_lib:t(?MODULE).
t(Case) -> megaco_test_lib:t({?MODULE, Case}).

%% Test server callbacks
init_per_testcase(Case, Config) ->
    megaco_test_lib:init_per_testcase(Case, Config).

end_per_testcase(Case, Config) ->
    megaco_test_lib:end_per_testcase(Case, Config).

init() ->
    process_flag(trap_exit, true),
    megaco_test_lib:flush().

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Top test case

suite() -> [{ct_hooks, [{ts_install_cth, [{nodenames,1}]}]}].

all() -> 
    [{group, app_test}, 
     {group, appup_test},
     {group, config}, 
     {group, flex}, 
     {group, udp},
     {group, tcp}, 
     {group, examples}, 
     {group, digit_map},
     {group, mess}, 
     {group, measure},
     {group, binary_term_id}, 
     {group, codec}, 
     {group, sdp},
     {group, mib}, 
     {group, trans}, 
     {group, actions},
     {group, load}, 
     {group, pending_limit},
     {group, segmented}, 
     {group, timer}].

groups() -> 
    [{tickets,        [], [{group, mess}, {group, codec}]},
     {app_test,       [], [{megaco_app_test,            all}]},
     {appup_test,     [], [{megaco_appup_test,          all}]},
     {config,         [], [{megaco_config_test,         all}]},
     {call_flow,      [], [{megaco_call_flow_test,      all}]},
     {digit_map,      [], [{megaco_digit_map_test,      all}]},
     {mess,           [], [{megaco_mess_test,           all}]},
     {udp,            [], [{megaco_udp_test,            all}]},
     {tcp,            [], [{megaco_tcp_test,            all}]},
     {examples,       [], [{megaco_examples_test,       all}]},
     {measure,        [], [{megaco_measure_test,        all}]},
     {binary_term_id, [], [{megaco_binary_term_id_test, all}]},
     {codec,          [], [{megaco_codec_test,          all}]},
     {sdp,            [], [{megaco_sdp_test,            all}]},
     {mib,            [], [{megaco_mib_test,            all}]},
     {trans,          [], [{megaco_trans_test,          all}]},
     {actions,        [], [{megaco_actions_test,        all}]},
     {load,           [], [{megaco_load_test,           all}]},
     {pending_limit,  [], [{megaco_pending_limit_test,  all}]},
     {segmented,      [], [{megaco_segment_test,        all}]},
     {timer,          [], [{megaco_timer_test,          all}]},
     {flex,           [], [{megaco_flex_test,           all}]}].

init_per_suite(Config) ->
    io:format("~w:init_per_suite -> entry with"
	      "~n   Config:     ~p"
              "~n   OS Type:    ~p"
              "~n   OS Version: ~s"
	      "~n", 
              [?MODULE, 
               Config, 
               os:type(), 
               case os:version() of
                   {Major, Minor, Release} ->
                       ?F("~w.~w.~w", [Major, Minor, Release]);
                   Str when is_list(Str) ->
                       Str
               end]),
    Config.

end_per_suite(_Config) ->
    ok.

init_per_group(_GroupName, Config) ->
    Config.

end_per_group(_GroupName, Config) ->
    Config.