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/test_server | |
| 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/test_server')
| -rw-r--r-- | lib/common_test/test_server/ts_erl_config.erl | 2 | ||||
| -rw-r--r-- | lib/common_test/test_server/ts_run.erl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/lib/common_test/test_server/ts_erl_config.erl b/lib/common_test/test_server/ts_erl_config.erl index c7fe4ccf83..7104155365 100644 --- a/lib/common_test/test_server/ts_erl_config.erl +++ b/lib/common_test/test_server/ts_erl_config.erl @@ -358,7 +358,7 @@ link_library(_LibName,_Other) -> %% Returns emulator specific variables. emu_vars(Vars) -> [{is_source_build, is_source_build()}, - {erl_name, atom_to_list(lib:progname())}|Vars]. + {erl_name, ct:get_progname()}|Vars]. is_source_build() -> string:find(erlang:system_info(system_version), "source") =/= nomatch. diff --git a/lib/common_test/test_server/ts_run.erl b/lib/common_test/test_server/ts_run.erl index 3f594236bc..5dbbaca916 100644 --- a/lib/common_test/test_server/ts_run.erl +++ b/lib/common_test/test_server/ts_run.erl @@ -199,7 +199,7 @@ make_command(Vars, Spec, State) -> TestPath = filename:nativename(TestDir), Erl = case os:getenv("TS_RUN_VALGRIND") of false -> - atom_to_list(lib:progname()); + ct:get_progname(); _ -> case State#state.file of Dir when is_list(Dir) -> |