diff options
| author | Richard Carlsson <[email protected]> | 2018-04-17 14:11:34 +0200 |
|---|---|---|
| committer | Richard Carlsson <[email protected]> | 2018-05-04 10:22:36 +0200 |
| commit | 3d44429177a7dbdac5662433cfc55f5b5113a959 (patch) | |
| tree | 0c3ccaf26a91360fab5a9ff48c91b8a91e229992 /lib/common_test/src/ct.erl | |
| parent | a2f9d28ac231f7209815b743d9a20d266c51a187 (diff) | |
| download | otp-3d44429177a7dbdac5662433cfc55f5b5113a959.tar.gz otp-3d44429177a7dbdac5662433cfc55f5b5113a959.tar.bz2 otp-3d44429177a7dbdac5662433cfc55f5b5113a959.zip | |
Add ct:get_progname/0
This replaces all uses of lib:progname/0 in tests.
Diffstat (limited to 'lib/common_test/src/ct.erl')
| -rw-r--r-- | lib/common_test/src/ct.erl | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/lib/common_test/src/ct.erl b/lib/common_test/src/ct.erl index fd7fa07b81..14a9ec07cf 100644 --- a/lib/common_test/src/ct.erl +++ b/lib/common_test/src/ct.erl @@ -87,6 +87,7 @@ decrypt_config_file/2, decrypt_config_file/3]). -export([get_target_name/1]). +-export([get_progname/0]). -export([parse_table/1, listenv/1]). -export([remaining_test_procs/0]). @@ -975,7 +976,20 @@ make_priv_dir() -> %%% belongs to. get_target_name(Handle) -> ct_util:get_target_name(Handle). - + +%%%----------------------------------------------------------------- +%%% @doc Return the command used to start (this) erlang + +-spec get_progname() -> string(). + +get_progname() -> + case init:get_argument(progname) of + {ok, [[Prog]]} -> + Prog; + _Other -> + "no_prog_name" + end. + %%%----------------------------------------------------------------- %%% @spec parse_table(Data) -> {Heading,Table} %%% Data = [string()] @@ -1006,7 +1020,6 @@ parse_table(Data) -> listenv(Telnet) -> ct_util:listenv(Telnet). - %%%----------------------------------------------------------------- %%% @spec testcases(TestDir, Suite) -> Testcases | {error,Reason} %%% TestDir = string() |