diff options
Diffstat (limited to 'erts/test/erlc_SUITE_data/src/f_macros.erl')
| -rw-r--r-- | erts/test/erlc_SUITE_data/src/f_macros.erl | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/erts/test/erlc_SUITE_data/src/f_macros.erl b/erts/test/erlc_SUITE_data/src/f_macros.erl new file mode 100644 index 0000000000..72b73ece52 --- /dev/null +++ b/erts/test/erlc_SUITE_data/src/f_macros.erl @@ -0,0 +1,65 @@ +%% +%% %CopyrightBegin% +%% +%% Copyright Ericsson AB 2021-2022. All Rights Reserved. +%% +%% Licensed under the Apache License, Version 2.0 (the "License"); +%% you may not use this file except in compliance with the License. +%% You may obtain a copy of the License at +%% +%% http://www.apache.org/licenses/LICENSE-2.0 +%% +%% Unless required by applicable law or agreed to in writing, software +%% distributed under the License is distributed on an "AS IS" BASIS, +%% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +%% See the License for the specific language governing permissions and +%% limitations under the License. +%% +%% %CopyrightEnd% +%% + +-module(f_macros). + +-export([has_experimental/0, + has_hindley_milner/0, + with_hm/0, + uses_experimental/0, + uses_exp2/0 + ]). + +%% This test feature exists +-if(?FEATURE_AVAILABLE(experimental_ftr_1)). +has_experimental() -> + true. +-else. +has_experimental() -> + false. +-endif. + +%% This feature will probably never exist :-( +-if(?FEATURE_AVAILABLE(hindley_milner)). +has_hindley_milner() -> + true. +-else. +has_hindley_milner() -> + false. +-endif. + +with_hm() -> + ?FEATURE_ENABLED(hindley_milner). + +-if(?FEATURE_ENABLED(experimental_ftr_1)). +uses_experimental() -> + true. +-else. +uses_experimental() -> + false. +-endif. + +-if(?FEATURE_ENABLED(experimental_ftr_2)). +uses_exp2() -> + true. +-else. +uses_exp2() -> + false. +-endif. |