diff options
| author | Björn Gustavsson <[email protected]> | 2014-02-05 14:01:00 +0100 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2014-02-05 14:01:00 +0100 |
| commit | 1375078619eb547eecdd5e0e155c00c39dd2d493 (patch) | |
| tree | 949892e4e1f1d4d65a6dd9b3ccb408812492c7ab /lib/compiler/test | |
| parent | 8d71ab498974b5f0623eac50c4f94f62fc229a94 (diff) | |
| parent | 4aeef6279f19a15c728befe817d78d669bb5d1fd (diff) | |
| download | otp-1375078619eb547eecdd5e0e155c00c39dd2d493.tar.gz otp-1375078619eb547eecdd5e0e155c00c39dd2d493.tar.bz2 otp-1375078619eb547eecdd5e0e155c00c39dd2d493.zip | |
Merge branch 'bjorn/eep37/OTP-11537'
* bjorn/eep37/OTP-11537:
Issue a warning when a named fun is constructed but not used
Diffstat (limited to 'lib/compiler/test')
| -rw-r--r-- | lib/compiler/test/warnings_SUITE.erl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/lib/compiler/test/warnings_SUITE.erl b/lib/compiler/test/warnings_SUITE.erl index 7186956603..16d15a59e5 100644 --- a/lib/compiler/test/warnings_SUITE.erl +++ b/lib/compiler/test/warnings_SUITE.erl @@ -390,6 +390,10 @@ effect(Config) when is_list(Config) -> <<X:8>>; unused_fun -> fun() -> {ok,X} end; + unused_named_fun -> + fun F(0) -> 1; + F(N) -> N*F(N-1) + end; unused_atom -> ignore; %no warning unused_nil -> @@ -484,8 +488,9 @@ effect(Config) when is_list(Config) -> {22,sys_core_fold,{no_effect,{erlang,is_integer,1}}}, {24,sys_core_fold,useless_building}, {26,sys_core_fold,useless_building}, - {32,sys_core_fold,{no_effect,{erlang,'=:=',2}}}, - {34,sys_core_fold,{no_effect,{erlang,get_cookie,0}}}]}}], + {28,sys_core_fold,useless_building}, + {36,sys_core_fold,{no_effect,{erlang,'=:=',2}}}, + {38,sys_core_fold,{no_effect,{erlang,get_cookie,0}}}]}}], ?line [] = run(Config, Ts), ok. |