diff options
author | Dan Gudmundsson <[email protected]> | 2017-09-18 11:24:52 +0200 |
---|---|---|
committer | Dan Gudmundsson <[email protected]> | 2017-09-18 11:24:52 +0200 |
commit | f4a7f8a1f617e46653267bb18b9f7f635437d6d1 (patch) | |
tree | 7ec7d1d25435522c4c1cd3448f54280b29522174 /lib/wx/test/wxt.erl | |
parent | decbaba3a095cfc004a747edbd338f918d6bb0fe (diff) | |
parent | d776b9be154d87a41df240c2adc1803a89e3df1f (diff) | |
download | otp-f4a7f8a1f617e46653267bb18b9f7f635437d6d1.tar.gz otp-f4a7f8a1f617e46653267bb18b9f7f635437d6d1.tar.bz2 otp-f4a7f8a1f617e46653267bb18b9f7f635437d6d1.zip |
Merge branch 'dgud/wx/decrease-opengl-docs' into maint
* dgud/wx/decrease-opengl-docs:
reltool: Remove export_all warning in tests
et: Remove export_all warnings in test
mnesia: Remove export_all in tests
wx: Remove export_all in example code
wx: test remove export_all
wx: Update doc, OpenGL external links
wx: Reduce Opengl docs
Diffstat (limited to 'lib/wx/test/wxt.erl')
-rw-r--r-- | lib/wx/test/wxt.erl | 32 |
1 files changed, 1 insertions, 31 deletions
diff --git a/lib/wx/test/wxt.erl b/lib/wx/test/wxt.erl index 265cd5c981..2b380606d5 100644 --- a/lib/wx/test/wxt.erl +++ b/lib/wx/test/wxt.erl @@ -20,7 +20,7 @@ %% Description : Shortcuts for running tests with wx internal test_server %%------------------------------------------------------------------- -module(wxt). --compile(export_all). +-export([t/0, t/1, t/2, user/0, user/1,user/2]). %% Modules or suites can be shortcuts i.e. basic expands to wx_basic_SUITE. %% @@ -83,36 +83,6 @@ alias(Suite) when is_atom(Suite) -> %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -config_fname() -> - "wx_test_case_config". - -%% Read default config file -read_config() -> - Fname = config_fname(), - wx_test_lib:log("Consulting file ~s...~n", [Fname]), - case file:consult(Fname) of - {ok, Config} -> - wx_test_lib:log("Read config ~w~n", [Config]), - Config; - _Error -> - Config = wx_test_lib:default_config(), - wx_test_lib:log("<>WARNING<> Using default config: ~w~n", [Config]), - Config - end. - -%% Write new default config file -write_config(Config) when is_list(Config) -> - Fname = config_fname(), - {ok, Fd} = file:open(Fname, write), - write_list(Fd, Config), - file:close(Fd). - -write_list(Fd, [H | T]) -> - ok = io:format(Fd, "~p.~n",[H]), - write_list(Fd, T); -write_list(_, []) -> - ok. - test_case_fname() -> "wx_test_case_info". |