aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server/src
diff options
context:
space:
mode:
authorPeter Andersson <[email protected]>2012-03-13 10:49:44 +0100
committerPeter Andersson <[email protected]>2012-03-13 10:50:16 +0100
commit4e73ac6e7339e965c17ad732350275b5650ce5c4 (patch)
tree7ae78c04d0ed359975dbbc1af2b48eeb156b7365 /lib/test_server/src
parentbcf19f1d079720272198ba1a6b36a8718e6f2303 (diff)
parentb94cf464b0d07ea54087716954e723a1fe2c7b46 (diff)
downloadotp-4e73ac6e7339e965c17ad732350275b5650ce5c4.tar.gz
otp-4e73ac6e7339e965c17ad732350275b5650ce5c4.tar.bz2
otp-4e73ac6e7339e965c17ad732350275b5650ce5c4.zip
Merge remote branch 'origin/peppe/common_test/otp-9958' into maint
* origin/peppe/common_test/otp-9958: Fix problem with dropped suite- and test case names OTP-9958
Diffstat (limited to 'lib/test_server/src')
-rw-r--r--lib/test_server/src/test_server.erl13
1 files changed, 10 insertions, 3 deletions
diff --git a/lib/test_server/src/test_server.erl b/lib/test_server/src/test_server.erl
index 1433eef193..8ba6728f5d 100644
--- a/lib/test_server/src/test_server.erl
+++ b/lib/test_server/src/test_server.erl
@@ -852,7 +852,11 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) ->
%% result of an exit(TestCase,kill) call, which is the
%% only way to abort a testcase process that traps exits
%% (see abort_current_testcase)
- spawn_fw_call(undefined,undefined,CurrConf,Pid,
+ {Mod,Func} = case CurrConf of
+ {MF,_} -> MF;
+ _ -> {undefined,undefined}
+ end,
+ spawn_fw_call(Mod,Func,CurrConf,Pid,
testcase_aborted_or_killed,
unknown,self()),
run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf);
@@ -863,8 +867,11 @@ run_test_case_msgloop(Ref, Pid, CaptureStdout, Terminate, Comment, CurrConf) ->
_Other ->
%% the testcase has terminated because of Reason (e.g. an exit
%% because a linked process failed)
- spawn_fw_call(undefined,undefined,CurrConf,Pid,Reason,
- unknown,self()),
+ {Mod,Func} = case CurrConf of
+ {MF,_} -> MF;
+ _ -> {undefined,undefined}
+ end,
+ spawn_fw_call(Mod,Func,CurrConf,Pid,Reason,unknown,self()),
run_test_case_msgloop(Ref,Pid,CaptureStdout,Terminate,Comment,CurrConf)
end;
{EndConfPid,{call_end_conf,Data,_Result}} ->