%%--------------------------------------------------------------------
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2012. 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%
%%
%%----------------------------------------------------------------------
%% File: ct_snmp_SUITE.erl
%%
%% Description:
%%    This file contains the test cases for the ct_snmp API.
%%
%% @author Support
%% @doc Test  of SNMP support in common_test
%% @end
%%----------------------------------------------------------------------
%%----------------------------------------------------------------------
-module(ct_snmp_SUITE).
-include_lib("common_test/include/ct.hrl").
-include_lib("snmp/include/STANDARD-MIB.hrl").
-include_lib("snmp/include/snmp_types.hrl").

-compile(export_all).

%% Default timetrap timeout (set in init_per_testcase).
-define(default_timeout, ?t:minutes(1)).

%% SNMP user stuff
-behaviour(snmpm_user).
-export([handle_error/3,
	 handle_agent/5,
	 handle_pdu/4,
	 handle_trap/3,
	 handle_inform/3,
	 handle_report/3]).


suite() ->
    [{require, snmp_mgr_agent, snmp},
     {require, snmp_app_cfg, snmp_app}].

all() ->
    [start_stop,
    {group,get_set}].


groups() ->
    [{get_set,[get_values,get_next_values,set_values]}].

init_per_group(get_set, Config) ->
    ok = ct_snmp:start(Config,snmp_mgr_agent,snmp_app_cfg),
    Config.

end_per_group(get_set, Config) ->
    ok = ct_snmp:stop(Config),
    Config.

init_per_testcase(_Case, Config) ->
    Dog = test_server:timetrap(?default_timeout),
    [{watchdog, Dog}|Config].

end_per_testcase(_Case, Config) ->
    Dog=?config(watchdog, Config),
    test_server:timetrap_cancel(Dog),
    ok.

init_per_suite(Config) ->
    Config.

end_per_suite(Config) ->
    Config.

break(_Config) ->
    test_server:break(""),
    ok.

start_stop(Config) ->
    ok = ct_snmp:start(Config,snmp_mgr_agent,snmp_app_cfg),
    timer:sleep(1000),
    {snmp,_,_} = lists:keyfind(snmp,1,application:which_applications()),
    [_|_] = filelib:wildcard("*/*.conf",?config(priv_dir,Config)),

    ok = ct_snmp:stop(Config),
    timer:sleep(1000),
    false = lists:keyfind(snmp,1,application:which_applications()),
    [] = filelib:wildcard("*/*.conf",?config(priv_dir,Config)),
    ok.

get_values(_Config) ->
    Oids1 = [?sysDescr_instance, ?sysName_instance],
    {noError,_,V1} = ct_snmp:get_values(agent_name,Oids1,snmp_mgr_agent),
    [#varbind{oid=?sysDescr_instance,value="Erlang SNMP agent"},
     #varbind{oid=?sysName_instance,value="ct_test"}] = V1,
    ok.

get_next_values(_Config) ->
    Oids2 = [?system],
    {noError,_,V2} = ct_snmp:get_next_values(agent_name,Oids2,snmp_mgr_agent),
    [#varbind{oid=?sysDescr_instance,value="Erlang SNMP agent"}] = V2,
    ok.

set_values(Config) ->
    Oid3 = ?sysName_instance,
    NewName = "ct_test changed by " ++ atom_to_list(?MODULE),
    VarsAndVals = [{Oid3,s,NewName}],
    {noError,_,_} =
	ct_snmp:set_values(agent_name,VarsAndVals,snmp_mgr_agent,Config),

    Oids4 = [?sysName_instance],
    {noError,_,V4} = ct_snmp:get_values(agent_name,Oids4,snmp_mgr_agent),
    [#varbind{oid=?sysName_instance,value=NewName}] = V4,

    ok.


%%%-----------------------------------------------------------------
%%% SNMP Manager User callback
handle_error(ReqId, Reason, UserData) ->
    erlang:display({handle_error,ReqId, Reason, UserData}),
    ignore.

handle_agent(Addr, Port, Type, SnmpInfo, UserData) ->
    erlang:display({handle_agent,Addr, Port, Type, SnmpInfo, UserData}),
    ignore.

handle_pdu(TargetName, ReqId, SnmpPduInfo, UserData) ->
    erlang:display({handle_pdu,TargetName, ReqId, SnmpPduInfo, UserData}),
    ignore.

handle_trap(TargetName, SnmpTrapInfo, UserData) ->
    erlang:display({handle_trap,TargetName, SnmpTrapInfo, UserData}),
    ignore.

handle_inform(TargetName, SnmpInformInfo, UserData) ->
    erlang:display({handle_inform,TargetName, SnmpInformInfo, UserData}),
    ignore.

handle_report(TargetName, SnmpReportInfo, UserData) ->
    erlang:display({handle_report,TargetName, SnmpReportInfo, UserData}),
    ignore.