diff options
author | Björn Gustavsson <[email protected]> | 2019-01-31 14:35:12 +0100 |
---|---|---|
committer | Björn Gustavsson <[email protected]> | 2019-01-31 14:35:12 +0100 |
commit | 10b400a0433cf2ebcffe9ca702a26690123df81f (patch) | |
tree | cda7c638164f0d62fa1f5b5eee37faea751f6cdc /lib/compiler/test | |
parent | 135f98f4481e57f82c03c74a41ebde649af40f04 (diff) | |
parent | 81487129feb5823bf4c3a1721ce655d1e1616781 (diff) | |
download | otp-10b400a0433cf2ebcffe9ca702a26690123df81f.tar.gz otp-10b400a0433cf2ebcffe9ca702a26690123df81f.tar.bz2 otp-10b400a0433cf2ebcffe9ca702a26690123df81f.zip |
Merge branch 'maint'
* maint:
Eliminate bogus warning when using tuple calls
Diffstat (limited to 'lib/compiler/test')
-rw-r--r-- | lib/compiler/test/warnings_SUITE.erl | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/lib/compiler/test/warnings_SUITE.erl b/lib/compiler/test/warnings_SUITE.erl index 1f39348998..c5d0bf8420 100644 --- a/lib/compiler/test/warnings_SUITE.erl +++ b/lib/compiler/test/warnings_SUITE.erl @@ -42,7 +42,7 @@ comprehensions/1,maps/1,maps_bin_opt_info/1, redundant_boolean_clauses/1, latin1_fallback/1,underscore/1,no_warnings/1, - bit_syntax/1,inlining/1]). + bit_syntax/1,inlining/1,tuple_calls/1]). init_per_testcase(_Case, Config) -> Config. @@ -64,7 +64,8 @@ groups() -> bin_opt_info,bin_construction,comprehensions,maps, maps_bin_opt_info, redundant_boolean_clauses,latin1_fallback, - underscore,no_warnings,bit_syntax,inlining]}]. + underscore,no_warnings,bit_syntax,inlining, + tuple_calls]}]. init_per_suite(Config) -> test_lib:recompile(?MODULE), @@ -970,6 +971,20 @@ inlining(Config) -> run(Config, Ts), ok. +tuple_calls(Config) -> + %% Make sure that no spurious warnings are generated. + Ts = [{inlining_1, + <<"-compile(tuple_calls). + dispatch(X) -> + (list_to_atom(\"prefix_\" ++ + atom_to_list(suffix))):doit(X). + ">>, + [], + []} + ], + run(Config, Ts), + ok. + %%% %%% End of test cases. %%% |