aboutsummaryrefslogtreecommitdiffstats
path: root/lib/wx/test/wxt.erl
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2017-09-18 11:24:52 +0200
committerDan Gudmundsson <[email protected]>2017-09-18 11:24:52 +0200
commitf4a7f8a1f617e46653267bb18b9f7f635437d6d1 (patch)
tree7ec7d1d25435522c4c1cd3448f54280b29522174 /lib/wx/test/wxt.erl
parentdecbaba3a095cfc004a747edbd338f918d6bb0fe (diff)
parentd776b9be154d87a41df240c2adc1803a89e3df1f (diff)
downloadotp-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.erl32
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".