aboutsummaryrefslogtreecommitdiffstats
path: root/lib/wx/test/wxt.erl
diff options
context:
space:
mode:
authorDan Gudmundsson <[email protected]>2017-09-18 11:26:24 +0200
committerDan Gudmundsson <[email protected]>2017-09-18 11:26:24 +0200
commit83a66e961f043720c9d353923baaefb6f5e8ed96 (patch)
treec9886fe0e0c4265b80fd2f9115e191001385b6c6 /lib/wx/test/wxt.erl
parent0e8d50bd2f25910559f54295a05a2a7fc6bf9c6f (diff)
parentf4a7f8a1f617e46653267bb18b9f7f635437d6d1 (diff)
downloadotp-83a66e961f043720c9d353923baaefb6f5e8ed96.tar.gz
otp-83a66e961f043720c9d353923baaefb6f5e8ed96.tar.bz2
otp-83a66e961f043720c9d353923baaefb6f5e8ed96.zip
Merge branch 'maint'
* maint: 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".