ct_util: Fix unmatched_return warnings

1 files changed, 9 insertions, 8 deletions

diff --git a/lib/common_test/src/ct_util.erl b/lib/common_test/src/ct_util.erl
index e0e4fbb0d8..833f784bc1 100644
--- a/lib/common_test/src/ct_util.erl
+++ b/lib/common_test/src/ct_util.erl
@@ -131,14 +131,14 @@ do_start(Parent, Mode, LogDir, Verbosity) ->
     create_table(?suite_table,#suite_data.key),
 
     create_table(?verbosity_table,1),
-    [ets:insert(?verbosity_table,{Cat,Lvl}) || {Cat,Lvl} <- Verbosity],
+    _ = [ets:insert(?verbosity_table,{Cat,Lvl}) || {Cat,Lvl} <- Verbosity],
 
     {ok,StartDir} = file:get_cwd(),
     case file:set_cwd(LogDir) of
 	ok -> ok;
 	E -> exit(E)
     end,
-    DoExit = fun(Reason) -> file:set_cwd(StartDir), exit(Reason) end,
+    DoExit = fun(Reason) -> ok = file:set_cwd(StartDir), exit(Reason) end,
     Opts = case read_opts() of
 	       {ok,Opts1} ->
 		   Opts1;
@@ -169,7 +169,7 @@ do_start(Parent, Mode, LogDir, Verbosity) ->
     end,
 
     %% add user event handlers
-    case lists:keysearch(event_handler,1,Opts) of
+    _ = case lists:keysearch(event_handler,1,Opts) of
 	{value,{_,Handlers}} ->
 	    Add = fun({H,Args}) ->
 			  case catch gen_event:add_handler(?CT_EVMGR_REF,H,Args) of
@@ -195,7 +195,7 @@ do_start(Parent, Mode, LogDir, Verbosity) ->
 			   data={StartTime,
 				 lists:flatten(TestLogDir)}}),
     %% Initialize ct_hooks
-    try ct_hooks:init(Opts) of
+    _ = try ct_hooks:init(Opts) of
 	ok ->
 	    Parent ! {self(),started};
 	{fail,CTHReason} ->
@@ -474,7 +474,7 @@ loop(Mode,TestData,StartDir) ->
 	    ct_logs:close(Info, StartDir),
 	    ct_event:stop(),
 	    ct_config:stop(),
-	    file:set_cwd(StartDir),
+	    ok = file:set_cwd(StartDir),
 	    return(From, Info);
 	{Ref, _Msg} when is_reference(Ref) ->
 	    %% This clause is used when doing cast operations.
@@ -506,7 +506,7 @@ loop(Mode,TestData,StartDir) ->
 		    %% Let process crash in case of error, this shouldn't happen!
 		    io:format("\n\nct_util_server got EXIT "
 			      "from ~w: ~p\n\n", [Pid,Reason]),
-		    file:set_cwd(StartDir),
+		    ok = file:set_cwd(StartDir),
 		    exit(Reason)
 	    end
     end.
@@ -1036,7 +1036,8 @@ call(Msg, Timeout) ->
     end.
 
 return({To,Ref},Result) ->
-    To ! {Ref, Result}.
+    To ! {Ref, Result},
+    ok.
 
 cast(Msg) ->
     ct_util_server ! {Msg, {ct_util_server, make_ref()}}.
@@ -1075,7 +1076,7 @@ abs_name2([],Acc) ->
 open_url(iexplore, Args, URL) ->
     {ok,R} = win32reg:open([read]),
     ok = win32reg:change_key(R,"applications\\iexplore.exe\\shell\\open\\command"),
-    case win32reg:values(R) of
+    _ = case win32reg:values(R) of
 	{ok, Paths} ->
 	    Path = proplists:get_value(default, Paths),
 	    [Cmd | _] = string:tokens(Path, "%"),