aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test/megaco_codec_prev3a_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_prev3a_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_prev3a_test.erl')
-rw-r--r--lib/megaco/test/megaco_codec_prev3a_test.erl51
1 files changed, 26 insertions, 25 deletions
diff --git a/lib/megaco/test/megaco_codec_prev3a_test.erl b/lib/megaco/test/megaco_codec_prev3a_test.erl
index 696a72343c..f3a68b045b 100644
--- a/lib/megaco/test/megaco_codec_prev3a_test.erl
+++ b/lib/megaco/test/megaco_codec_prev3a_test.erl
@@ -1,7 +1,7 @@
%%
%% %CopyrightBegin%
%%
-%% Copyright Ericsson AB 2005-2009. All Rights Reserved.
+%% Copyright Ericsson AB 2005-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
@@ -263,30 +263,7 @@ expand([Case|Cases], Acc) ->
expand(Cases, [Case|Acc])
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).
+
%% ----
@@ -569,6 +546,30 @@ flex_pretty_tickets_cases() ->
flex_pretty_otp7431_msg07
].
+%% ----
+
+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).
+
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%