%%
%% %CopyrightBegin%
%%
%% Copyright Ericsson AB 2004-2011. 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%
%%

%%%------------------------------------------------------------------
%%% Test Server self test. 
%%%------------------------------------------------------------------
-module(test_server_line_SUITE).
-include_lib("test_server/include/test_server.hrl").

-export([all/0,suite/0]).
-export([init_per_suite/1,end_per_suite/1,
	 init_per_testcase/2, end_per_testcase/2]).
-export([parse_transform/1, lines/1]).

suite() -> 
    [{ct_hooks,[ts_install_cth]},
     {doc,["Test of parse transform for collection line numbers"]}].

all() -> [parse_transform,lines].

init_per_suite(Config) ->
    Config.

end_per_suite(_Config) ->
    ok.

init_per_testcase(_Case, Config) ->
    ?line test_server_line:clear(),
    Dog = ?t:timetrap(?t:minutes(2)),
    [{watchdog, Dog}|Config].

end_per_testcase(_Case, Config) ->
    ?line test_server_line:clear(),
    Dog=?config(watchdog, Config),
    ?t:timetrap_cancel(Dog),
    ok.

parse_transform(suite) -> [];
parse_transform(doc) -> [];
parse_transform(Config) when is_list(Config) ->
    ?line DataDir = ?config(data_dir,Config),
    code:add_pathz(DataDir),

    ?line ok = parse_transform_test:excluded(),
    ?line [] = test_server_line:get_lines(),

    ?line test_server_line:clear(),
    ?line ok = parse_transform_test:func(),

    ?line [{parse_transform_test,func4,58},
	   {parse_transform_test,func,49},
	   {parse_transform_test,func3,56},
	   {parse_transform_test,func,39},
	   {parse_transform_test,func2,54},
	   {parse_transform_test,func,36},
	   {parse_transform_test,func1,52},
	   {parse_transform_test,func,35}] = test_server_line:get_lines(),
    
    code:del_path(DataDir),
    ok.

lines(suite) -> [];
lines(doc) -> ["Test parse transform for collection line numbers"];
lines(Config) when is_list(Config) ->
    ?line L0 = [{mod,func,1},{mod,func,2},{mod,func,3},
		{m,f,4},{m,f,5},{m,f,6},
		{mo,fu,7},{mo,fu,8},{mo,fu,9}],
    ?line LL = string:copies(L0, 1000),
    ?line T1 = erlang:now(),
    ?line lists:foreach(fun ({M,F,L}) -> 
				test_server_line:'$test_server_line'(M, F, L) 
			end, LL),
    ?line T2 = erlang:now(),
    ?line Long = test_server_line:get_lines(),
    ?line test_server_line:clear(),
    
    ?line T3 = erlang:now(),
    ?line lists:foreach(fun ({M,F,L}) -> 
				test_server_line:'$test_server_lineQ'(M, F, L) 
			end, LL),
    ?line T4 = erlang:now(),
    ?line LongQ = test_server_line:get_lines(),

    ?line io:format("'$test_server_line': ~f~n'$test_server_lineQ': ~f~n",
		    [timer:now_diff(T2, T1)/1000, timer:now_diff(T4, T3)/1000]),
    ?line io:format("'$test_server_line' result long:~p~n", [Long]),
    ?line io:format("'$test_server_lineQ' result long:~p~n", [LongQ]),

    if Long =:= LongQ ->
	    ?line ok;
       true ->
	    ?line ?t:fail("The two methods did not produce same result for"
			  " long lists of lines")
    end,
    
    ?line test_server_line:clear(),
    ?line lists:foreach(fun ({M,F,L}) -> 
				test_server_line:'$test_server_line'(M, F, L) 
			end, L0),
    ?line Short = test_server_line:get_lines(),
    ?line test_server_line:clear(),
    ?line lists:foreach(fun ({M,F,L}) -> 
				test_server_line:'$test_server_lineQ'(M, F, L) 
			end, L0),
    ?line ShortQ = test_server_line:get_lines(),

    ?line io:format("'$test_server_line' result short:~p~n", [Short]),
    ?line io:format("'$test_server_lineQ' result short:~p~n", [ShortQ]),
    
    if Short =:= ShortQ ->
	    ?line ok;
       true ->
	    ?line ?t:fail("The two methods did not produce same result for"
			  " shot lists of lines\n")
    end.