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.

1 files changed, 0 insertions, 217 deletions

diff --git a/lib/test_server/test/test_server_test_lib.erl b/lib/test_server/test/test_server_test_lib.erl
deleted file mode 100644
index e2680938e0..0000000000
--- a/lib/test_server/test/test_server_test_lib.erl
+++ /dev/null
@@ -1,217 +0,0 @@
-%%
-%% %CopyrightBegin%
-%%
-%% Copyright Ericsson AB 2009-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(test_server_test_lib).
-
--export([parse_suite/1]).
--export([init/2, pre_init_per_testcase/3, post_end_per_testcase/4]).
-
-%% for test_server_SUITE when node can not be started as slave
--export([prepare_tester_node/2]).
-
--include("test_server_test_lib.hrl").
-
-%% The CTH hooks all tests
-init(_Id, _Opts) ->
-    [].
-
-pre_init_per_testcase(_TC,Config,State) ->
-    case os:type() of
-	{win32, _} ->
-	    %% Extend timeout for windows as starting node
-	    %% can take a long time there
-	    test_server:timetrap( 120000 * test_server:timetrap_scale_factor());
-	_ ->
-	    ok
-    end,
-    {start_slave(Config, 50),State}.
-
-start_slave(Config,_Level) ->
-    [_,Host] = string:tokens(atom_to_list(node()), "@"),
-    
-    ct:log("Trying to start ~s~n", 
-	   ["test_server_tester@"++Host]),
-    case slave:start(Host, test_server_tester, []) of
-	{error,Reason} ->
-	    test_server:fail(Reason);
-	{ok,Node} ->
-	    ct:log("Node ~p started~n", [Node]),
-	    IsCover = test_server:is_cover(),
-	    if IsCover ->
-		    cover:start(Node);
-	       true->
-		    ok
-	    end,
-	    prepare_tester_node(Node,Config)
-    end.
-
-prepare_tester_node(Node,Config) ->
-    DataDir = proplists:get_value(data_dir, Config),
-    %% We would normally use priv_dir for temporary data,
-    %% but the pathnames gets too long on Windows.
-    %% Until the run-time system can support long pathnames,
-    %% use the data dir.
-    WorkDir = DataDir,
-
-    %% WorkDir as well as directory of Test Server suites
-    %% have to be in code path on Test Server node.
-    [_ | Parts] = lists:reverse(filename:split(DataDir)),
-    TSDir = filename:join(lists:reverse(Parts)),
-    AddPathDirs = case proplists:get_value(path_dirs, Config) of
-		      undefined -> [];
-		      Ds -> Ds
-		  end,
-    PathDirs = [WorkDir,TSDir | AddPathDirs],
-    [true = rpc:call(Node, code, add_patha, [D]) || D <- PathDirs],
-    io:format("Dirs added to code path (on ~w):~n",
-	      [Node]),
-    [io:format("~s~n", [D]) || D <- PathDirs],
-
-    true = rpc:call(Node, os, putenv,
-		    ["TEST_SERVER_FRAMEWORK", "undefined"]),
-
-    ok = rpc:call(Node, file, set_cwd, [WorkDir]),
-    [{node,Node}, {work_dir,WorkDir} | Config].
-
-post_end_per_testcase(_TC, Config, Return, State) ->
-    Node = proplists:get_value(node, Config),
-    Cover = test_server:is_cover(),
-    if Cover-> cover:flush(Node);
-       true -> ok
-    end,
-    erlang:monitor_node(Node, true),
-    slave:stop(Node),
-    receive
-	{nodedown, Node} ->
-	    if Cover -> cover:stop(Node);
-	       true -> ok
-	    end
-    after 5000 ->
-	    erlang:monitor_node(Node, false),
-	    receive {nodedown, Node} -> ok after 0 -> ok end %flush
-    end,
-    {Return, State}.
-
-%% Parse an .suite log file
-parse_suite(FileName) ->
-    
-    case file:open(FileName, [read, raw, read_ahead]) of
-	{ok, Fd} ->
-	    Data = parse_suite(Fd, #suite{ }),
-	    file:close(Fd),
-	    {ok, Data};
-	_ ->
-	    error
-    end.
-
-fline(Fd) ->
-    case prim_file:read_line(Fd) of
-	eof -> eof;
-	{ok, Line} -> Line
-    end.
-
-parse_suite(Fd, S) ->
-    _Started                  = fline(Fd),
-    _Starting                 = fline(Fd),
-    "=cases"        ++ NCases = fline(Fd),
-    "=user"         ++ _User  = fline(Fd),
-    "=host"         ++ Host   = fline(Fd),
-    "=hosts"        ++ _Hosts = fline(Fd),
-    "=emulator_vsn" ++ Evsn   = fline(Fd),
-    "=emulator"     ++ Emu    = fline(Fd),
-    "=otp_release"  ++ OtpRel = fline(Fd),
-    "=started"      ++ Start  = fline(Fd),
-    NewS = parse_cases(Fd, S#suite{
-			     n_cases_expected = list_to_int(clean(NCases)),
-			     host             = list_to_binary(clean(Host)),
-			     emulator_vsn     = list_to_binary(clean(Evsn)),
-			     emulator         = list_to_binary(clean(Emu)),
-			     otp_release      = list_to_binary(clean(OtpRel)),
-			     started          = list_to_binary(clean(Start))
-			    }),
-    "=failed"       ++ Failed  = fline(Fd),
-    "=successful"   ++ Succ    = fline(Fd),
-    "=user_skipped" ++ UsrSkip = fline(Fd),
-    "=auto_skipped" ++ AutSkip  = fline(Fd),
-    NewS#suite{ n_cases_failed = list_to_int(clean(Failed)),
-		n_cases_succ   = list_to_int(clean(Succ)),
-		n_cases_user_skip   = list_to_int(clean(UsrSkip)),
-		n_cases_auto_skip   = list_to_int(clean(AutSkip)) }.
-    
-
-parse_cases(Fd, #suite{ n_cases = N, 
-			cases = Cases } = S) ->
-    case parse_case(Fd) of
-	finished -> S#suite{ log_ok = true };
-	{eof, Tc} -> 
-	    S#suite{ n_cases = N + 1,
-		     cases = [Tc#tc{ result = crashed }|Cases]};
-	{ok, Case} ->
-	    parse_cases(Fd, S#suite{ n_cases = N + 1, 
-				     cases = [Case|Cases]})
-    end.
-
-parse_case(Fd) -> parse_case(Fd, #tc{}).
-parse_case(Fd, Tc) -> parse_case(fline(Fd), Fd, Tc).
-
-parse_case(eof, _, Tc) -> {eof, Tc};
-parse_case("=case" ++ Case, Fd, Tc) ->
-    Name = list_to_binary(clean(Case)),
-    parse_case(fline(Fd), Fd, Tc#tc{ name = Name });
-parse_case("=logfile" ++ File, Fd, Tc) ->
-    Log = list_to_binary(clean(File)),
-    parse_case(fline(Fd), Fd, Tc#tc{ logfile = Log });
-parse_case("=elapsed" ++ Elapsed, Fd, Tc) ->
-    {ok, [Time], _} = io_lib:fread("~f", clean(Elapsed)),
-    parse_case(fline(Fd), Fd, Tc#tc{ elapsed = Time });
-parse_case("=result" ++ Result, _, Tc) ->
-    case clean(Result) of
-	"ok" ++ _ ->
-	    {ok, Tc#tc{ result = ok } };
-	"failed" ++ _ ->
-	    {ok, Tc#tc{ result = failed } };
-	"skipped" ++ _ ->
-	    {ok, Tc#tc{ result = skip } };
-	"auto_skipped" ++ _ ->
-	    {ok, Tc#tc{ result = auto_skip } }
-    end;
-parse_case("=finished" ++ _ , _Fd, #tc{ name = undefined }) ->
-    finished;
-parse_case(_, Fd, Tc) ->
-    parse_case(fline(Fd), Fd, Tc).
-
-skip([]) -> [];
-skip([$ |Ts]) -> skip(Ts);
-skip(Ts) -> Ts.
-
-%rmnl(L) -> L.
-rmnl([]) -> [];
-rmnl([$\n | Ts]) -> rmnl(Ts);
-rmnl([T|Ts]) -> [T | rmnl(Ts)].
-
-clean(L) -> 
-    rmnl(skip(L)).
-
-list_to_int(L) ->
-    try
-	list_to_integer(L)
-    catch
-	_:_ ->
-	    0
-    end.