1%% 2%% %CopyrightBegin% 3%% 4%% Copyright Ericsson AB 2002-2018. 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%% 22-module(erl_ext_SUITE). 23 24-include_lib("common_test/include/ct.hrl"). 25-include("erl_ext_SUITE_data/ext_test_cases.hrl"). 26 27-export([all/0, suite/0, 28 init_per_testcase/2, 29 compare_tuple/1, 30 compare_list/1, 31 compare_string/1, 32 compare_list_string/1, 33 compare_nc_ext/1]). 34 35-import(runner, [get_term/1]). 36 37suite() -> 38 [{ct_hooks,[ts_install_cth]}]. 39 40all() -> 41 [compare_tuple, compare_list, compare_string, 42 compare_list_string, compare_nc_ext]. 43 44init_per_testcase(Case, Config) -> 45 runner:init_per_testcase(?MODULE, Case, Config). 46 47compare_tuple(Config) when is_list(Config) -> 48 P = runner:start(Config, ?compare_tuple), 49 runner:recv_eot(P), 50 ok. 51 52compare_list(Config) when is_list(Config) -> 53 P = runner:start(Config, ?compare_list), 54 runner:recv_eot(P), 55 ok. 56 57compare_string(Config) when is_list(Config) -> 58 P = runner:start(Config, ?compare_string), 59 runner:recv_eot(P), 60 ok. 61 62compare_list_string(Config) when is_list(Config) -> 63 P = runner:start(Config, ?compare_list_string), 64 runner:recv_eot(P), 65 ok. 66 67compare_nc_ext(Config) when is_list(Config) -> 68 P = runner:start(Config, ?compare_nc_ext), 69 runner:recv_eot(P), 70 ok. 71