diff options
| author | Björn Gustavsson <[email protected]> | 2013-01-29 12:46:52 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2013-01-31 11:14:48 +0100 |
| commit | 006d33717a9dea83fc918002d36f7d0527e71970 (patch) | |
| tree | b7ce25edea26152ab795e90661b9824483f775ce /lib | |
| parent | d082673cdec7b1d01be5dc05f1f7dee712a9390f (diff) | |
| download | otp-006d33717a9dea83fc918002d36f7d0527e71970.tar.gz otp-006d33717a9dea83fc918002d36f7d0527e71970.tar.bz2 otp-006d33717a9dea83fc918002d36f7d0527e71970.zip | |
Test deprecating list_to_atom/1 to cover more code
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/stdlib/test/erl_lint_SUITE.erl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/stdlib/test/erl_lint_SUITE.erl b/lib/stdlib/test/erl_lint_SUITE.erl index 0e9481793d..c8725411ee 100644 --- a/lib/stdlib/test/erl_lint_SUITE.erl +++ b/lib/stdlib/test/erl_lint_SUITE.erl @@ -1650,6 +1650,7 @@ otp_5276(Config) when is_list(Config) -> -deprecated([{'_','_',never}]). -deprecated([{{badly,formed},1}]). -deprecated([{'_','_',next_major_release}]). + -deprecated([{atom_to_list,1}]). -export([t/0]). frutt() -> ok. t() -> ok. @@ -1660,8 +1661,9 @@ otp_5276(Config) when is_list(Config) -> {3,erl_lint,{invalid_deprecated,'foo bar'}}, {5,erl_lint,{bad_deprecated,{f,'_'}}}, {8,erl_lint,{invalid_deprecated,{'_','_',never}}}, - {9,erl_lint,{invalid_deprecated,{{badly,formed},1}}}], - [{12,erl_lint,{unused_function,{frutt,0}}}]}}], + {9,erl_lint,{invalid_deprecated,{{badly,formed},1}}}, + {11,erl_lint,{bad_deprecated,{atom_to_list,1}}}], + [{13,erl_lint,{unused_function,{frutt,0}}}]}}], ?line [] = run(Config, Ts), ok. |