From cd36b839042846b62731988cfafc34d74f6f86d5 Mon Sep 17 00:00:00 2001
From: Micael Karlberg <bmk@erlang.org>
Date: Fri, 22 Mar 2013 14:33:22 +0100
Subject: Minor test case rework

---
 lib/megaco/test/megaco_codec_v2_test.erl | 62 ++++++++++++++------------------
 1 file changed, 27 insertions(+), 35 deletions(-)

(limited to 'lib/megaco')

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)].
 
 
 %% ==============================================================
-- 
cgit v1.2.3