diff options
author | Andrzej Telezynski <[email protected]> | 2011-07-22 22:31:27 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2011-08-30 15:22:19 +0200 |
commit | b61018453100ad669a625fceaace488752978e73 (patch) | |
tree | 07dca96205a35377695416b0edb2ebd9d9b62e75 | |
parent | e59866033b98e5b790850fa6f14d6bbe50c9c6a6 (diff) | |
download | otp-b61018453100ad669a625fceaace488752978e73.tar.gz otp-b61018453100ad669a625fceaace488752978e73.tar.bz2 otp-b61018453100ad669a625fceaace488752978e73.zip |
Stop option 'return' changed to 'return_fetch_dir'
-rw-r--r-- | lib/observer/doc/src/ttb.xml | 4 | ||||
-rw-r--r-- | lib/observer/src/ttb.erl | 6 | ||||
-rw-r--r-- | lib/observer/test/ttb_SUITE.erl | 50 |
3 files changed, 30 insertions, 30 deletions
diff --git a/lib/observer/doc/src/ttb.xml b/lib/observer/doc/src/ttb.xml index bb8348fa52..ec70ba3120 100644 --- a/lib/observer/doc/src/ttb.xml +++ b/lib/observer/doc/src/ttb.xml @@ -470,7 +470,7 @@ ttb:p(all, call)</code> <fsummary>Stop tracing and fetch/format logs from all nodes</fsummary> <type> <v>Opts = Opt | [Opt]</v> - <v>Opt = nofetch | {fetch_dir, Dir} | format | {format, FormatOpts} | return</v> + <v>Opt = nofetch | {fetch_dir, Dir} | format | {format, FormatOpts} | return_fetch_dir</v> <v>Dir = string()</v> <v>FormatOpts = see format/2</v> </type> @@ -499,7 +499,7 @@ ttb:p(all, call)</code> shall be formatted after tracing is stopped. All logs in the fetch directory will be merged. You may use <c>{format, FormatOpts}</c> to pass additional arguments to <c>format/2</c>.</p> - <p>The <c>return</c> option indicates that the return value + <p>The <c>return_fetch_dir</c> option indicates that the return value should be <c>{stopped, Dir}</c> and not just <c>stopped</c>. This implies <c>fetch</c>. </p> diff --git a/lib/observer/src/ttb.erl b/lib/observer/src/ttb.erl index 342826a482..5397799227 100644 --- a/lib/observer/src/ttb.erl +++ b/lib/observer/src/ttb.erl @@ -608,9 +608,9 @@ stop_opts(Opts) -> true -> {format, []}; FOpts -> {format, FOpts} end, - case {FormatData, lists:member(return, Opts)} of + case {FormatData, lists:member(return_fetch_dir, Opts)} of {false, true} -> - {fetch, FetchDir}; % if we specify return, the data should be fetched + {fetch, FetchDir}; % if we specify return_fetch_dir, the data should be fetched {false, false} -> case lists:member(nofetch,Opts) of false -> {fetch, FetchDir}; @@ -630,7 +630,7 @@ ensure_fetch_dir(Dir) -> end. stop_return(R,Opts) -> - case {lists:member(return,Opts),R} of + case {lists:member(return_fetch_dir,Opts),R} of {true,_} -> %%Printout moved out of the ttb loop to avoid occasional deadlock io:format("Stored logs in ~s~n",[element(2, R)]), diff --git a/lib/observer/test/ttb_SUITE.erl b/lib/observer/test/ttb_SUITE.erl index 93319d16c8..f5310d2190 100644 --- a/lib/observer/test/ttb_SUITE.erl +++ b/lib/observer/test/ttb_SUITE.erl @@ -59,7 +59,7 @@ all() -> write_config3, history, write_trace_info, seq_trace, diskless, otp_4967_1, otp_4967_2, fetch_when_no_option_given, basic_ttb_run_ip_port, basic_ttb_run_file_port, - return_implies_fetch, logfile_name_in_fetch_dir, upload_to_my_logdir, + return_fetch_dir_implies_fetch, logfile_name_in_fetch_dir, upload_to_my_logdir, upload_to_my_existing_logdir, fetch_with_options_not_as_list, error_when_formatting_multiple_files_4393, format_on_trace_stop, trace_to_remote_files_on_localhost_with_different_pwd, @@ -192,7 +192,7 @@ file_fetch(Config) when is_list(Config) -> ?line ?MODULE:foo(), ?line rpc:call(OtherNode,?MODULE,foo,[]), ?line ?t:capture_start(), - ?line ttb:stop([return]), + ?line ttb:stop([return_fetch_dir]), ?line ?t:capture_stop(), ?line [StoreString] = ?t:capture_get(), ?line UploadDir = @@ -861,7 +861,7 @@ begin_trace_local(ServerNode, ClientNode, Dest) -> check_size(N, Dest, Output, ServerNode, ClientNode) -> ?line begin_trace(ServerNode, ClientNode, Dest), ?line ttb_helper:msgs(N), - ?line {_, D} = ttb:stop([fetch, return]), + ?line {_, D} = ttb:stop([fetch, return_fetch_dir]), ?line ttb:format(D, [{out, Output}, {handler, simple_call_handler()}]), ?line {ok, Ret} = file:consult(Output), ?line true = (N + 1 == length(Ret)). @@ -905,15 +905,15 @@ basic_ttb_run_file_port(Config) when is_list(Config) -> ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode). -return_implies_fetch(suite) -> +return_fetch_dir_implies_fetch(suite) -> []; -return_implies_fetch(doc) -> - ["Return implies fetch"]; -return_implies_fetch(Config) when is_list(Config) -> +return_fetch_dir_implies_fetch(doc) -> + ["Return_fetch_dir implies fetch"]; +return_fetch_dir_implies_fetch(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace(ServerNode, ClientNode, ?FNAME), ?line ttb_helper:msgs(2), - ?line {_,_} = ttb:stop([return]), + ?line {_,_} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode). @@ -924,7 +924,7 @@ logfile_name_in_fetch_dir(doc) -> logfile_name_in_fetch_dir(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace(ServerNode, ClientNode, {local, ?FNAME}), - ?line {_,Dir} = ttb:stop([return]), + ?line {_,Dir} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line P1 = lists:nth(3, string:tokens(filename:basename(Dir), "_")), @@ -939,7 +939,7 @@ upload_to_my_logdir(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line {ok, _} = ttb:tracer([ServerNode,ClientNode],[{file, ?FNAME}]), - ?line {stopped,_} = ttb:stop([return, {fetch_dir, ?DIRNAME}]), + ?line {stopped,_} = ttb:stop([return_fetch_dir, {fetch_dir, ?DIRNAME}]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line true = filelib:is_file(?DIRNAME), @@ -954,8 +954,8 @@ upload_to_my_existing_logdir(Config) when is_list(Config) -> ?line ok = file:make_dir(?DIRNAME), ?line {ok, _} = ttb:tracer([ServerNode,ClientNode],[{file, ?FNAME}]), - ?line {error,_,_} = (catch ttb:stop([return, {fetch_dir, ?DIRNAME}])), - ?line {stopped,_} = ttb:stop(return), + ?line {error,_,_} = (catch ttb:stop([return_fetch_dir, {fetch_dir, ?DIRNAME}])), + ?line {stopped,_} = ttb:stop(return_fetch_dir), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode). @@ -967,7 +967,7 @@ fetch_with_options_not_as_list(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line {ok, _} = ttb:tracer([ServerNode,ClientNode],[{file, ?FNAME}]), - ?line {stopped, D} = ttb:stop(return), + ?line {stopped, D} = ttb:stop(return_fetch_dir), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line false = filelib:is_file(?OUTPUT), @@ -982,7 +982,7 @@ error_when_formatting_multiple_files_4393(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace(ServerNode, ClientNode, ?FNAME), ?line ttb_helper:msgs(2), - ?line {_, Dir} = ttb:stop(return), + ?line {_, Dir} = ttb:stop(return_fetch_dir), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line Files = [filename:join(Dir, atom_to_list(ttb_helper:get_node(server)) ++ "-" ++ ?FNAME), @@ -998,7 +998,7 @@ format_on_trace_stop(Config) when is_list(Config) -> ?line begin_trace(ServerNode, ClientNode, {local, ?FNAME}), ?line ttb_helper:msgs(2), ?line file:delete("HANDLER_OK"), - ?line {_,_} = ttb:stop([fetch, return, {format, {handler, marking_call_handler()}}]), + ?line {_,_} = ttb:stop([fetch, return_fetch_dir, {format, {handler, marking_call_handler()}}]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line true = filelib:is_file("HANDLER_OK"), @@ -1061,7 +1061,7 @@ changing_cwd_on_control_node(Config) when is_list(Config) -> ?line ttb_helper:msgs(NumMsgs), ?line ok = file:set_cwd(".."), ?line ttb_helper:msgs(NumMsgs), - ?line {_, D} = ttb:stop([fetch, return]), + ?line {_, D} = ttb:stop([fetch, return_fetch_dir]), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]), ?line {ok, Ret} = file:consult(?OUTPUT), ?line true = (2*(NumMsgs + 1) == length(Ret)), @@ -1081,7 +1081,7 @@ changing_cwd_on_control_node_with_local_trace(Config) when is_list(Config) -> ?line ttb_helper:msgs(NumMsgs), ?line ok = file:set_cwd(".."), ?line ttb_helper:msgs(NumMsgs), - ?line {_, D} = ttb:stop([fetch, return]), + ?line {_, D} = ttb:stop([fetch, return_fetch_dir]), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]), ?line {ok, Ret} = file:consult(?OUTPUT), ?line true = (2*(NumMsgs + 1) == length(Ret)), @@ -1100,7 +1100,7 @@ changing_cwd_on_remote_node(Config) when is_list(Config) -> ?line ttb_helper:msgs(NumMsgs), ?line ok = rpc:call(ClientNode, file, set_cwd, [".."]), ?line ttb_helper:msgs(NumMsgs), - ?line {_, D} = ttb:stop([fetch, return]), + ?line {_, D} = ttb:stop([fetch, return_fetch_dir]), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]), ?line {ok, Ret} = file:consult(?OUTPUT), ?line true = (2*(NumMsgs + 1) == length(Ret)), @@ -1120,7 +1120,7 @@ one_command_trace_setup(Config) when is_list(Config) -> {all, call}, [{file, ?FNAME}]), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop(return), + ?line {_, D} = ttb:stop(return_fetch_dir), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, simple_call_handler()}]), @@ -1185,7 +1185,7 @@ only_one_state_for_format_handler(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace_local(ServerNode, ClientNode, ?FNAME), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, counter_call_handler()}]), @@ -1200,7 +1200,7 @@ only_one_state_with_default_format_handler(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace_local(ServerNode, ClientNode, ?FNAME), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}]), @@ -1219,7 +1219,7 @@ only_one_state_with_initial_format_handler(Config) when is_list(Config) -> ?line ttb:tpl(client, put, []), ?line ttb:tpl(client, get, []), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}]), @@ -1233,7 +1233,7 @@ run_trace_with_shortcut(Shortcut, Ret, F) -> ?line ttb:p(all, call), ?line ttb:F(client, put, Shortcut), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, ret_caller_call_handler()}]), ?line {ok, Ret} =file:consult(?OUTPUT), ?line ?t:stop_node(ServerNode), @@ -1298,7 +1298,7 @@ trace_sorted_by_default(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace_local(ServerNode, ClientNode, ?FILE), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, node_call_handler()}, {disable_sort, false}]), @@ -1313,7 +1313,7 @@ disable_sorting(Config) when is_list(Config) -> ?line {ServerNode, ClientNode} = start_client_and_server(), ?line begin_trace_local(ServerNode, ClientNode, ?FILE), ?line ttb_helper:msgs(2), - ?line {_, D} = ttb:stop([return]), + ?line {_, D} = ttb:stop([return_fetch_dir]), ?line ?t:stop_node(ServerNode), ?line ?t:stop_node(ClientNode), ?line ttb:format(D, [{out, ?OUTPUT}, {handler, node_call_handler()}, {disable_sort, true}]), |