diff options
| author | Björn Gustavsson <[email protected]> | 2012-10-01 09:45:26 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2012-10-01 09:45:26 +0200 |
| commit | 8190314f39d0f3c7fd5686168aa8861836c6ad65 (patch) | |
| tree | 705910b0783f7a5862f2361f2ebec9534f4ec258 /lib/test_server | |
| parent | cccf365a9991a61029ef710046e11bbb78171e25 (diff) | |
| parent | f957943503936c9b91c7ab9a24cae050b7ab5381 (diff) | |
| download | otp-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.erl | 10 | ||||
| -rw-r--r-- | lib/test_server/src/test_server_sup.erl | 6 |
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. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |