aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test/megaco_codec_mini_test.erl
diff options
context:
space:
mode:
authorLukas Larsson <[email protected]>2010-10-04 19:03:41 +0200
committerLukas Larsson <[email protected]>2011-02-17 17:16:53 +0100
commite993afa1fb9c7143e09c55dee58aee32e9876d78 (patch)
tree3a3260cff260f14f885847b393b1136bd0e311e8 /lib/megaco/test/megaco_codec_mini_test.erl
parentd161dc2b44f29f184e60efcd460ed27b1ee0a0e1 (diff)
downloadotp-e993afa1fb9c7143e09c55dee58aee32e9876d78.tar.gz
otp-e993afa1fb9c7143e09c55dee58aee32e9876d78.tar.bz2
otp-e993afa1fb9c7143e09c55dee58aee32e9876d78.zip
Updated test cases to work with ts conversion algorithm
Diffstat (limited to 'lib/megaco/test/megaco_codec_mini_test.erl')
-rw-r--r--lib/megaco/test/megaco_codec_mini_test.erl51
1 files changed, 25 insertions, 26 deletions
diff --git a/lib/megaco/test/megaco_codec_mini_test.erl b/lib/megaco/test/megaco_codec_mini_test.erl
index e509739bb1..cb4cf09536 100644
--- a/lib/megaco/test/megaco_codec_mini_test.erl
+++ b/lib/megaco/test/megaco_codec_mini_test.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2008-2009. All Rights Reserved.
+%% Copyright Ericsson AB 2008-2010. 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
@@ -49,31 +49,6 @@
-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], []).
@@ -125,6 +100,30 @@ tickets(suite) ->
otp7672_msg02
].
+%% ----
+
+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).
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%