diff options
| author | Peter Andersson <[email protected]> | 2017-10-06 14:22:25 +0200 |
|---|---|---|
| committer | Peter Andersson <[email protected]> | 2017-10-25 17:28:55 +0200 |
| commit | 2df013b5bfd714247570d9b4958b40f7559d35dd (patch) | |
| tree | 2c3f7208158de9b0b23617f906f402e5a6e3c326 /lib/common_test/src/ct_run.erl | |
| parent | 70b6b32a9c7e3e3fca45fc3a0e11e2a5087a4660 (diff) | |
| download | otp-2df013b5bfd714247570d9b4958b40f7559d35dd.tar.gz otp-2df013b5bfd714247570d9b4958b40f7559d35dd.tar.bz2 otp-2df013b5bfd714247570d9b4958b40f7559d35dd.zip | |
Tag Common Test system processes using process dictionary
Diffstat (limited to 'lib/common_test/src/ct_run.erl')
| -rw-r--r-- | lib/common_test/src/ct_run.erl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lib/common_test/src/ct_run.erl b/lib/common_test/src/ct_run.erl index 7079e059f4..05b1e70098 100644 --- a/lib/common_test/src/ct_run.erl +++ b/lib/common_test/src/ct_run.erl @@ -251,7 +251,7 @@ finish(Tracing, ExitStatus, Args) -> script_start1(Parent, Args) -> %% tag this process - put(app, common_test), + ct_util:mark_process(), %% read general start flags Label = get_start_opt(label, fun([Lbl]) -> Lbl end, Args), Profile = get_start_opt(profile, fun([Prof]) -> Prof end, Args), @@ -959,7 +959,7 @@ run_test(StartOpts) when is_list(StartOpts) -> run_test1_fun(StartOpts) -> fun() -> - put(app, common_test), + ct_util:mark_process(), run_test1(StartOpts) end. @@ -1453,7 +1453,7 @@ run_testspec(TestSpec) -> run_testspec1_fun(TestSpec) -> fun() -> - put(app, common_test), + ct_util:mark_process(), run_testspec1(TestSpec) end. @@ -1914,12 +1914,12 @@ possibly_spawn(true, Tests, Skip, Opts) -> CTUtilSrv = whereis(ct_util_server), Supervisor = fun() -> - put(app, common_test), + ct_util:mark_process(), process_flag(trap_exit, true), link(CTUtilSrv), TestRun = fun() -> - put(app, common_test), + ct_util:mark_process(), TestResult = (catch do_run_test(Tests, Skip, Opts)), case TestResult of {EType,_} = Error when EType == user_error; |