diff options
| author | Hans Bolinder <[email protected]> | 2017-02-13 10:38:23 +0100 |
|---|---|---|
| committer | Hans Bolinder <[email protected]> | 2017-03-08 14:11:49 +0100 |
| commit | de736de7b0eee391e3411ecd515d7bdae1bdc16c (patch) | |
| tree | 651f27dcc8dfff134ca2aeb133d93ddf757b951b /lib/stdlib/test/erl_lint_SUITE.erl | |
| parent | 5a2c12d6b26bd5f2c7e0ab75b44749acf1b788e0 (diff) | |
| download | otp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.tar.gz otp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.tar.bz2 otp-de736de7b0eee391e3411ecd515d7bdae1bdc16c.zip | |
stdlib: Fix handling of locations and annotations
Diffstat (limited to 'lib/stdlib/test/erl_lint_SUITE.erl')
| -rw-r--r-- | lib/stdlib/test/erl_lint_SUITE.erl | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/lib/stdlib/test/erl_lint_SUITE.erl b/lib/stdlib/test/erl_lint_SUITE.erl index c7dcd9ae16..df38edf393 100644 --- a/lib/stdlib/test/erl_lint_SUITE.erl +++ b/lib/stdlib/test/erl_lint_SUITE.erl @@ -1,7 +1,7 @@ %% %% %CopyrightBegin% %% -%% Copyright Ericsson AB 1999-2016. All Rights Reserved. +%% Copyright Ericsson AB 1999-2017. 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. @@ -2549,7 +2549,7 @@ otp_5878(Config) when is_list(Config) -> {function,9,t,0,[{clause,9,[],[],[{record,10,r,[]}]}]}, {eof,11}], {error,[{"rec.erl",[{7,erl_lint,old_abstract_code}]}],[]} = - compile:forms(OldAbstract, [return, report]), + compile_forms(OldAbstract, [return, report]), ok. @@ -3848,9 +3848,13 @@ otp_11879(_Config) -> [{1,erl_lint,{spec_fun_undefined,{f,1}}}, {2,erl_lint,spec_wrong_arity}, {22,erl_lint,callback_wrong_arity}]}], - []} = compile:forms(Fs, [return,report]), + []} = compile_forms(Fs, [return,report]), ok. +compile_forms(Terms, Opts) -> + Forms = [erl_parse:anno_from_term(Term) || Term <- Terms], + compile:forms(Forms, Opts). + %% OTP-13230: -deprecated without -module. otp_13230(Config) when is_list(Config) -> Abstr = <<"-deprecated([{frutt,0,next_version}]).">>, |