Merge pull request #8712 from jhogberg/john/stdlib/cuddle-erl_lint_SUITE

erl_lint_SUITE: Fix fallout from deprecation warnings for gen_fsm
erlang · Aug 13, 2024 · 168704d · 168704d
2 parents 6439d84 + 25f1143
commit 168704d
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lib/stdlib/test/erl_lint_SUITE.erl b/lib/stdlib/test/erl_lint_SUITE.erl
@@ -3535,13 +3535,14 @@ behaviour_multiple(Config) when is_list(Config) ->
 
 	  {behaviour4,
            <<"-behaviour(gen_server).
-              -behaviour(gen_fsm).
+              -behaviour(gen_statem).
               -behaviour(supervisor).
               -export([init/1,handle_call/3,handle_cast/2,
                        handle_info/2,handle_info/3,
                        handle_event/3,handle_sync_event/4,
                        code_change/3,code_change/4,
-                       terminate/2,terminate/3,terminate/4]).
+                       terminate/2,terminate/3,terminate/4,
+                       callback_mode/0]).
               init(_) -> ok.
               handle_call(_, _, _) -> ok.
               handle_event(_, _, _) -> ok.
@@ -3554,11 +3555,12 @@ behaviour_multiple(Config) when is_list(Config) ->
               terminate(_, _) -> ok.
               terminate(_, _, _) -> ok.
               terminate(_, _, _, _) -> ok.
+              callback_mode() -> state_functions.
              ">>,
            [],
 	   {warnings,[{{2,16},
 		       erl_lint,
-		       {conflicting_behaviours,{init,1},gen_fsm,{1,22},gen_server}},
+		       {conflicting_behaviours,{init,1},gen_statem,{1,22},gen_server}},
 		      {{3,16},
 		       erl_lint,
 		       {conflicting_behaviours,{init,1},supervisor,{1,22},gen_server}}]}}