aboutsummaryrefslogtreecommitdiffstats
path: root/lib/test_server/src/ts_make.erl
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2016-02-16 06:45:27 +0100
committerBjörn Gustavsson <[email protected]>2016-02-17 10:35:22 +0100
commitdcda9b507bf14391c8bed91bfa9c56355342b681 (patch)
tree45658baf8d18d7f363a3044972201b957acaffb1 /lib/test_server/src/ts_make.erl
parent40aaa8bfa8ec0776a4d70079cf34a5bd337d42fe (diff)
downloadotp-dcda9b507bf14391c8bed91bfa9c56355342b681.tar.gz
otp-dcda9b507bf14391c8bed91bfa9c56355342b681.tar.bz2
otp-dcda9b507bf14391c8bed91bfa9c56355342b681.zip
Remove test_server as a standalone application
The test_server application has previously been deprecated. In OTP 19, we will move relevant parts of test_server into the common_test application. Test suites that include test_server.hrl must be updated to include ct.hrl instead. Test suites that include test_server_line.hrl must removed that inclusion. Test suites that call the test_server module directly will continue to work in OTP 19. The test suites for Erlang/OTP are built and executed in exactly the same way as previously. Here are some more details. The modules test_server*.erl and erl2html2.erl in lib/test_server/src have been moved to common_test/src. The test_server.hrl and test_server_line.hrl include files have been deleted. The macros in test_server.hrl have been copied into lib/common_test/include/ct.hrl. The ts*.erl modules and their associated data files in lib/test_server/src has been been moved to the new directory lib/common_test/test_server. The ts* modules are no longer built to lib/common_test/ebin. They will only built when 'make release_tests' is executed. The test suite for test_server has been moved to lib/common_test/test. The rest of the files have been deleted.
Diffstat (limited to 'lib/test_server/src/ts_make.erl')
-rw-r--r--lib/test_server/src/ts_make.erl114
1 files changed, 0 insertions, 114 deletions
diff --git a/lib/test_server/src/ts_make.erl b/lib/test_server/src/ts_make.erl
deleted file mode 100644
index 921edb264a..0000000000
--- a/lib/test_server/src/ts_make.erl
+++ /dev/null
@@ -1,114 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 1997-2013. All Rights Reserved.
-%%
-%% Licensed under the Apache License, Version 2.0 (the "License");
-%% you may not use this file except in compliance with the License.
-%% You may obtain a copy of the License at
-%%
-%% http://www.apache.org/licenses/LICENSE-2.0
-%%
-%% Unless required by applicable law or agreed to in writing, software
-%% distributed under the License is distributed on an "AS IS" BASIS,
-%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-%% See the License for the specific language governing permissions and
-%% limitations under the License.
-%%
-%% %CopyrightEnd%
-%%
--module(ts_make).
-
--export([make/1,make/3,unmake/1]).
-
--include_lib("common_test/include/ct.hrl").
-
-%% Functions to be called from make test cases.
-
-make(Config) when is_list(Config) ->
- DataDir = proplists:get_value(data_dir, Config),
- Makefile = proplists:get_value(makefile, Config),
- Make = proplists:get_value(make_command, Config),
- case make(Make, DataDir, Makefile) of
- ok -> ok;
- {error,Reason} -> exit({make_failed,Reason})
- end.
-
-unmake(Config) when is_list(Config) ->
- ok.
-
-%% Runs `make' in the given directory.
-%% Result: ok | {error, Reason}
-
-make(Make, Dir, Makefile) ->
- {RunFile, RunCmd, Script} = run_make_script(os:type(), Make, Dir, Makefile),
- case file:write_file(RunFile, Script) of
- ok ->
- Log = filename:join(Dir, "make.log"),
- file:delete(Log),
- Port = open_port({spawn, RunCmd}, [eof,stream,in,stderr_to_stdout]),
- case get_port_data(Port, [], false) of
- "*ok*" ++ _ -> ok;
- "*error*" ++ _ -> {error, make};
- Other ->{error,{make,Other}}
- end;
- Error -> Error
- end.
-
-get_port_data(Port, Last0, Complete0) ->
- receive
- {Port,{data,Bytes}} ->
- {Last, Complete} = update_last(Bytes, Last0, Complete0),
- get_port_data(Port, Last, Complete);
- {Port, eof} ->
- Result = update_last(eof, Last0, Complete0),
- unlink(Port),
- exit(Port, die),
- Result
- end.
-
-update_last([C|Rest], Line, true) ->
- try
- %% Utf-8 list to utf-8 binary
- %% (e.g. we assume utf-8 bytes from port)
- io:put_chars(list_to_binary(Line))
- catch
- error:badarg ->
- %% io:put_chars/1 badarged
- %% this likely means we had unicode code points
- %% in our bytes buffer (e.g warning from gcc with åäö)
- io:put_chars(unicode:characters_to_binary(Line))
- end,
- io:nl(),
- update_last([C|Rest], [], false);
-update_last([$\r|Rest], Result, Complete) ->
- update_last(Rest, Result, Complete);
-update_last([$\n|Rest], Result, _Complete) ->
- update_last(Rest, lists:reverse(Result), true);
-update_last([C|Rest], Result, Complete) ->
- update_last(Rest, [C|Result], Complete);
-update_last([], Result, Complete) ->
- {Result, Complete};
-update_last(eof, Result, _) ->
- unicode:characters_to_list(list_to_binary(Result)).
-
-run_make_script({win32, _}, Make, Dir, Makefile) ->
- {"run_make.bat",
- ".\\run_make",
- ["@echo off\r\n",
- "cd \"", filename:nativename(Dir), "\"\r\n",
- Make, " -f ", Makefile, " \r\n",
- "if errorlevel 1 echo *error*\r\n",
- "if not errorlevel 1 echo *ok*\r\n"]};
-run_make_script({unix, _}, Make, Dir, Makefile) ->
- {"run_make",
- "/bin/sh ./run_make",
- ["#!/bin/sh\n",
- "cd \"", Dir, "\"\n",
- Make, " -f ", Makefile, " 2>&1\n",
- "case $? in\n",
- " 0) echo '*ok*';;\n",
- " *) echo '*error*';;\n",
- "esac\n"]};
-run_make_script(_Other, _Make, _Dir, _Makefile) ->
- exit(dont_know_how_to_make_script_on_this_platform).