1%%
2%% %CopyrightBegin%
3%%
4%% Copyright Ericsson AB 2020. All Rights Reserved.
5%%
6%% Licensed under the Apache License, Version 2.0 (the "License");
7%% you may not use this file except in compliance with the License.
8%% You may obtain a copy of the License at
9%%
10%%     http://www.apache.org/licenses/LICENSE-2.0
11%%
12%% Unless required by applicable law or agreed to in writing, software
13%% distributed under the License is distributed on an "AS IS" BASIS,
14%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
15%% See the License for the specific language governing permissions and
16%% limitations under the License.
17%%
18%% %CopyrightEnd%
19%%
20
21-module(random_code_SUITE).
22
23-export([all/0, suite/0, groups/0,
24         init_per_suite/1, end_per_suite/1]).
25
26-export([compile/1]).
27
28suite() ->
29    [{ct_hooks,[ts_install_cth]}].
30
31all() ->
32    [{group,property_tests}].
33
34groups() ->
35    [{property_tests,[parallel],
36      [compile]}].
37
38init_per_suite(Config0) ->
39    case ct_property_test:init_per_suite(Config0) of
40        [_|_]=Config ->
41            try proper_erlang_abstract_code:module() of
42                _ ->
43                    Config
44            catch
45                error:undef ->
46                    {skip,"No proper_erlang_abstract_code module"}
47            end;
48        Other ->
49            Other
50    end.
51
52end_per_suite(Config) ->
53    Config.
54
55compile(Config) ->
56    true = ct_property_test:quickcheck(compile_prop:compile(), Config),
57    ok.
58