aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2012-10-01 09:45:26 +0200
committerBjörn Gustavsson <[email protected]>2012-10-01 09:45:26 +0200
commit8190314f39d0f3c7fd5686168aa8861836c6ad65 (patch)
tree705910b0783f7a5862f2361f2ebec9534f4ec258 /lib/test_server
parentcccf365a9991a61029ef710046e11bbb78171e25 (diff)
parentf957943503936c9b91c7ab9a24cae050b7ab5381 (diff)
downloadotp-8190314f39d0f3c7fd5686168aa8861836c6ad65.tar.gz
otp-8190314f39d0f3c7fd5686168aa8861836c6ad65.tar.bz2
otp-8190314f39d0f3c7fd5686168aa8861836c6ad65.zip
Merge branch 'bjorn/test_server/dialyzer-fixes'
* bjorn/test_server/dialyzer-fixes: test_server_ctrl: Don't use undocumented features of io:format() Fix obsolete assumption for the return type of os:type/0
Diffstat (limited to 'lib/test_server')
-rw-r--r--lib/test_server/src/test_server_ctrl.erl10
-rw-r--r--lib/test_server/src/test_server_sup.erl6
2 files changed, 7 insertions, 9 deletions
diff --git a/lib/test_server/src/test_server_ctrl.erl b/lib/test_server/src/test_server_ctrl.erl
index 9731f1ddba..88d86285d5 100644
--- a/lib/test_server/src/test_server_ctrl.erl
+++ b/lib/test_server/src/test_server_ctrl.erl
@@ -5829,11 +5829,11 @@ write_default_cross_coverlog(TestDir) ->
{ok,CrossCoverLog} =
file:open(filename:join(TestDir,?cross_coverlog_name), [write]),
write_coverlog_header(CrossCoverLog),
- io:fwrite(CrossCoverLog,
- ["No cross cover modules exist for this application,",
- xhtml("<br>","<br />"),
- "or cross cover analysis is not completed.\n"
- "</body></html>\n"], []),
+ io:put_chars(CrossCoverLog,
+ ["No cross cover modules exist for this application,",
+ xhtml("<br>","<br />"),
+ "or cross cover analysis is not completed.\n"
+ "</body></html>\n"]),
file:close(CrossCoverLog).
write_cover_result_table(CoverLog,Coverage) ->
diff --git a/lib/test_server/src/test_server_sup.erl b/lib/test_server/src/test_server_sup.erl
index 9d111ff769..4a27c1ebae 100644
--- a/lib/test_server/src/test_server_sup.erl
+++ b/lib/test_server/src/test_server_sup.erl
@@ -473,10 +473,8 @@ getenv_any([]) -> "".
%%
%% Returns the OS family
get_os_family() ->
- case os:type() of
- {OsFamily,_OsName} -> OsFamily;
- OsFamily -> OsFamily
- end.
+ {OsFamily,_OsName} = os:type(),
+ OsFamily.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%