4
%% Copyright Ericsson AB 2004-2010. All Rights Reserved.
4
%% Copyright Ericsson AB 2004-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
19
19
-module(pmod_SUITE).
21
-export([all/1,init_per_testcase/2,fin_per_testcase/2,
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,
23
init_per_testcase/2,end_per_testcase/2,
22
24
basic/1, otp_8447/1]).
24
-include("test_server.hrl").
26
-include_lib("test_server/include/test_server.hrl").
28
suite() -> [{ct_hooks,[ts_install_cth]}].
27
31
test_lib:recompile(?MODULE),
37
init_per_suite(Config) ->
40
end_per_suite(_Config) ->
43
init_per_group(_GroupName, Config) ->
46
end_per_group(_GroupName, Config) ->
30
50
init_per_testcase(Case, Config) when is_atom(Case), is_list(Config) ->
31
51
Dog = test_server:timetrap(?t:minutes(1)),
32
52
[{watchdog,Dog}|Config].
34
fin_per_testcase(Case, Config) when is_atom(Case), is_list(Config) ->
54
end_per_testcase(Case, Config) when is_atom(Case), is_list(Config) ->
35
55
Dog = ?config(watchdog, Config),
36
56
?t:timetrap_cancel(Dog),
76
96
?line error = Prop4:bar_bar({s,a,b}),
77
97
?line error = Prop4:bar_bar([]),
100
Fun = fun(Arg) -> Prop4:bar(Arg) end,
101
?line ok = Fun({s,0}),
103
[{y,[1,2]},{x,[5,19]}] = Prop4:collapse([{y,[2,1]},{x,[19,5]}]),
81
106
otp_8447(Config) when is_list(Config) ->