add function number test

inaka · Oct 7, 2024 · 870e2ed · 870e2ed
1 parent abeda9a
commit 870e2ed
Show file tree

Hide file tree

Showing 2 changed files with 67 additions and 1 deletion.
diff --git a/test/examples/function_clause_numbers.erl b/test/examples/function_clause_numbers.erl
@@ -0,0 +1,50 @@
+-module(function_clause_numbers).
+
+-export([clause/1]).
+
+clause(1) ->
+  "ok";
+clause(2) -> "ok";
+clause(3) -> "ok";
+clause(4) -> "ok";
+clause(5) ->
+  "ok";
+clause(6) ->
+  "ok";
+clause(7) ->
+  "ok";
+clause(8) -> "ok";
+clause(9) -> "ok";
+clause(10) -> "ok";
+clause(11) ->
+  "ok";
+clause(12) -> "ok";
+clause(13) ->
+  "ok";
+clause(14) -> "ok";
+clause(15) -> "ok";
+clause(16) -> "ok";
+clause(17) -> "ok";
+clause(18) -> "ok";
+clause(19) ->
+  "ok";
+clause(20) ->
+  "ok";
+clause(21) ->
+  "ok";
+clause(22) -> "ok";
+clause(23) -> "ok";
+clause(24) -> "ok";
+clause(25) -> "ok";
+clause(26) -> "ok";
+clause(27) -> "ok";
+clause(28) -> "ok";
+clause(29) ->
+  "ok";
+clause(30) ->
+  "ok";
+clause(31) ->
+  "ok";
+clause(32) -> "ok";
+clause(33) ->
+  "ok".
diff --git a/test/style_SUITE.erl b/test/style_SUITE.erl
@@ -1186,7 +1186,23 @@ verify_max_function_clause_length(Config) ->
                               elvis_style,
                               max_function_clause_length,
                               RuleConfig3,
-                              PathFail).
+                              PathFail),
+
+    RuleConfig4 = CountAllRuleConfig#{max_length => 1},
+    PathClauseNumbers = "function_clause_numbers." ++ Ext,
+
+    Result =
+        elvis_core_apply_rule(Config,
+                              elvis_style,
+                              max_function_clause_length,
+                              RuleConfig4,
+                              PathClauseNumbers),
+
+    Numbers = [Number || #{info := [Number, _, _, _, _]} <- Result],
+
+    _ = Numbers =:= ["1st", "5th", "6th", "7th", "11th",
+                     "13th", "19th", "20th", "21st", "29th",
+                     "30th", "31st", "33rd"].
 
 -spec verify_no_debug_call(config()) -> any().
 verify_no_debug_call(Config) ->