diff options
author | Lukas Larsson <[email protected]> | 2010-10-04 19:03:41 +0200 |
---|---|---|
committer | Lukas Larsson <[email protected]> | 2011-02-17 17:16:53 +0100 |
commit | e993afa1fb9c7143e09c55dee58aee32e9876d78 (patch) | |
tree | 3a3260cff260f14f885847b393b1136bd0e311e8 /lib/megaco/test/megaco_codec_prev3a_test.erl | |
parent | d161dc2b44f29f184e60efcd460ed27b1ee0a0e1 (diff) | |
download | otp-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.erl | 51 |
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). + %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |