test(grouped): update ParameterGrouped-Test auf neues Verhalten

Round-3-Commit 68de1d3 hat ParenDepth-Filter in uGroupedDeclaration
ergaenzt - gruppierte Parameter werden bewusst nicht mehr geflaggt
(660+ FPs auf realem Code, idiomatische Delphi-Syntax).

Test ParameterGrouped_Reported erwartete das alte Verhalten - jetzt
umbenannt zu ParameterGrouped_NotReported mit Assert auf 0 Findings.
Unit-Header-Kommentar entsprechend aktualisiert
(GroupedParameterDeclaration aus Scope entfernt).

Author: nrodear

StaticCodeAnalyserForm/sources/Detectors/uGroupedDeclaration.pas

@@ -3,9 +3,10 @@
 // Detektor fuer gruppierte Deklarationen `A, B: Type;`.
 //
 // SonarDelphi-Aequivalent: communitydelphi:GroupedFieldDeclaration,
-// :GroupedVariableDeclaration, :GroupedParameterDeclaration (in SCA
-// als einzelne Regel zusammengefasst, separater Detektor pro Subkategorie
-// folgt evtl. spaeter).
+// :GroupedVariableDeclaration. GroupedParameterDeclaration ist
+// BEWUSST NICHT abgedeckt - gruppierte Parameter `F(A, B: Integer)` sind
+// idiomatische Delphi-Syntax und produzierten in einem Self-Test 660+
+// FPs auf realem Code. Implementiert via ParenDepth-Filter unten.
 //
 // Hintergrund: `A, B, C: Integer;` macht Diffs unklar (eine neue Variable
 // einzufuegen aendert eine bestehende Zeile statt eine eigene), und

StaticCodeAnalyserForm/tests/uTestGroupedDeclaration.pas

@@ -12,7 +12,7 @@   TTestGroupedDeclaration = class
     [Test] procedure SingleVarPerLine_NoFinding;
     [Test] procedure TwoVarsGrouped_Reported;
     [Test] procedure ThreeVarsGrouped_Reported;
-    [Test] procedure ParameterGrouped_Reported;
+    [Test] procedure ParameterGrouped_NotReported;
     [Test] procedure FieldGrouped_Reported;
     [Test] procedure GroupedDeclaration_KindAndSeverity;
   end;
@@ -66,14 +66,19 @@ procedure TTestGroupedDeclaration.ThreeVarsGrouped_Reported;
   finally F.Free; end;
 end;
 
-procedure TTestGroupedDeclaration.ParameterGrouped_Reported;
+procedure TTestGroupedDeclaration.ParameterGrouped_NotReported;
+// Gruppierte Parameter `procedure F(A, B: Integer)` sind in Delphi
+// idiomatische Syntax und werden NICHT als GroupedDecl geflaggt - sonst
+// wuerde jede Helper-Funktion mit gleichgetypten Parametern Noise produzieren.
+// Self-Test auf eigenem Code zeigte 660+ FPs durch diese Klasse;
+// detector-seitig via ParenDepth-Filter geloest.
 const SRC =
   'unit t; implementation'#13#10 +
   'procedure Foo(A, B: Integer); begin DoStuff; end;';
 var F: TObjectList<TLeakFinding>;
 begin
   F := TFindingHelper.FindingsOfFile(SRC);
-  try Assert.IsTrue(TFindingHelper.Count(F, fkGroupedDeclaration) >= 1);
+  try Assert.AreEqual(0, TFindingHelper.Count(F, fkGroupedDeclaration));
   finally F.Free; end;
 end;