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/ei_format_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/ei_format_SUITE.erl')
-rw-r--r-- | lib/erl_interface/test/ei_format_SUITE.erl | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/lib/erl_interface/test/ei_format_SUITE.erl b/lib/erl_interface/test/ei_format_SUITE.erl index 07ee479b1f..b11a6ff164 100644 --- a/lib/erl_interface/test/ei_format_SUITE.erl +++ b/lib/erl_interface/test/ei_format_SUITE.erl @@ -26,6 +26,7 @@ -export([format_wo_ver/1, all/0, suite/0, + init_per_testcase/2, atoms/1, tuples/1, lists/1]). @@ -41,10 +42,13 @@ suite() -> all() -> [format_wo_ver, atoms, tuples, lists]. +init_per_testcase(Case, Config) -> + runner:init_per_testcase(?MODULE, Case, Config). + %% Tests formatting various atoms. atoms(Config) when is_list(Config) -> - P = runner:start(?atoms), + P = runner:start(Config, ?atoms), {term, ''} = get_term(P), {term, 'a'} = get_term(P), @@ -84,7 +88,7 @@ atoms(Config) when is_list(Config) -> %% Tests formatting various tuples tuples(Config) when is_list(Config) -> - P = runner:start(?tuples), + P = runner:start(Config, ?tuples), {term, {}} = get_term(P), {term, {a}} = get_term(P), @@ -105,7 +109,7 @@ tuples(Config) when is_list(Config) -> %% Tests formatting various lists lists(Config) when is_list(Config) -> - P = runner:start(?lists), + P = runner:start(Config, ?lists), {term, []} = get_term(P), {term, [a]} = get_term(P), @@ -146,7 +150,7 @@ lists(Config) when is_list(Config) -> format_wo_ver(Config) when is_list(Config) -> - P = runner:start(?format_wo_ver), + P = runner:start(Config, ?format_wo_ver), {term, [-1, 2, $c, {a, "b"}, {c, 10}]} = get_term(P), |