%%--------------------------------------------------------------------
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2012-2013. All Rights Reserved.
%%
%% The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved online at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% %CopyrightEnd%
%%
%%----------------------------------------------------------------------
%% File: cover_SUITE.erl
%%
%% Description:
%% This file contains the test cases for the code coverage support
%%
%% @author Support
%% @doc Test of code coverage support in common_test
%% @end
%%----------------------------------------------------------------------
%%----------------------------------------------------------------------
-module(cover_SUITE).
-include_lib("common_test/include/ct.hrl").
-compile(export_all).
%% Default timetrap timeout (set in init_per_testcase).
-define(default_timeout, ?t:minutes(1)).
suite() ->
[].
all() ->
[].
init_per_suite(Config) ->
Config.
end_per_suite(Config) ->
Config.
init_per_testcase(_Case, Config) ->
Dog = test_server:timetrap(?default_timeout),
[{watchdog, Dog}|Config].
end_per_testcase(Case, Config) ->
%% try apply(?MODULE,Case,[cleanup,Config])
%% catch error:undef -> ok
%% end,
kill_slaves(Case,nodes()),
Dog=?config(watchdog, Config),
test_server:timetrap_cancel(Dog),
ok.
%%%-----------------------------------------------------------------
%%% Test cases
break(_Config) ->
test_server:break(""),
ok.
default(Config) ->
cover_compiled = code:which(cover_test_mod),
cover_test_mod:foo(),
ok.
slave(Config) ->
cover_compiled = code:which(cover_test_mod),
cover_test_mod:foo(),
N1 = nodename(slave,1),
{ok,Node} = start_slave(N1),
cover_compiled = rpc:call(Node,code,which,[cover_test_mod]),
rpc:call(Node,cover_test_mod,foo,[]),
{ok,Node} = ct_slave:stop(N1),
ok.
slave_start_slave(Config) ->
cover_compiled = code:which(cover_test_mod),
cover_test_mod:foo(),
N1 = nodename(slave_start_slave,1),
N2 = nodename(slave_start_slave,2),
{ok,Node} = start_slave(N1),
cover_compiled = rpc:call(Node,code,which,[cover_test_mod]),
rpc:call(Node,cover_test_mod,foo,[]),
{ok,Node2} = rpc:call(Node,ct_slave,start,[N2]),
rpc:call(Node2,cover_test_mod,foo,[]),
{ok,Node2} = rpc:call(Node,ct_slave,stop,[N2]),
{ok,Node} = ct_slave:stop(N1),
ok.
cover_node_option(Config) ->
cover_compiled = code:which(cover_test_mod),
cover_test_mod:foo(),
Node = fullname(existing_node_1),
cover_compiled = rpc:call(Node,code,which,[cover_test_mod]),
rpc:call(Node,cover_test_mod,foo,[]),
ok.
ct_cover_add_remove_nodes(Config) ->
cover_compiled = code:which(cover_test_mod),
cover_test_mod:foo(),
Node = fullname(existing_node_2),
Beam = rpc:call(Node,code,which,[cover_test_mod]),
false = (Beam == cover_compiled),
rpc:call(Node,cover_test_mod,foo,[]), % should not be collected
{ok,[Node]} = ct_cover:add_nodes([Node]),
cover_compiled = rpc:call(Node,code,which,[cover_test_mod]),
rpc:call(Node,cover_test_mod,foo,[]), % should be collected
ok = ct_cover:remove_nodes([Node]),
rpc:call(Node,cover_test_mod,foo,[]), % should not be collected
Beam = rpc:call(Node,code,which,[cover_test_mod]),
ok.
otp_9956(Config) ->
cover_compiled = code:which(?MODULE),
DataDir = ?config(data_dir,Config),
absolute = filename:pathtype(DataDir),
true = filelib:is_dir(DataDir),
ok.
%%%-----------------------------------------------------------------
%%% Internal
nodename(Case,N) ->
list_to_atom(nodeprefix(Case) ++ integer_to_list(N)).
nodeprefix(Case) ->
atom_to_list(?MODULE) ++ "_" ++ atom_to_list(Case) ++ "_node".
fullname(Name) ->
{ok,Host} = inet:gethostname(),
list_to_atom(atom_to_list(Name) ++ "@" ++ Host).
kill_slaves(Case, [Node|Nodes]) ->
Prefix = nodeprefix(Case),
case lists:prefix(Prefix,atom_to_list(Node)) of
true ->
rpc:call(Node,erlang,halt,[]);
_ ->
ok
end,
kill_slaves(Case,Nodes);
kill_slaves(_,[]) ->
ok.
start_slave(Name) ->
{ok, HostStr}=inet:gethostname(),
Host = list_to_atom(HostStr),
ct_slave:start(Host,Name,
[{boot_timeout,10}, % extending some timers for slow test hosts
{init_timeout,10},
{startup_timeout,10}]).
