aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server/src
diff options
context:
space:
mode:
authorHans Bolinder <[email protected]>2011-09-02 08:43:14 +0200
committerHans Bolinder <[email protected]>2011-09-02 08:43:14 +0200
commit1eac5476aa7faad600bb940ca3fe07be78273425 (patch)
treec5d73b53f588503d3f872e413716b3a9b2e3c91b /lib/test_server/src
parent8fc59a1ff776a472299db26b175da09a03b3d30b (diff)
parentbb94e589c8495caf7c1fa6ebe808f6983ceaf44a (diff)
downloadotp-1eac5476aa7faad600bb940ca3fe07be78273425.tar.gz
otp-1eac5476aa7faad600bb940ca3fe07be78273425.tar.bz2
otp-1eac5476aa7faad600bb940ca3fe07be78273425.zip
Merge branch 'dev' into major
* dev: Fix a couple of minor bugs with hook priority Update to reflect addition of CTH priority addition Update CTH priority default to be 0 Update to reflect new cth callback api Update the return from init/2 to be {ok, NewState} or {ok,NewState,Priority} instead of NewState. Add priority functionality and tests for ct hooks Update internal hooks state to use a record instead of tuples Improve and correct types and specifications in Kernel and STDLIB
Diffstat (limited to 'lib/test_server/src')
-rw-r--r--lib/test_server/src/ts_install_cth.erl12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/test_server/src/ts_install_cth.erl b/lib/test_server/src/ts_install_cth.erl
index 0770190c36..a41916fd0a 100644
--- a/lib/test_server/src/ts_install_cth.erl
+++ b/lib/test_server/src/ts_install_cth.erl
@@ -65,18 +65,18 @@ id(_Opts) ->
%% @doc Always called before any other callback function.
-spec init(Id :: term(), Opts :: proplists:proplist()) ->
- State :: #state{}.
+ {ok, State :: #state{}}.
init(_Id, Opts) ->
Nodenames = proplists:get_value(nodenames, Opts, 0),
Nodes = proplists:get_value(nodes, Opts, 0),
TSConfDir = proplists:get_value(ts_conf_dir, Opts),
TargetSystem = proplists:get_value(target_system, Opts, install_local),
InstallOpts = proplists:get_value(install_opts, Opts, []),
- #state{ nodenames = Nodenames,
- nodes = Nodes,
- ts_conf_dir = TSConfDir,
- target_system = TargetSystem,
- install_opts = InstallOpts }.
+ {ok, #state{ nodenames = Nodenames,
+ nodes = Nodes,
+ ts_conf_dir = TSConfDir,
+ target_system = TargetSystem,
+ install_opts = InstallOpts } }.
%% @doc Called before init_per_suite is called.
-spec pre_init_per_suite(Suite :: atom(),