diff options
Diffstat (limited to 'lib/megaco/test/megaco_codec_mini_test.erl')
| -rw-r--r-- | lib/megaco/test/megaco_codec_mini_test.erl | 220 |
1 files changed, 220 insertions, 0 deletions
diff --git a/lib/megaco/test/megaco_codec_mini_test.erl b/lib/megaco/test/megaco_codec_mini_test.erl new file mode 100644 index 0000000000..e509739bb1 --- /dev/null +++ b/lib/megaco/test/megaco_codec_mini_test.erl @@ -0,0 +1,220 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2008-2009. 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% +%% + +%% +%%---------------------------------------------------------------------- +%% Purpose: Test mini encoding/decoding (codec) module of Megaco/H.248 +%%---------------------------------------------------------------------- + +-module(megaco_codec_mini_test). + +%% ---- + +-include_lib("megaco/include/megaco.hrl"). +%% -include_lib("megaco/include/megaco_message_v3.hrl"). +-include("megaco_test_lib.hrl"). + +%% ---- + +-export([t/0, t/1]). + +-export([all/1, + + tickets/0, + tickets/1, + otp7672_msg01/1, + otp7672_msg02/1, + + init_per_testcase/2, fin_per_testcase/2]). + + +%% ---- + +-define(SET_DBG(S,D), begin put(severity, S), put(dbg, D) end). +-define(RESET_DBG(), begin erase(severity), erase(dbg) end). + + +%% ---- + +tickets() -> + Flag = process_flag(trap_exit, true), + Cases = expand(tickets), + Fun = fun(Case) -> + C = init_per_testcase(Case, [{tc_timeout, + timer:minutes(10)}]), + io:format("Eval ~w~n", [Case]), + Result = + case (catch apply(?MODULE, Case, [C])) of + {'EXIT', Reason} -> + io:format("~n~p exited:~n ~p~n", + [Case, Reason]), + {error, {Case, Reason}}; + Res -> + Res + end, + fin_per_testcase(Case, C), + Result + end, + process_flag(trap_exit, Flag), + lists:map(Fun, Cases). + +expand(RootCase) -> + expand([RootCase], []). + +expand([], Acc) -> + lists:flatten(lists:reverse(Acc)); +expand([Case|Cases], Acc) -> + case (catch apply(?MODULE,Case,[suite])) of + [] -> + expand(Cases, [Case|Acc]); + C when is_list(C) -> + expand(Cases, [expand(C, [])|Acc]); + _ -> + expand(Cases, [Case|Acc]) + end. + + +%% ---- + +t() -> megaco_test_lib:t(?MODULE). +t(Case) -> megaco_test_lib:t({?MODULE, Case}). + +init_per_testcase(Case, Config) -> + C = + case lists:suffix("time_test", atom_to_list(Case)) of + true -> + [{tc_timeout, timer:minutes(10)}|Config]; + false -> + put(verbosity,trc), + Config + end, + megaco_test_lib:init_per_testcase(Case, C). + +fin_per_testcase(Case, Config) -> + erase(verbosity), + megaco_test_lib:fin_per_testcase(Case, Config). + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% Top test case + +all(suite) -> + [ + tickets + ]. + +tickets(suite) -> + [ + otp7672_msg01, + otp7672_msg02 + ]. + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%% # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # +%% Ticket test cases: + + +%% -------------------------------------------------------------- +%% + +otp7672_msg01(suite) -> + []; +otp7672_msg01(Config) when is_list(Config) -> + %% ?SET_DBG(trc, true), + d("otp7672_msg01 -> entry", []), + ok = otp7672( otp7672_msg01() ), + %% ?RESET_DBG(), + ok. + +otp7672_msg02(suite) -> + []; +otp7672_msg02(Config) when is_list(Config) -> + %% ?SET_DBG(trc, true), + d("otp7672_msg02 -> entry", []), + ok = otp7672( otp7672_msg02() ), + %% ?RESET_DBG(), + ok. + + +otp7672_msg01() -> + <<"!/1 <TEST> ">>. + +otp7672_msg02() -> + <<"!/1 <TE> ">>. + +otp7672(Msg) -> + case megaco_text_mini_decoder:decode_message([], Msg) of + {ok, M} -> + t("mini decode successfull: ~n~p", [M]), + ok; + Error -> + e("mini decode failed: ~n~p", [Error]), + {error, Error} + end. + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +t(F,A) -> + p(printable(get(severity),trc),trc,F,A). + +d(F,A) -> + p(printable(get(severity),dbg),dbg,F,A). + +%% l(F,A) -> +%% p(printable(get(severity),log),log,F,A). + +e(F,A) -> + p(printable(get(severity),err),err,F,A). + + +printable(trc,_) -> + true; +printable(dbg,trc) -> + false; +printable(dbg,_) -> + true; +printable(log,log) -> + true; +printable(log,err) -> + true; +printable(err,err) -> + true; +printable(_,_) -> + false. + + +p(true,L,F,A) -> + io:format("~s:" ++ F ++ "~n", [image_of(L)|A]); +p(_,_,_,_) -> + ok. + +image_of(trc) -> + "TRC"; +image_of(dbg) -> + "DBG"; +image_of(log) -> + "LOG"; +image_of(err) -> + "ERR"; +image_of(L) -> + io_lib:format("~p",[L]). + |