diff options
| author | Siri Hansen <[email protected]> | 2012-01-24 15:46:31 +0100 |
|---|---|---|
| committer | Siri Hansen <[email protected]> | 2012-03-19 09:48:53 +0100 |
| commit | f515a08b3a57c854ee547e6c84c39e2fd14a27da (patch) | |
| tree | 31f4f08034e591d5f05f17ffabc9e281e68f5764 /lib/reltool/test/reltool_wx_SUITE.erl | |
| parent | 610280492bca33c851eabda0a2daf5cf141ea090 (diff) | |
| download | otp-f515a08b3a57c854ee547e6c84c39e2fd14a27da.tar.gz otp-f515a08b3a57c854ee547e6c84c39e2fd14a27da.tar.bz2 otp-f515a08b3a57c854ee547e6c84c39e2fd14a27da.zip | |
[reltool] Add more tests
OTP-9794
Test cases are added for the following functions:
* reltool_server:get_sys
* reltool_server:set_sys
* reltool_server:get_status
* reltool_server:gen_rel_files
* reltool:eval_target_spec
* reltool:get_server
Diffstat (limited to 'lib/reltool/test/reltool_wx_SUITE.erl')
| -rw-r--r-- | lib/reltool/test/reltool_wx_SUITE.erl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lib/reltool/test/reltool_wx_SUITE.erl b/lib/reltool/test/reltool_wx_SUITE.erl index 424bc7d189..51f433f206 100644 --- a/lib/reltool/test/reltool_wx_SUITE.erl +++ b/lib/reltool/test/reltool_wx_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 2009-2011. All Rights Reserved. +%% Copyright Ericsson AB 2009-2012. All Rights Reserved. %% %% The contents of this file are subject to the Erlang Public License, %% Version 1.1, (the "License"); you may not use this file except in @@ -63,6 +63,12 @@ start_all_windows(_Config) -> {ok, SysPid} = ?msym({ok, _}, reltool:start([{trap_exit, false}])), {ok, AppPid} = ?msym({ok, _}, reltool_sys_win:open_app(SysPid, stdlib)), ?msym({ok, _}, reltool_app_win:open_mod(AppPid, escript)), + + %% Test that server pid can be fetched, and that server is alive + {ok, Server} = ?msym({ok,_}, reltool:get_server(SysPid)), + ?m(true, erlang:is_process_alive(Server)), + ?m({ok,{sys,[]}}, reltool:get_config(Server)), + timer:sleep(timer:seconds(10)), ?m(ok, reltool:stop(SysPid)), |