aboutsummaryrefslogtreecommitdiffstats
path: root/lib/erl_interface/test/erl_global_SUITE.erl
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2018-07-03 21:45:29 +0200
committerSverker Eriksson <[email protected]>2018-07-16 17:44:31 +0200
commit3e2508e0f6dbd973d80c96418a989d1fa525767a (patch)
treefaf6c8ff5371a128243d1fcc58fa1e34ded71606 /lib/erl_interface/test/erl_global_SUITE.erl
parentedabb78bccd26fe817844d92cd04d8ac7fb8e817 (diff)
downloadotp-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.erl9
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(),