aboutsummaryrefslogtreecommitdiffstats
path: root/lib/megaco/test/megaco_test_lib.erl
diff options
context:
space:
mode:
authorMicael Karlberg <[email protected]>2013-03-22 14:13:46 +0100
committerMicael Karlberg <[email protected]>2013-03-22 14:13:46 +0100
commitaec630d41b13e31c7732513457a54e19937c7a75 (patch)
treee3b5092382590918532d377a36fbb32b4185de98 /lib/megaco/test/megaco_test_lib.erl
parentdcac05b4490ce2715c35724b876b539164d7a92e (diff)
downloadotp-aec630d41b13e31c7732513457a54e19937c7a75.tar.gz
otp-aec630d41b13e31c7732513457a54e19937c7a75.tar.bz2
otp-aec630d41b13e31c7732513457a54e19937c7a75.zip
Test case cleanup
Diffstat (limited to 'lib/megaco/test/megaco_test_lib.erl')
-rw-r--r--lib/megaco/test/megaco_test_lib.erl58
1 files changed, 29 insertions, 29 deletions
diff --git a/lib/megaco/test/megaco_test_lib.erl b/lib/megaco/test/megaco_test_lib.erl
index 0018f4c247..55eee97443 100644
--- a/lib/megaco/test/megaco_test_lib.erl
+++ b/lib/megaco/test/megaco_test_lib.erl
@@ -114,7 +114,7 @@ os_based_skip(_) ->
tickets(Case) ->
Res = lists:flatten(tickets(Case, default_config())),
- io:format("~w:tickets(Case = ~w) -> Res: ~p~n", [?MODULE, Case, Res]),
+ %% io:format("~w:tickets(Case = ~w) -> Res: ~p~n", [?MODULE, Case, Res]),
display_result(Res),
Res.
@@ -122,24 +122,24 @@ tickets(Cases, Config) when is_list(Cases) ->
[tickets(Case, Config) || Case <- Cases];
tickets(Mod, Config) when is_atom(Mod) ->
Res = tickets(Mod, tickets, Config),
- io:format("~w:tickets(Mod = ~w) -> Res: ~p~n", [?MODULE, Mod, Res]),
+ %% io:format("~w:tickets(Mod = ~w) -> Res: ~p~n", [?MODULE, Mod, Res]),
Res;
tickets(Bad, _Config) ->
[{badarg, Bad, ok}].
tickets(Mod, Func, Config) ->
- io:format("~w:tickets -> entry with"
- "~n Mod: ~p"
- "~n Func: ~p"
- "~n Config: ~p"
- "~n", [?MODULE, Mod, Func, Config]),
+ %% io:format("~w:tickets -> entry with"
+ %% "~n Mod: ~p"
+ %% "~n Func: ~p"
+ %% "~n Config: ~p"
+ %% "~n", [?MODULE, Mod, Func, Config]),
case (catch Mod:Func(suite)) of
[] ->
io:format("Eval: ~p:", [{Mod, Func}]),
Res = eval(Mod, Func, Config),
- io:format("~w:tickets -> evaluated"
- "~n Res: ~p"
- "~n", [?MODULE, Res]),
+ %% io:format("~w:tickets -> evaluated"
+ %% "~n Res: ~p"
+ %% "~n", [?MODULE, Res]),
{R, _, _, _} = Res,
io:format(" ~p~n", [R]),
Res;
@@ -156,37 +156,37 @@ tickets(Mod, Func, Config) ->
lists:map(Map, Cases);
{req, _, {conf, Init, Cases, Finish}} ->
- io:format("~w:tickets -> suite result req-conf: "
- "~n Init: ~p"
- "~n Cases: ~p"
- "~n Finish: ~p"
- "~n", [?MODULE, Init, Cases, Finish]),
+ %% io:format("~w:tickets -> suite result req-conf: "
+ %% "~n Init: ~p"
+ %% "~n Cases: ~p"
+ %% "~n Finish: ~p"
+ %% "~n", [?MODULE, Init, Cases, Finish]),
case (catch Mod:Init(Config)) of
Conf when is_list(Conf) ->
io:format("Expand: ~p:~p ...~n", [Mod, Func]),
Map = fun({M,_}) when is_atom(M) ->
- io:format("~w:tickets -> "
- "~n M: ~p"
- "~n", [?MODULE, M]),
+ %% io:format("~w:tickets -> "
+ %% "~n M: ~p"
+ %% "~n", [?MODULE, M]),
tickets(M, tickets, Conf);
(F) when is_atom(F) ->
- io:format("~w:tickets -> "
- "~n F: ~p"
- "~n", [?MODULE, F]),
+ %% io:format("~w:tickets -> "
+ %% "~n F: ~p"
+ %% "~n", [?MODULE, F]),
tickets(Mod, F, Conf);
(Case) ->
- io:format("~w:tickets -> "
- "~n Case: ~p"
- "~n", [?MODULE, Case]),
+ %% io:format("~w:tickets -> "
+ %% "~n Case: ~p"
+ %% "~n", [?MODULE, Case]),
Case
end,
Res = lists:map(Map, Cases),
- io:format("~w:tickets -> and now finish when: "
- "~n Res: ~p"
- "~n", [?MODULE, Res]),
+ %% io:format("~w:tickets -> and now finish when: "
+ %% "~n Res: ~p"
+ %% "~n", [?MODULE, Res]),
(catch Mod:Finish(Conf)),
- io:format("~w:tickets -> finished"
- "~n", [?MODULE]),
+ %% io:format("~w:tickets -> finished"
+ %% "~n", [?MODULE]),
Res;
{'EXIT', {skipped, Reason}} ->