4
%% Copyright Ericsson AB 1997-2009. All Rights Reserved.
4
%% Copyright Ericsson AB 1997-2011. All Rights Reserved.
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
8
8
%% compliance with the License. You should have received a copy of the
9
9
%% Erlang Public License along with this software. If not, it can be
10
10
%% retrieved online at http://www.erlang.org/.
12
12
%% Software distributed under the License is distributed on an "AS IS"
13
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
%% the License for the specific language governing rights and limitations
15
15
%% under the License.
19
19
-module(win32reg_SUITE).
21
-export([all/1,long/1,evil_write/1]).
22
-export([ostype/1,fini/1]).
24
-include("test_server.hrl").
27
[{conf,ostype,[long,evil_write],fini}].
29
ostype(Config) when is_list(Config) ->
21
-export([all/0, suite/0,groups/0,init_per_suite/1, end_per_suite/1,
22
init_per_group/2,end_per_group/2,long/1,evil_write/1]).
24
-include_lib("test_server/include/test_server.hrl").
26
suite() -> [{ct_hooks,[ts_install_cth]}].
34
init_per_group(_GroupName, Config) ->
37
end_per_group(_GroupName, Config) ->
41
init_per_suite(Config) when is_list(Config) ->
34
46
{skip,"Doesn't run on UNIX."}
36
fini(Config) when is_list(Config) ->
48
end_per_suite(Config) when is_list(Config) ->
39
51
long(doc) -> "Test long keys and entries (OTP-3446).";
40
long(Config) when list(Config) ->
52
long(Config) when is_list(Config) ->
41
53
?line Dog = test_server:timetrap(test_server:seconds(10)),
43
55
?line LongKey = "software\\" ++
61
73
?line test_server:timetrap_cancel(Dog),
64
evil_write(Config) when list(Config) ->
76
evil_write(Config) when is_list(Config) ->
65
77
?line Dog = test_server:timetrap(test_server:seconds(10)),
67
79
?line Key = "Software\\Ericsson\\Erlang",