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_util.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_util.erl')
| -rw-r--r-- | lib/common_test/src/ct_util.erl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/lib/common_test/src/ct_util.erl b/lib/common_test/src/ct_util.erl index 0e0d6f84e1..fd0db4a78d 100644 --- a/lib/common_test/src/ct_util.erl +++ b/lib/common_test/src/ct_util.erl @@ -65,6 +65,8 @@ -export([warn_duplicates/1]). +-export([mark_process/0, is_marked/1]). + -export([get_profile_data/0, get_profile_data/1, get_profile_data/2, open_url/3]). @@ -124,9 +126,9 @@ start(Mode, LogDir, Verbosity) -> end. do_start(Parent, Mode, LogDir, Verbosity) -> - put(app, common_test), process_flag(trap_exit,true), register(ct_util_server,self()), + mark_process(), create_table(?conn_table,#conn.handle), create_table(?board_table,2), create_table(?suite_table,#suite_data.key), @@ -935,6 +937,18 @@ warn_duplicates(Suites) -> %%% @spec %%% %%% @doc +mark_process() -> + put(app, common_test). + +is_marked(Pid) -> + {dictionary,List} = process_info(self(), dictionary), + common_test == proplists:get_value(app, List). + + +%%%----------------------------------------------------------------- +%%% @spec +%%% +%%% @doc get_profile_data() -> get_profile_data(all). |