From 870e2ed69e04e1e30163db8064c35cb7c5e4d71e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mil=C3=A1n=20B=C3=B3r?= <milanbor40@gmail.com>
Date: Mon, 7 Oct 2024 15:53:42 +0200
Subject: [PATCH] add function number test

---
 test/examples/function_clause_numbers.erl | 50 +++++++++++++++++++++++
 test/style_SUITE.erl                      | 18 +++++++-
 2 files changed, 67 insertions(+), 1 deletion(-)
 create mode 100644 test/examples/function_clause_numbers.erl

diff --git a/test/examples/function_clause_numbers.erl b/test/examples/function_clause_numbers.erl
new file mode 100644
index 0000000..58b528f
--- /dev/null
+++ 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
index 603c6fc..708d319 100644
--- 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) ->