diff options
Diffstat (limited to 'lib/test_server/test/test_server_line_SUITE.erl')
| -rw-r--r-- | lib/test_server/test/test_server_line_SUITE.erl | 122 |
1 files changed, 122 insertions, 0 deletions
diff --git a/lib/test_server/test/test_server_line_SUITE.erl b/lib/test_server/test/test_server_line_SUITE.erl new file mode 100644 index 0000000000..02897f164f --- /dev/null +++ b/lib/test_server/test/test_server_line_SUITE.erl @@ -0,0 +1,122 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2004-2010. 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/1]). +-export([init_per_testcase/2, fin_per_testcase/2]). +-export([parse_transform/1, lines/1]). + +all(doc) -> ["Test of parse transform for collection line numbers"]; +all(suite) -> [parse_transform,lines]. + + +init_per_testcase(_Case, Config) -> + ?line test_server_line:clear(), + Dog = ?t:timetrap(?t:minutes(2)), + [{watchdog, Dog}|Config]. + +fin_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. |