diff options
| author | Micael Karlberg <[email protected]> | 2013-03-22 14:33:22 +0100 |
|---|---|---|
| committer | Micael Karlberg <[email protected]> | 2013-03-22 14:33:22 +0100 |
| commit | cd36b839042846b62731988cfafc34d74f6f86d5 (patch) | |
| tree | daded3a5782174debc63623121dffff51c10eb05 | |
| parent | aec630d41b13e31c7732513457a54e19937c7a75 (diff) | |
| download | otp-cd36b839042846b62731988cfafc34d74f6f86d5.tar.gz otp-cd36b839042846b62731988cfafc34d74f6f86d5.tar.bz2 otp-cd36b839042846b62731988cfafc34d74f6f86d5.zip | |
Minor test case rework
| -rw-r--r-- | lib/megaco/test/megaco_codec_v2_test.erl | 62 |
1 files changed, 27 insertions, 35 deletions
diff --git a/lib/megaco/test/megaco_codec_v2_test.erl b/lib/megaco/test/megaco_codec_v2_test.erl index 248612ed12..a69d66e699 100644 --- a/lib/megaco/test/megaco_codec_v2_test.erl +++ b/lib/megaco/test/megaco_codec_v2_test.erl @@ -3941,6 +3941,9 @@ m=audio - TDM - }}}}}">>. +flex_compact_seq12263_num() -> + 1000. + flex_compact_seq12263_msg01(suite) -> []; flex_compact_seq12263_msg01(Config) when is_list(Config) -> @@ -3960,7 +3963,7 @@ flex_compact_seq12263_msg01(Config) when is_list(Config) -> exit(Error) end, d("flex_compact_seq12263_msg01 -> flex config generated", []), - flex_compact_seq12263([Conf], lists:duplicate(1000, Msg)). + flex_compact_seq12263([Conf], flex_compact_seq12263_num(), Msg). flex_compact_seq12263_msg02(suite) -> []; @@ -3981,7 +3984,7 @@ flex_compact_seq12263_msg02(Config) when is_list(Config) -> exit(Error) end, d("flex_compact_seq12263_msg02 -> flex config generated", []), - flex_compact_seq12263([Conf], lists:duplicate(1000, Msg)). + flex_compact_seq12263([Conf], flex_compact_seq12263_num(), Msg). flex_compact_seq12263_msg03(suite) -> []; @@ -4002,7 +4005,7 @@ flex_compact_seq12263_msg03(Config) when is_list(Config) -> exit(Error) end, d("flex_compact_seq12263_msg03 -> flex config generated", []), - flex_compact_seq12263([Conf], lists:duplicate(1000, Msg)). + flex_compact_seq12263([Conf], flex_compact_seq12263_num(), Msg). flex_compact_seq12263_msg04(suite) -> []; @@ -4023,40 +4026,29 @@ flex_compact_seq12263_msg04(Config) when is_list(Config) -> exit(Error) end, d("flex_compact_seq12263_msg04 -> flex config generated", []), - flex_compact_seq12263([Conf], lists:duplicate(1000, Msg)). - -flex_compact_seq12263(EC, BinMsgs) -> - BinMsgs2 = enumerate(BinMsgs), - Codec = megaco_compact_text_encoder, - try - begin - lists:foreach( - fun({No, BinMsg}) -> - case decode_message(Codec, false, EC, BinMsg) of - {ok, _Msg} -> - d("flex_compact_seq12263 -> decode ok", []), - ok; - {error, Reason} -> - e("flex_compact_seq12263 -> " - "decode ~w failed: ~p", [No, Reason]), - throw({error, No, Reason}) - end - end, BinMsgs2), - ok - end - catch - exit:E -> - exit(E) - end. + flex_compact_seq12263([Conf], flex_compact_seq12263_num(), Msg). +flex_compact_seq12263(EC, N, BinMsg) -> + Codec = megaco_compact_text_encoder, + Decode = fun(No) -> + case decode_message(Codec, false, EC, BinMsg) of + {ok, _Msg} -> + d("flex_compact_seq12263 -> decode ok", []), + ok; + {error, Reason} -> + e("flex_compact_seq12263 -> " + "decode ~w failed: ~p", [No, Reason]), + throw({error, No, Reason}) + end + end, + do_flex_compact_seq12263(N, Decode). + +do_flex_compact_seq12263(N, Decode) when N > 0 -> + Decode(N), + do_flex_compact_seq12263(N-1, Decode); +do_flex_compact_seq12263(_, _) -> + ok. -enumerate(L) -> - enumerate(1, L). - -enumerate(_No, []) -> - []; -enumerate(No, [H|T]) -> - [{No, H} | enumerate(No+1, T)]. %% ============================================================== |