diff options
| author | Sverker Eriksson <[email protected]> | 2018-07-03 21:45:29 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2018-07-16 17:44:31 +0200 |
| commit | 3e2508e0f6dbd973d80c96418a989d1fa525767a (patch) | |
| tree | faf6c8ff5371a128243d1fcc58fa1e34ded71606 /lib/erl_interface/test/erl_global_SUITE.erl | |
| parent | edabb78bccd26fe817844d92cd04d8ac7fb8e817 (diff) | |
| download | otp-3e2508e0f6dbd973d80c96418a989d1fa525767a.tar.gz otp-3e2508e0f6dbd973d80c96418a989d1fa525767a.tar.bz2 otp-3e2508e0f6dbd973d80c96418a989d1fa525767a.zip | |
erl_interface: Add valgrind ability for test port programs
Run under valgrind if environment variable VALGRIND_LOG_DIR is set.
Diffstat (limited to 'lib/erl_interface/test/erl_global_SUITE.erl')
| -rw-r--r-- | lib/erl_interface/test/erl_global_SUITE.erl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/erl_interface/test/erl_global_SUITE.erl b/lib/erl_interface/test/erl_global_SUITE.erl index ecc6753c7f..560afd58ba 100644 --- a/lib/erl_interface/test/erl_global_SUITE.erl +++ b/lib/erl_interface/test/erl_global_SUITE.erl @@ -25,6 +25,7 @@ -include("erl_global_SUITE_data/erl_global_test_cases.hrl"). -export([all/0,suite/0, + init_per_testcase/2, erl_global_registration/1, erl_global_whereis/1, erl_global_names/1]). @@ -39,9 +40,11 @@ suite() -> [{ct_hooks,[ts_install_cth]}, {timetrap, {seconds, 30}}]. +init_per_testcase(Case, Config) -> + runner:init_per_testcase(?MODULE, Case, Config). erl_global_registration(Config) when is_list(Config) -> - P = runner:start(?interpret), + P = runner:start(Config, ?interpret), {ok, Fd} = erl_connect(P, node(), 42, erlang:get_cookie(), 0), ok = erl_global_register(P, Fd, ?GLOBAL_NAME), @@ -53,7 +56,7 @@ erl_global_registration(Config) when is_list(Config) -> ok. erl_global_whereis(Config) when is_list(Config) -> - P = runner:start(?interpret), + P = runner:start(Config, ?interpret), {ok, Fd} = erl_connect(P, node(), 42, erlang:get_cookie(), 0), Self = self(), @@ -66,7 +69,7 @@ erl_global_whereis(Config) when is_list(Config) -> ok. erl_global_names(Config) when is_list(Config) -> - P = runner:start(?interpret), + P = runner:start(Config, ?interpret), {ok, Fd} = erl_connect(P, node(), 42, erlang:get_cookie(), 0), Self = self(), |