Exclude types annotated with attributes in UnusedType

Author: cirras

CHANGELOG.md

@@ -7,6 +7,10 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ## [Unreleased]
 
+### Changed
+
+- Exclude types annotated with attributes in `UnusedType`.
+
 ### Fixed
 
 - Exceptions from empty structures (e.g., `if`) in `LoopExecutingAtMostOnce` and `RedundantJump`.

delphi-checks/src/main/java/au/com/integradev/delphi/checks/UnusedTypeCheck.java

@@ -69,6 +69,10 @@ private boolean isViolation(TypeDeclarationNode node) {
       return false;
     }
 
+    if (node.getAttributeList() != null) {
+      return false;
+    }
+
     return node.getTypeNameNode().getUsages().stream()
         .allMatch(occurrence -> isWithinType(occurrence, type));
   }

delphi-checks/src/test/java/au/com/integradev/delphi/checks/UnusedTypeCheckTest.java

@@ -199,4 +199,17 @@ void testUnusedImplementationTypeWithExcludeApiShouldAddIssue() {
                 .appendImpl("end;"))
         .verifyIssues();
   }
+
+  @Test
+  void testUnusedTypeWithAttributeShouldNotAddIssue() {
+    CheckVerifier.newVerifier()
+        .withCheck(new UnusedTypeCheck())
+        .onFile(
+            new DelphiTestUnitBuilder()
+                .appendDecl("type")
+                .appendDecl("  [Bar]")
+                .appendDecl("  TFoo = class")
+                .appendDecl("  end;"))
+        .verifyNoIssues();
+  }
 }