diff options
| author | Björn Gustavsson <[email protected]> | 2019-01-31 14:34:25 +0100 |
|---|---|---|
| committer | GitHub <[email protected]> | 2019-01-31 14:34:25 +0100 |
| commit | 81487129feb5823bf4c3a1721ce655d1e1616781 (patch) | |
| tree | e4fe879714f2835cf9d04ec52d51789187674da6 /lib/compiler/test | |
| parent | 71e7b98034ac00d9ee5428ed0602646e29851a29 (diff) | |
| parent | 5f9b6873499882d32280883edaa97d7d0f526035 (diff) | |
| download | otp-81487129feb5823bf4c3a1721ce655d1e1616781.tar.gz otp-81487129feb5823bf4c3a1721ce655d1e1616781.tar.bz2 otp-81487129feb5823bf4c3a1721ce655d1e1616781.zip | |
Merge pull request #2119 from bjorng/bjorn/compiler/tuple-call/ERL-838/OTP-15552
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 33d55996ad..1c23eba06d 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), @@ -952,6 +953,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. %%% |