aboutsummaryrefslogtreecommitdiffstats
path: root/lib/common_test/src/ct_hooks.erl
diff options
context:
space:
mode:
authorPeter Andersson <peppe@erlang.org>2012-05-08 17:47:21 +0200
committerPeter Andersson <peppe@erlang.org>2012-05-10 16:25:26 +0200
commite711632042d1538fce80d565a2add309a88efa1b (patch)
treea3fb0cf3892fd1f471ff69b2e119ee67c89f6040 /lib/common_test/src/ct_hooks.erl
parentaf287d7b242b27a05084580f110db2f4a6667e54 (diff)
downloadotp-e711632042d1538fce80d565a2add309a88efa1b.tar.gz
otp-e711632042d1538fce80d565a2add309a88efa1b.tar.bz2
otp-e711632042d1538fce80d565a2add309a88efa1b.zip
Fix IO printout crash caused by hook function
Diffstat (limited to 'lib/common_test/src/ct_hooks.erl')
-rw-r--r--lib/common_test/src/ct_hooks.erl4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/common_test/src/ct_hooks.erl b/lib/common_test/src/ct_hooks.erl
index e53ef9f202..98b74665de 100644
--- a/lib/common_test/src/ct_hooks.erl
+++ b/lib/common_test/src/ct_hooks.erl
@@ -125,7 +125,7 @@ end_tc(_Mod, TC, Config, Result, _Return) ->
on_tc_skip(How, {Suite, Case, Reason}) ->
call(fun call_cleanup/3, {How, Reason}, [on_tc_skip, Suite, Case]).
-on_tc_fail(How, {Suite, Case, Reason}) ->
+on_tc_fail(_How, {Suite, Case, Reason}) ->
call(fun call_cleanup/3, Reason, [on_tc_fail, Suite, Case]).
%% -------------------------------------------------------------------------
@@ -356,7 +356,7 @@ pos(Id,[_|Rest],Num) ->
catch_apply(M,F,A, Default) ->
try
apply(M,F,A)
- catch error:Reason ->
+ catch _:Reason ->
case erlang:get_stacktrace() of
%% Return the default if it was the CTH module which did not have the function.
[{M,F,A,_}|_] when Reason == undef ->