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