1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
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.
|
