diff options
Diffstat (limited to 'lib/stdlib/test/sys_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/sys_SUITE.erl | 173 |
1 files changed, 173 insertions, 0 deletions
diff --git a/lib/stdlib/test/sys_SUITE.erl b/lib/stdlib/test/sys_SUITE.erl new file mode 100644 index 0000000000..e44fd56403 --- /dev/null +++ b/lib/stdlib/test/sys_SUITE.erl @@ -0,0 +1,173 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 1996-2009. 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 +%% compliance with the License. You should have received a copy of the +%% Erlang Public License along with this software. If not, it can be +%% retrieved online at http://www.erlang.org/. +%% +%% Software distributed under the License is distributed on an "AS IS" +%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See +%% the License for the specific language governing rights and limitations +%% under the License. +%% +%% %CopyrightEnd% +%% +-module(sys_SUITE). +-export([all/1,log/1,log_to_file/1,stats/1,trace/1,suspend/1,install/1]). +-export([handle_call/3,terminate/2,init/1]). +-include("test_server.hrl"). + +-define(server,sys_SUITE_server). + + +%% Doesn't look into change_code at all +%% Doesn't address writing your own process that understands +%% system messages at all. + + +all(suite) -> [log,log_to_file,stats,trace,suspend,install]. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +log(suite) -> []; +log(Config) when is_list(Config) -> + ?line {ok,_Server} = start(), + ?line ok = sys:log(?server,true), + ?line {ok,-44} = public_call(44), + ?line ok = sys:log(?server,false), + ?line ok = sys:log(?server,print), + ?line stop(), + ok. + +log_to_file(suite) -> []; +log_to_file(Config) when is_list(Config) -> + TempName = test_server:temp_name(?config(priv_dir,Config) ++ "sys."), + ?line {ok,_Server} = start(), + ?line ok = sys:log_to_file(?server,TempName), + ?line {ok,-44} = public_call(44), + ?line ok = sys:log_to_file(?server,false), + ?line {ok,Fd} = file:open(TempName,read), + ?line Msg1 = io:get_line(Fd,''), + ?line Msg2 = io:get_line(Fd,''), + ?line file:close(Fd), + ?line lists:prefix("*DBG* sys_SUITE_server got call {req,44} from ",Msg1), + ?line lists:prefix("*DBG* sys_SUITE_server sent {ok,-44} to ",Msg2), + ?line stop(), + ok. + +stats(suite) -> []; +stats(Config) when is_list(Config) -> + ?line Self = self(), + ?line {ok,_Server} = start(), + ?line ok = sys:statistics(?server,true), + ?line {ok,-44} = public_call(44), + ?line {ok,Stats} = sys:statistics(?server,get), + ?line lists:member({messages_in,1},Stats), + ?line lists:member({messages_out,1},Stats), + ?line ok = sys:statistics(?server,false), + ?line {status,_Pid,{module,_Mod},[_PDict,running,Self,_,_]} = + sys:get_status(?server), + ?line {ok,no_statistics} = sys:statistics(?server,get), + ?line stop(), + ok. + +trace(suite) -> []; +trace(Config) when is_list(Config) -> + ?line {ok,_Server} = start(), + case os:type() of + vxworks -> + ?line test_server:sleep(20000); + _ -> + ?line test_server:sleep(2000) + end, + ?line test_server:capture_start(), + ?line sys:trace(?server,true), + ?line {ok,-44} = public_call(44), + %% ho, hum, allow for the io to reach us.. + case os:type() of + vxworks -> + ?line test_server:sleep(10000); + _ -> + ?line test_server:sleep(1000) + end, + ?line test_server:capture_stop(), + ?line [Msg1,Msg2] = test_server:capture_get(), + ?line lists:prefix("*DBG* sys_SUITE_server got call {req,44} from ",Msg1), + ?line lists:prefix("*DBG* sys_SUITE_server sent {ok,-44} to ",Msg2), + ?line stop(), + ok. + +suspend(suite) -> []; +suspend(Config) when is_list(Config) -> + ?line {ok,_Server} = start(), + ?line sys:suspend(?server,1000), + ?line {'EXIT',_} = (catch public_call(48)), + ?line {status,_,_,[_,suspended,_,_,_]} = sys:get_status(?server), + ?line sys:suspend(?server,1000), %% doing it twice is no error + ?line {'EXIT',_} = (catch public_call(48)), + ?line sys:resume(?server), + ?line {status,_,_,[_,running,_,_,_]} = sys:get_status(?server), + ?line {ok,-48} = (catch public_call(48)), + ?line sys:resume(?server), %% doing it twice is no error + ?line {ok,-48} = (catch public_call(48)), + ?line stop(), + ok. + +install(suite) -> []; +install(Config) when is_list(Config) -> + ?line {ok,_Server} = start(), + ?line Master = self(), + ?line SpyFun = + fun(func_state,Event,ProcState) -> + case Event of + {in,{'$gen_call',_From,{req,Arg}}} -> + io:format("Trigged\n"), + Master ! {spy_got,{request,Arg},ProcState}; + Other -> + io:format("Trigged other=~p\n",[Other]) + end + end, + ?line sys:install(?server,{SpyFun,func_state}), + ?line {ok,-1} = (catch public_call(1)), + ?line sys:no_debug(?server), + ?line {ok,-2} = (catch public_call(2)), + ?line sys:install(?server,{SpyFun,func_state}), + ?line sys:install(?server,{SpyFun,func_state}), + ?line {ok,-3} = (catch public_call(3)), + ?line sys:remove(?server,SpyFun), + ?line {ok,-4} = (catch public_call(4)), + ?line Msgs = test_server:messages_get(), + ?line [{spy_got,{request,1},sys_SUITE_server}, + {spy_got,{request,3},sys_SUITE_server}] = Msgs, + ?line stop(), + ok. + +%%%%%%%%%%%%%%%%%%%% +%% Dummy server + +public_call(Arg) -> + gen_server:call(?server,{req,Arg},1000). + +start() -> + gen_server:start_link({local,?server},?MODULE,[],[]). + +stop() -> + gen_server:call(?server,stop,1000). + +init([]) -> + {ok,0}. + +handle_call({req,Arg},_From,State) -> + NewState = State+1, + {reply,{ok,-Arg},NewState}; +handle_call(stop,_From,State) -> + {stop,normal,ok,State}. + +terminate(_Reason, _State) -> + ok. + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |